summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci41
1 files changed, 41 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci
new file mode 100755
index 00000000..e9915e1b
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci
@@ -0,0 +1,41 @@
+// 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;
+