From dc71274f16f7ff65145e034900f582b62453a033 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 14 Oct 2017 11:43:11 +0900 Subject: rename and update ketpic -> ketcindy --- .../ketlib/ketpicscifiles6/Borderparadata.sci | 121 +++++++++++++++++++++ 1 file changed, 121 insertions(+) create mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci new file mode 100644 index 00000000..2e944821 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci @@ -0,0 +1,121 @@ +// 08.09.13 +// 08.09.16 +// 08.10.10 +// 08.10.11 +// 08.10.15 +// 08.10.28 +// 09.03.09 +// 09.05.27 +// 09.06.03 +// 10.02.16 Eps=> [Eps, Epsmg] +// 13.10.21 ( __ added to varibles ) + +function FsL__=Borderparadata(varargin) + global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA + global PARTITIONPT + Nargs__=length(varargin); + FkL__=varargin(1); + Fd__=varargin(2); N__=3; + FdL__=Fullformfunc(Fd__); + Fxy__=Mixop(1,FdL__); + Tmp__1=Mixop(2,FdL__); + Tmp__2=Mixop(3,FdL__); + Tmp__3=Mixop(4,FdL__); + Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; + DrwS__=Mixop(7,FdL__); + Tmp__=Mixop(5,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Uname__=part(Tmp__,1:K__-1); + Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Tmp__=Mixop(6,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Vname__=part(Tmp__,1:K__-1); + Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); + Np__=[50,50]; + if Nargs__>=3 + Np__=varargin(3); N__=4; + if type(Np__)==1 & length(Np__)==1 + Np__=[Np__,Np__]; + end; + end; + Eps__=[0.05,1]; // + if Nargs__>=N__ Eps__=varargin(N__); end; + Eps__2=0.2; + if Nargs__>=N__+1 Eps__2=varargin(N__+1); end; + Umin__=Urg__(1); Umax__=Urg__(2); + Vmin__=Vrg__(1); Vmax__=Vrg__(2); + EkL__=[]; + Tmp__=mtlb_findstr(DrwS__,'e'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); + Tmp__2=Mixop(6,FdL__); + Tmp__3='N='+string(Np__(2)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'n'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); + Tmp__2=Mixop(5,FdL__); + Tmp__3='N='+string(Np__(1)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'w'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); + Tmp__2=Mixop(6,FdL__); + Tmp__3='N='+string(Np__(2)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + Tmp__=mtlb_findstr(DrwS__,'s'); + if length(Tmp__)~=0 + Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); + Tmp__2=Mixop(5,FdL__); + Tmp__3='N='+string(Np__(1)); + Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); + EkL__=Mixadd(EkL__,Tmp__); + end; + if Mixlength(EkL__)>0 + FkL__=Mixjoin(FkL__,EkL__); + end; + Fall__=Projpara(FkL__); + if Mixtype(Fall__)==1 + Fall__=Mix(Fall__) + end; + Fbdxy__=Makexybdy(Fd__,Np__); + 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); + BORDERPT=[]; + Tmp__=[]; + for I__=1:Mixlength(Fall__) + Tmp__=Mixadd(Tmp__,[]); + end; + OTHERPARTITION=Tmp__; + FsL__=[]; + BORDERHIDDENDATA=[]; + for I__=1:Mixlength(Fall__) + Tmp__=Mixop(I__,FkL__); + Tmp__=Projpara(Tmp__); + Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); // + if Mixlength(PARTITIONPT)>2 + Tmp__=Mixlength(PARTITIONPT)-1; + Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); + BORDERPT=Mixjoin(BORDERPT,Tmp__1); + end; + Tmp__1=Mixop(I__,FkL__); + Tmp__=Nohiddenpara2(Par__,Tmp__1,Fd__,1,Np__,Eps__); + if Mixlength(HIDDENDATA)>0 + BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); + end; + if Mixlength(Tmp__)>0 + FsL__=Mixjoin(FsL__,Tmp__); + end; + end; +endfunction; + -- cgit v1.2.3