summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci
blob: 59b4fdcce3ea45f5cdb0e7fc805623076d995d7e (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.05.18 Koshikawa
// 08.05.19 Changed
// 08.06.03
// 09.11.12
// 09.11.14  debug

function PL=Intersectcrvs(varargin)
  Nargs=length(varargin);
  Eps=10^(-4);
  Tmp=varargin(Nargs);
  if type(Tmp)==1 & length(Tmp)==1
    Eps=Tmp;
  end
  G1=varargin(1);
  if Mixtype(G1)==1
    G1=list(G1);
  end;
  G2=varargin(2);
  if Mixtype(G2)==1
    G2=list(G2);  //
  end;
  PL=list();
  for N=1:length(G1)
    for M=1:length(G2)
      KL=IntersectcrvsPp(G1(N),G2(M),Eps);
      for I=1:length(KL)
        Tmp=KL(I);;
        P=Tmp(1);
        PL($+1)=P;
      end;
    end;
  end;
endfunction