summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
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;