From 8c3c49fd56de185396400a0e8a636ac03d8239ab Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 12 Feb 2018 14:52:54 +0900 Subject: update ketcindy --- .../ketlib/ketpicscifiles6/Intersectcrvsf.sci | 47 ---------------------- 1 file changed, 47 deletions(-) delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci deleted file mode 100644 index 2a2e5b6c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci +++ /dev/null @@ -1,47 +0,0 @@ -// 08.10.26 -// 10.02.16 - -function Out=Intersectcrvsf(varargin) - Nargs=length(varargin); - Eps0=10^(-4); - Crv=varargin(1); - Fd=varargin(2); - N=3;Uveq=1; - if Nargs>=3 - Tmp=varargin(3); - if type(Tmp)==10 - Uveq=Tmp; - N=4; - end; - end; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Out=[]; - for I=1:Numptcrv(Crv)-1 - PtA=Ptcrv(I,Crv); - PtB=Ptcrv(I+1,Crv); - if norm(PtB-PtA)