summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci34
1 files changed, 34 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci
new file mode 100755
index 00000000..59b4fdcc
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci
@@ -0,0 +1,34 @@
+// 08.05.18 Koshikawa
+// 08.05.19 Changed
+// 08.06.03
+// 09.11.12
+// 09.11.14 debug
+
+function PL=Intersectcrvs(varargin)
+ Nargs=length(varargin);
+ Eps=10^(-4);
+ Tmp=varargin(Nargs);
+ if type(Tmp)==1 & length(Tmp)==1
+ Eps=Tmp;
+ end
+ G1=varargin(1);
+ if Mixtype(G1)==1
+ G1=list(G1);
+ end;
+ G2=varargin(2);
+ if Mixtype(G2)==1
+ G2=list(G2); //
+ end;
+ PL=list();
+ for N=1:length(G1)
+ for M=1:length(G2)
+ KL=IntersectcrvsPp(G1(N),G2(M),Eps);
+ for I=1:length(KL)
+ Tmp=KL(I);;
+ P=Tmp(1);
+ PL($+1)=P;
+ end;
+ end;
+ end;
+endfunction
+