diff options
author | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
commit | dc71274f16f7ff65145e034900f582b62453a033 (patch) | |
tree | a71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
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, 0 insertions, 62 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci deleted file mode 100755 index 9c20a13b..00000000 --- a/texmf-dist/scripts/ketpic/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; |