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/Sfbdparadata.sci | 39 ++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100755 texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci') diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci new file mode 100755 index 00000000..7a759f69 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci @@ -0,0 +1,39 @@ +// 08.09.13 +// 10.02.16 Eps => [Eps, Epsmag] + +function Out5=Sfbdparadata(varargin) + global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; + Nargs=length(varargin); + Fd=varargin(1); + FdL=Fullformfunc(Fd); + Np=[50,50]; + if Nargs>=2 + Np=varargin(2); + if type(Np)==1 & length(Np)==1 + Np=[Np,Np]; + end; + end; + Eps=[0.05,1]; // + if Nargs>=3 + Eps=varargin(3); + end; + if length(Eps)==1 // + Eps=[Eps,1]; // + end; // + Eps2=0.2; + if Nargs>=4 + Eps2=varargin(4); + end; + Ts=timer(); + [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); + Out3=Implicitplot(Zval,Xval,Yval); + IMPLICITDATA=Out3; + Mixdisp(Mix('ImplicitData obtained ',timer())); + Out4=Cuspsplitpara(Out3,Fd,Eps(1)); // + CUSPDATA=Out4; + CUSPPT=CUSPSPLITPT; + Mixdisp(Mix('CuspData obtained ',timer())); + Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2); + Mixdisp(Mix('BorderData obtained ',timer())); +endfunction; + -- cgit v1.2.3