summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2017-09-04 09:45:51 +0900
committerNorbert Preining <norbert@preining.info>2017-09-04 09:45:51 +0900
commit138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch)
treecd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci
parent37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff)
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci44
1 files changed, 44 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci
new file mode 100755
index 00000000..bc44c2e9
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/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;