summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci21
1 files changed, 21 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci
new file mode 100755
index 00000000..c39cdadc
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci
@@ -0,0 +1,21 @@
+// 09.10.03
+
+function Out=Pointoncrv(varargin)
+ Eps=10^(-4);
+ T=varargin(1);
+ Gdata=varargin(2);
+ if size(T,1)>1
+ Tmp=T; T=Gdata; Gdata=Tmp;
+ end;
+ PtL=Gdata;
+ N=Trunc(T+Eps);
+ S=max(T-N,0);
+ if N==size(PtL,1)
+ Out=PtL(N,:);
+ else
+ Pa=PtL(N,:);;
+ Pb=PtL(N+1,:);
+ Out=(1-S)*Pa+S*Pb;
+ end
+endfunction;
+