diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci new file mode 100755 index 00000000..9c20a13b --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci @@ -0,0 +1,62 @@ +// 08.08.16 +// 08.10.10 +// 13.10.21 ( __ added to varibles ) + +function PL__=Sf3data(varargin) + Nargs__=length(varargin); + FdL__=Fullformfunc(varargin(1)); + F__=Mixop(1,FdL__); + Xf__=Mixop(2,FdL__); + Yf__=Mixop(3,FdL__); + Zf__=Mixop(4,FdL__); + Urg__=Mixop(5,FdL__); + Vrg__=Mixop(6,FdL__); + K__=mtlb_findstr(Urg__,'='); + U__=part(Urg__,1:K__-1); + Tmp__=part(Urg__,K__+1:length(Urg__)); + Tmp__=evstr(Tmp__); + Umin__=Tmp__(1); Umax__=Tmp__(2); + K__=mtlb_findstr(Vrg__,'='); + V__=part(Vrg__,1:K__-1); + Tmp__=part(Vrg__,K__+1:length(Vrg__)); + Tmp__=evstr(Tmp__); + Vmin__=Tmp__(1); Vmax__=Tmp__(2); + Ndu__=25 ; Ndv__=25; Np__=[50,50]; + if Nargs__>=3 + Ndu__=varargin(2); + Ndv__=varargin(3); + end; + if Nargs__>=4 + Np__=varargin(4); + if type(Np__)==1 & length(Np__)==1 + Np__=[Np__,Np__]; + end; + end; + Du__=(Umax__-Umin__)/Ndu__; + Dv__=(Vmax__-Vmin__)/Ndv__; + PL__ = []; + for I__=0:Ndu__ + U0__ ='('+string(Umin__+I__*Du__)+')'; + Tmp__=strsubst(Xf__,U__,U0__); + Tmp1__=strsubst(Tmp__,V__,'t'); + Tmp__=strsubst(Yf__,U__,U0__); + Tmp2__=strsubst(Tmp__,V__,'t'); + Tmp__=strsubst(Zf__,U__,U0__); + Tmp3__=strsubst(Tmp__,V__,'t'); + Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; + PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2))); + PL__=Mixadd(PL__,PD__); + end; + for J__=0:Ndv__ + V0__='('+string(Vmin__+J__*Dv__)+')'; + Tmp__=strsubst(Xf__,V__,V0__); + Tmp1__=strsubst(Tmp__,U__,'t'); + Tmp__=strsubst(Yf__,V__,V0__); + Tmp2__=strsubst(Tmp__,U__,'t'); + Tmp__=strsubst(Zf__,V__,V0__); + Tmp3__=strsubst(Tmp__,U__,'t'); + Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; + PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1))); + PL__=Mixadd(PL__,PD__); + end; +endfunction; |