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