From 138f77fe71e43adc24ecb030d73df81cc5c4eb7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Sep 2017 09:45:51 +0900 Subject: add ketpic --- .../ketlib/ketpic2escifiles6/Crvonsfparadata.sci | 90 ++++++++++++++++++++++ 1 file changed, 90 insertions(+) create mode 100755 texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci') diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci new file mode 100755 index 00000000..a530284b --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci @@ -0,0 +1,90 @@ +// 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; -- cgit v1.2.3