summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci105
1 files changed, 0 insertions, 105 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
deleted file mode 100644
index 5a15d61c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-// 08.09.09
-// 08.09.19
-// 08.09.20
-// 08.09.24
-// 08.10.09
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function EkL__=Sfcutdata(varargin)
- Nargs__=length(varargin);
- Fd__=varargin(1);
- CutD__=varargin(2);
- Np__=[50,50];
- if Nargs__>=3
- Tmp__=varargin(3);
- if type(Tmp__)==1 & length(Tmp__)==1
- Np__=[Tmp__,Tmp__];
- end;
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); Umax=Urg__(2);
- Vmin__=Vrg__(1); Vmax=Vrg__(2);
- if Mixtype(CutD__)~=1
- V1__=Mixop(1,CutD__);
- Tmp__=Mixop(2,CutD__);
- if length(Tmp__)>1
- D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- D__=Tmp__;
- end;
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-';
- Eq__=Tmp__+string(D__);
- elseif type(CutD__)==1
- V1__=CutD__(1:3);
- D__=CutD__(4);
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+';
- Eq__=Tmp__+string(D__);
- else
- K__=mtlb_findstr(CutD__,'=');
- if K__>0
- Tmp__1=part(CutD__,1:K__-1);
- Tmp__2=part(CutD__,K__+1:length(CutD__));
- Eq__=Tmp__1+'-('+Tmp__2+')';
- else
- Eq__=CutD__;
- end;
- end;
- Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')');
- Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')');
- Tmp__1=Mixop(5,Fd__L);
- Tmp__2=Mixop(6,Fd__L);
- CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__);
- EkL__=[];
- for I__=1:Mixlength(CutuvL__)
- Out__1=Mixop(I__,CutuvL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
-endfunction;