summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
diff options
context:
space:
mode:
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;