summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci
blob: 51a138847e28a766a8243cc1f6d43d60c46f3309 (plain)
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;