summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci120
1 files changed, 0 insertions, 120 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
deleted file mode 100644
index f86ddfa0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.28
-// 09.03.09
-// 09.05.27
-// 09.06.03
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-
-function FsL__=Borderpersdata(varargin)
- global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA
- global PARTITIONPT
- Nargs__=length(varargin);
- FkL__=varargin(1);
- Fd__=varargin(2); N=3;
- FdL__=Fullformfunc(Fd__);
- Fxy__=Mixop(1,FdL__);
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- DrwS__=Mixop(7,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Np__=[50,50];
- if Nargs__>=3
- Np__=varargin(3); N=4;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=0.05;
- Eps__=[0.05,1]; //
- if Nargs__>=N Eps__=varargin(N); end;
- Eps__2=0.2;
- if Nargs__>=N+1 Eps__2=varargin(N+1); end;
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- EkL__=[];
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- if Mixlength(EkL__)>0
- FkL__=Mixjoin(FkL__,EkL__);
- end;
- Fall__=Projpers(FkL__);
- if Mixtype(Fall__)==1
- Fall__=Mix(Fall__);
- end;
- Fbdxy__=Makexybdy(Fd__,Np__);
- 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);
- BORDERPT=[];
- Tmp__=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixadd(Tmp__,[]);
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixop(I__,FkL__);
- Tmp__=Projpers(Tmp__);
- Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__);
- if Mixlength(PARTITIONPT)>2
- Tmp__=Mixlength(PARTITIONPT)-1;
- Tmp__1=Mixsub(2:Tmp__,PARTITIONPT);
- BORDERPT=Mixjoin(BORDERPT,Tmp__1);
- end;
- Tmp__1=Mixop(I__,FkL__);
- Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__);
- if Mixlength(HIDDENDATA)>0
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- end;
- if Mixlength(Tmp__)>0
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- end;
-endfunction;
-