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/ketpic2escifiles6/MakecutbycrvL.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci new file mode 100755 index 00000000..81b0492f --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci @@ -0,0 +1,45 @@ +// 08.09.19 +// 08.10.15 +// 08.12.21 + +function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps) + if CutuvL==[] + if Mixtype(Out1)==1 + AnsL=Mix(Out1); + else + AnsL=Out1; + end; + return; + end; + AnsL=[]; + ParL=Partitionseg(Out1,CutuvL,Eps); + Flg=0; + for J=1:length(ParL)-1 + Tmp=(ParL(J)+ParL(J+1))*0.5; + Tmp=PointonCurve(Tmp,Out1); + Tmp1='('+string(Tmp(1))+')'; + Tmp2='('+string(Tmp(2))+')'; + Tmp=strsubst(Uveqstr,Uname,Tmp1); + Tmp=strsubst(Tmp,Vname,Tmp2); + Tmp=evstr(Tmp); + if Tmp>0 + if Flg==0 + P1=ParL(J); + end; + Flg=1 + else + if Flg==1 + P2=ParL(J); + Tmp=Partcrv(P1,P2,Out1); + AnsL=Mixadd(AnsL,Tmp); + end; + Flg=0 + end; + end; + if Flg==1 + P2=ParL(length(ParL)); + Tmp=Partcrv(P1,P2,Out1); + AnsL=Mixadd(AnsL,Tmp); + end; +endfunction; + |