diff options
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; - |