diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci deleted file mode 100644 index a404370a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci +++ /dev/null @@ -1,53 +0,0 @@ -// 08.05.31 -// 08.06.03 -// 08.10.07 - -function Ans=Nearestpt(varargin) - Nargs=length(varargin); - PL1=varargin(1); - if size(PL1,1)==1 - Flg=0; - else - Flg=1 - end - Eps=10.0^(-6); -// Fig=varargin(2); - PL=varargin(2); - Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:))); - for N=1:size(PL1,1) - PA=PL1(N,:); - Pm=PL(1,:); - Im=1; - Sm=norm(Pm-PA); - for I=1:size(PL,1)-1 - A1=PL(I,1); A2=PL(I,2); - B1=PL(I+1,1); B2=PL(I+1,2); - V1=B1-A1; V2=B2-A2; - X1=PA(1); X2=PA(2); - Tmp=V2^2+V1^2; - if abs(Tmp)<Eps - continue; - end; - T=(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp; - if T<-Eps - P=[A1,A2]; - elseif T>1+Eps - P=[B1,B2]; - else - P=[A1+T*V1,A2+T*V2]; - end - S=norm(P-PA); - if S<Sm-Eps - Tmp=ParamonCurve(P,I,PL); - Pm=P; Im=Tmp; Sm=S; - end - end - if Sm<Op(5,Ans) - Ans=MixS(PA,N,Pm,Im,Sm); - end - end - if Flg==0 - Ans=Mixsub(3:5,Ans); - end -endfunction; - |