summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci27
1 files changed, 27 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci
new file mode 100755
index 00000000..9fe33c06
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci
@@ -0,0 +1,27 @@
+// 08.07.11
+
+function Z=Spaceline(varargin)
+ Z=[];
+ for I=1:length(varargin)
+ Data=varargin(I);
+ if Mixtype(Data)==1
+ for J=1:3:size(Data,2)
+ Tmp=Data(J:J+2);
+ Z=[Z;Tmp];
+ end;
+ continue;
+ end;
+ if Mixtype(Data)==3
+ Tmp=[];
+ for I=1:Mixlength(Data);
+ Tmp=Mixjoin(Tmp,Mixop(I,Data));
+ end;
+ Data=Tmp;
+ end;
+ for J=1:Mixlength(Data)
+ Tmp=Mixop(J,Data);
+ Z=[Z;Tmp];
+ end;
+ end
+endfunction
+