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/Joincrvs.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci deleted file mode 100644 index 04aaf4eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.31 -// 08.08.22 -// 08.09.14 -// 08.09.20 -// 08.10.27 -// 11.06.25 - -function PtL=Joincrvs(varargin) - Nall=length(varargin); - Eps=10^(-4); - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 - Eps=Tmp; - Nall=Nall-1; - end; - QdL=list(); - for I=1:Nall - QdL($+1)=varargin(I); // 11.06.25 - end; - QdL=Flattenlist(QdL); // 11.06.25 - if length(QdL)==0 - PtL=[]; - return; - end; - PtL=[Mixop(1,QdL)]; - for I=2:Mixlength(QdL) - Qd=QdL(I); - if Numptcrv(Qd)<=1 // 11.06.25 - continue; - end; - P=Ptend(PtL) - S=Ptstart(PtL); - Q=Ptstart(Qd); - R=Ptend(Qd); - MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R)); - if MN==norm(P-R) - Qd=Invert(Qd); - elseif MN==norm(S-Q) - PtL=Invert(PtL); - elseif MN==norm(S-R); - PtL=Invert(PtL); - Qd=Invert(Qd); - end; - if MN>Eps - PtL=[PtL;Qd]; - else - PtL=[PtL;Qd(2:size(Qd,1),:)]; - end; - end; -endfunction; - |