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
43
44
45
46
47
|
// 2010.04.27
function Writetextdata(varargin)
Fname=varargin(1);
Mt=varargin(2);
D=-1;
for I=3:length(varargin)
Tmp=varargin(I);
if mtlb_findstr(Tmp,'=')~=[]
execstr(Tmp);
end;
end;
Str='';
for J=1:size(Mt,2)
Str=Str+'x'+string(J);
if J<size(Mt,2)
Str=Str+',';
end;
end;
if Fname~=''
Fid=mopen(Fname,'w');
mfprintf(Fid,'%s\n',Str);
else
mprintf('%s\n',Str);
end;
for I=1:size(Mt,1)
Str='';
for J=1:size(Mt,2)
Dt=Mt(I,J);
if Dt==%inf
Dt=D;
end;
Str=Str+string(Dt);
if J<size(Mt,2)
Str=Str+',';
end;
end;
if Fname~=''
mfprintf(Fid,'%s\n',Str);
else
mprintf('%s\n',Str);
end;
end;
if Fname~=''
mclose(Fid);
end;
endfunction;
|