summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci47
1 files changed, 0 insertions, 47 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
deleted file mode 100644
index 51a13884..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 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;