diff options
author | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
commit | 138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch) | |
tree | cd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci new file mode 100755 index 00000000..443751be --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci @@ -0,0 +1,41 @@ +// 08.05.20 +// 09.10.05 +// 10.01.20 +// 10.02.01 + +function Out=Makeshasen(PtnL,PA,V,Bdy) + Eps=10.0^(-6); + TenL=KoutenList(PA,V,Bdy); + Nten=length(TenL); + Call=length(Bdy); + Ptn=zeros(1,Call); + Out=list(); + GL=[] + Te=-10.0^6; + for I=1:Nten-1 + TenP=Op(I,TenL); TenQ=Op(I+1,TenL); + Ts=Op(1,TenP); + P=Op(2,TenP); Q=Op(2,TenQ); + NC=Op(4,TenP); + Tmp=modulo(Ptn(NC)+1,2); + Ptn(1,NC)=Tmp; + if Op(1,TenQ)-Ts>Eps + if Member(Ptn,PtnL) + if abs(Te-Ts)>Eps + if GL~=[] + J=length(Out); + Out(J+1)=GL; + end; + Tmp=Listplot(P,Q); + GL=Tmp; + else + GL=[GL;Q]; + end + Te=Op(1,TenQ); + end + end + end + if size(GL,1)>0 + Out=Mixjoin(Out,list(GL)) + end; +endfunction |