summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci44
1 files changed, 0 insertions, 44 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
deleted file mode 100644
index bc44c2e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 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;