summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci15
1 files changed, 0 insertions, 15 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
deleted file mode 100644
index fd2a35d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 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