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
|
% mat2mfile(matrix, matrix_name, filenum)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Copyright (c) P.J. Gawthrop, 1996.
%Writes out a matrix as a matlab m-file
[N, M] = size(matrix);
empty = (N==1)&(M==1)&(matrix(1,1)==0);
% $$$ if nargin<3
% $$$ filenum = 'stdout';
% $$$ end;
|
>
>
>
<
<
<
<
|
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
|
% mat2mfile(matrix, matrix_name, filenum)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1 1996/12/04 21:53:00 peterg
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Copyright (c) P.J. Gawthrop, 1996.
%Writes out a matrix as a matlab m-file
[N, M] = size(matrix);
empty = (N==1)&(M==1)&(matrix(1,1)==0);
%Write out the matrix
fprintf(filenum, '%s = [\n', matrix_name);
if ~empty
for i = 1:N,
for j = 1:M
fprintf(filenum, '%1.0f ', matrix(i,j));
|