diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci | 44 |
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; |