diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci | 121 |
1 files changed, 0 insertions, 121 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci deleted file mode 100644 index 2e944821..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci +++ /dev/null @@ -1,121 +0,0 @@ -// 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; - |