summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci86
1 files changed, 0 insertions, 86 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
deleted file mode 100644
index f3bdf700..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function OutL=Crvonsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs=length(varargin);
- Eps0=10^(-4);
- Figuv=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Xf=Mixop(2,FdL);
- Yf=Mixop(3,FdL);
- Zf=Mixop(4,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1
- Eps=[Eps,1];
- end;
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- 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(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)));
- Fbdxy=Makexybdy(Fd,Np);
- Fbdyuv=Mixop(8,FdL);
- if Fbdyuv==[]
- Fbdyuv=Mix(Framedata(Urg,Vrg));
- end;
- FigL=Clipindomain(Figuv,Fbdyuv);
- CRVONSFHIDDENDATA=[];
- OutL=[];
- for N=1:Mixlength(FigL)
- PtL=Mixop(N,FigL);
- Tmp=[];
- for I=1:size(PtL,1)
- P=PtL(I,:);
- Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')');
- Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')');
- Tmp1=evstr(Tmp1);
- Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')');
- Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')');
- Tmp2=evstr(Tmp2);
- Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')');
- Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')');
- Tmp3=evstr(Tmp3);
- Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]];
- end;
- Fk=Spaceline(Tmp);
- Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp1=Mix(Fxy,Fbdxy,Xname,Yname);
- Tmp=Nohiddenpers(Par,Fk,Tmp1);
- end;
- OutL=Mixjoin(OutL,Tmp);
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-