diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci deleted file mode 100644 index e9915e1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.10.21 - -function Out=Makeliststr(L) - Out='list('; - for I=1:length(L) - Dt=L(I); - if type(Dt)==1 - if length(Dt)==1 - Dts=string(Dt); - else - Dts='['; - for J=1:size(Dt,1) - for K=1:size(Dt,2) - Dts=Dts+string(Dt(J,K)); - if K<size(Dt,2) - Dts=Dts+','; - end; - end; - if J<size(Dt,1) - Dts=Dts+';'; - else - Dts=Dts+']'; - end; - end; - end; - end; - if type(Dt)==10 - Dts=Prime()+Dt+Prime(); - end; - if type(Dt)==15 - Dts=Makeliststr(Dt); - end; - Out=Out+Dts; - if I<length(L) - Out=Out+','; - else - Out=Out+')'; - end; - end; -endfunction; - |