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/Crv3onsfpersdata.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci new file mode 100755 index 00000000..5fc40737 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci @@ -0,0 +1,50 @@ +// 08.09.21 +// 08.10.11 +// 08.10.15 +// 10.02.16 Eps + +function Out=Crv3onsfpersdata(varargin) + global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA + Nargs=length(varargin); + Fk=varargin(1); + Fbdy=Projpers(varargin(2)); + Fd=varargin(3); N=4; + FdL=Fullformfunc(Fd); + Fxy=Mixop(1,FdL); + Np=[50,50]; + if Nargs>=N + Np=varargin(N); N=N+1; + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=N + Eps=varargin(N); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=N+1 + Eps2=varargin(N+1); + end; + Tmp=Mixop(2,Fd); + K=mtlb_findstr(Tmp,'='); + Xname=part(Tmp,1:K-1); + Tmp=Mixop(3,Fd); + K=mtlb_findstr(Tmp,'='); + Yname=part(Tmp,1:K-1); + Fbdxy=Makexybdy(Fd,Np); + Tmp=Projpers(Fk); + Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // + if Fxy=='p' + Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); + else + Tmp=Mix(Fxy,Fbdxy,Xname,Yname); + Out=Nohiddenpers(Par,Fk,Tmp); + end; + + CRV3ONSFHIDDENDATA=HIDDENDATA; +endfunction; + |