diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci deleted file mode 100644 index a530284b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci +++ /dev/null @@ -1,90 +0,0 @@ -// 08.09.16 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps -// 13.10.22 ( __ added to varibles ) - -function OutL__=Crvonsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA - Nargs__=length(varargin); - Eps__0=10^(-4); - Figuv__=varargin(1); - Fbdy__=Projpara(varargin(2)); - Fd__=varargin(3); N__=4; - Fd__L=Fullformfunc(Fd__); - Fxy__=Mixop(1,Fd__L); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - 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; - Eps__2=0.2; - if Nargs__>=N__+1 - Eps__2=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); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Fbdxy__=Makexybdy(Fd__,Np__); - Fbdy__uv=Mixop(8,Fd__L); - if Fbdy__uv==[] - Fbdy__uv=Mix(Framedata(Urg__,Vrg__)); - end; - FigL__=Clipindomain(Figuv__,Fbdy__uv); - CRVONSFHIDDENDATA=[]; - OutL__=[]; - for N__=1:Mixlength(FigL__) - PtL__=Mixop(N__,FigL__); - Tmp__=[]; - for I__=1:size(PtL__,1) - P__=PtL__(I__,:); - Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')'); - Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')'); - Tmp__1=evstr(Tmp__1); - Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')'); - Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')'); - Tmp__2=evstr(Tmp__2); - Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')'); - Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')'); - Tmp__3=evstr(Tmp__3); - Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]]; - end; - Fk__=Spaceline(Tmp__); - Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); // - if Fxy__=='p' - Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__); - else - Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__); - Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1); - end; - if Tmp__~=[] - OutL__=Mixjoin(OutL__,Tmp__); - end; - if HIDDENDATA~=[] - CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); - end; - end; -endfunction; |