diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci deleted file mode 100644 index 9c20a13b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci +++ /dev/null @@ -1,62 +0,0 @@ -// 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; |