blob: 3a06be00d3c68f8cb71f862f059b0d66c0ac7376 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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
|