Overview
Comment:Puts a tab between columns.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: a1c2d5628a3950c2aea02b7660808d99af2954a7c095476f179bd046e99cbcea
User & Date: gawthrop@users.sourceforge.net on 1996-08-14 08:36:52
Other Links: branch diff | manifest | tags
Context
1996-08-14
09:15:02
Now encapsulates the data into an m file
Name changed
check-in: b6f0f8cdc5 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:36:52
Puts a tab between columns. check-in: a1c2d5628a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:36:16
Initial revision check-in: 7d99654f67 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/m/write_matrix.m from [bb5a78fe95] to [6c043c5067].

1
2
3
4
5
6
7
8
9



10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25


26


27
28
29
30
31
32
33
34
35
36
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

31
32
33
34
35
36
37
38
39
40
41
42









+
+
+
















+
+
-
+
+










function write_matrix(matrix,name);

% Writes the matrix function file

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1  1996/08/14 08:21:27  peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


filename = [name, '.m'];
filenum = fopen(filename,'w');

% Write the function m-file for the causal bond graph
pc = '%';
fprintf(filenum, 'function data = %s\n', name);
fprintf(filenum, '%s m = %s\n\n', pc, name);

fprintf(filename, 'm = [\n');

[N,M] = size(matrix);
for i = 1:N,
  for j = 1:M
    fprintf(filename, '%g', matrix(i,j));
    if j<M
    fprintf(filename, '\t%g', matrix(i,j));
      fprintf(filename, '\t');
    end
  end;
  fprintf(filename, '\n');
end;

fprintf(filename, '];\n');
fprintf(filename, '\n');

fclose(filenum);



MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]