summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci29
1 files changed, 29 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci
new file mode 100755
index 00000000..d6e49c14
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci
@@ -0,0 +1,29 @@
+// 08.05.18
+// 08.05.19 Changed
+// 08.08.15
+
+// Structure changed
+// 09.10.11
+
+function M=Mixjoin(varargin)
+ Nargs=length(varargin);
+ M=list();
+ for I=1:Nargs
+ Tmp=varargin(I);
+ if length(Tmp)==0
+ continue;
+ end;
+ if Mixtype(Tmp)==1
+ Tmp=list(Tmp);
+ end;
+ if length(M)==0
+ M=Tmp;
+ else
+ M=lstcat(M,Tmp);
+ end;
+ end;
+ if length(M)==0
+ M=[];
+ end;
+endfunction;
+