summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
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