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