summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci34
1 files changed, 34 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
new file mode 100755
index 00000000..3a06be00
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
@@ -0,0 +1,34 @@
+// 08.09.10
+// 08.09.15
+// 08.10.10
+// 10.09.03
+
+function OutL=Dropnumlistcrv(QdL,Eps)
+ Eps0=10^(-6); //
+ if Mixtype(QdL)==1
+ PdL=list(QdL);
+ else
+ PdL=QdL;
+ end;
+ OutL=[];
+ for I=1:Mixlength(PdL)
+ Pd=Op(I,PdL);
+ PtL=[1];
+ P=Pd(1,:);
+ for K=2:size(Pd,1)-1 //
+ if norm(P-Pd(K,:))>Eps
+ PtL=[PtL,K];
+ P=Pd(K,:);
+ end;
+ end;
+ // PtL=[PtL,size(Pd,1)];
+ K=size(Pd,1) //
+ if norm(P-Pd(K,:))>Eps0 //
+ PtL=[PtL,K]; //
+ end; //
+ if length(PtL)==1
+ PtL=[];
+ end;
+ OutL=Mixadd(OutL,PtL);
+ end;
+endfunction