summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci90
1 files changed, 90 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci
new file mode 100755
index 00000000..a530284b
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci
@@ -0,0 +1,90 @@
+// 08.09.16
+// 08.10.11
+// 08.10.15
+// 10.02.16 Eps
+// 13.10.22 ( __ added to varibles )
+
+function OutL__=Crvonsfparadata(varargin)
+ global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
+ Nargs__=length(varargin);
+ Eps__0=10^(-4);
+ Figuv__=varargin(1);
+ Fbdy__=Projpara(varargin(2));
+ Fd__=varargin(3); N__=4;
+ Fd__L=Fullformfunc(Fd__);
+ Fxy__=Mixop(1,Fd__L);
+ Xf__=Mixop(2,Fd__L);
+ Yf__=Mixop(3,Fd__L);
+ Zf__=Mixop(4,Fd__L);
+ 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;
+ Eps__2=0.2;
+ if Nargs__>=N__+1
+ Eps__2=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,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__)));
+ Fbdxy__=Makexybdy(Fd__,Np__);
+ Fbdy__uv=Mixop(8,Fd__L);
+ if Fbdy__uv==[]
+ Fbdy__uv=Mix(Framedata(Urg__,Vrg__));
+ end;
+ FigL__=Clipindomain(Figuv__,Fbdy__uv);
+ CRVONSFHIDDENDATA=[];
+ OutL__=[];
+ for N__=1:Mixlength(FigL__)
+ PtL__=Mixop(N__,FigL__);
+ Tmp__=[];
+ for I__=1:size(PtL__,1)
+ P__=PtL__(I__,:);
+ Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')');
+ Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')');
+ Tmp__1=evstr(Tmp__1);
+ Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')');
+ Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')');
+ Tmp__2=evstr(Tmp__2);
+ Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')');
+ Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')');
+ Tmp__3=evstr(Tmp__3);
+ Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]];
+ end;
+ Fk__=Spaceline(Tmp__);
+ Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); //
+ if Fxy__=='p'
+ Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__);
+ else
+ Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
+ Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1);
+ end;
+ if Tmp__~=[]
+ OutL__=Mixjoin(OutL__,Tmp__);
+ end;
+ if HIDDENDATA~=[]
+ CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
+ end;
+ end;
+endfunction;