// 08.05.18 // 08.05.20 // 08.06.02 function TenL=KoutenList(PA,V,Bdy) Eps=10.0^(-6); TenL=[]; for N=1:Mixlength(Bdy) KL=Op(N,Bdy); for K=1:size(KL,1)-1 P=KL(K,:); Q=KL(K+1,:); if P~='/' & Q~='/' Tmp=Kouten(PA,V,P,Q); if Tmp~=[%inf,-%inf] Ten=Mixadd(Tmp,N); Flg=0; NN=Mixlength(TenL); I=1; while Flg==0 & I<=NN Tmp=Op(I,TenL); if Op(1,Ten)