summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci44
1 files changed, 44 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci
new file mode 100755
index 00000000..bc44c2e9
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci
@@ -0,0 +1,44 @@
+// 09.10.09
+// 09.10.12
+// 09.11.01
+// 09.11.12
+// 09.12.06
+// 10.12.04
+
+function Out=Lineplot(varargin)
+ Nargs=length(varargin);
+ A=varargin(1);
+ if type(A)==1 // 09.11.12 from
+ Tmp=length(A);
+ if Tmp>3
+ B=A(Tmp/2+1:Tmp);
+ A=A(1:Tmp/2);
+ Is=2;
+ else
+ B=varargin(2);
+ Is=3;
+ end;
+ else
+ B=A(2);
+ A=A(1);
+ Is=2;
+ end; // upto
+ Mag=100; Semi='';
+ for I=Is:Nargs
+ Tmp=varargin(I);
+ select type(Tmp)
+ case 1
+ Mag=Tmp;
+ case 10
+ Semi=Tmp;
+ end;
+ end;
+ V= Mag/norm(B-A)*(B-A) // 10.12.04 from here
+ if Semi==""
+ Out=Listplot(A-V,A+V)
+ elseif Semi=="+"
+ Out=Listplot(A,A+V)
+ else
+ Out=Listplot(A-V,A)
+ end // 10.12.04 to here
+endfunction;