From 8c3c49fd56de185396400a0e8a636ac03d8239ab Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 12 Feb 2018 14:52:54 +0900 Subject: update ketcindy --- .../ketlib/ketpic2escifiles6/Dropnumlistcrv.sci | 34 ---------------------- 1 file changed, 34 deletions(-) delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci') 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 -- cgit v1.2.3