diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci new file mode 100755 index 00000000..9833a7f4 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci @@ -0,0 +1,42 @@ + +// 08.09.21 +// 10.02.16 Eps => [Eps, Epsmag] +// 13.11.02 bug + +function Out5=Sfbdpersdata(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]=Evlptablepers(Mix(Fd,Np)); + Out3=Implicitplot(Zval,Xval,Yval); + IMPLICITDATA=Out3; + Mixdisp(Mix('ImplicitData obtained ',timer())); + Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02 + CUSPDATA=Out4; + CUSPPT=CUSPSPLITPT; + Mixdisp(Mix('CuspData obtained ',timer())); + Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2); + Mixdisp(Mix('BorderData obtained ',timer())); +endfunction; + + |