summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci62
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;