From dc71274f16f7ff65145e034900f582b62453a033 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 14 Oct 2017 11:43:11 +0900 Subject: rename and update ketpic -> ketcindy --- .../ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci | 111 +++++++++++++++++++++ 1 file changed, 111 insertions(+) create mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci new file mode 100644 index 00000000..fb8aa27b --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci @@ -0,0 +1,111 @@ +// 08.09.13 +// 08.09.16 +// 08.10.11 +// 08.10.27 +// 14.07.07 debug ( Kitahara ) + +function EhL=Makexybdy(Fd,Np) + Eps0=10^(-4); + FdL=Fullformfunc(Fd); + Tmp1=Mixop(2,FdL); + Tmp2=Mixop(3,FdL); + Xystr=[Tmp1,Tmp2]; + Tmp=Mixop(5,FdL); + K=mtlb_findstr(Tmp,'='); + Uname=part(Tmp,1:K-1); + Urg=evstr(part(Tmp,K+1:length(Tmp))); + Tmp=Mixop(6,FdL); + K=mtlb_findstr(Tmp,'='); + Vname=part(Tmp,1:K-1); + Vrg=evstr(part(Tmp,K+1:length(Tmp))); + Umin=Urg(1); Umax=Urg(2); + Vmin=Vrg(1); Vmax=Vrg(2); + DrwS=Mixop(7,FdL); + Cflg=0; + EhL=[]; + Tmp=mtlb_findstr(DrwS,'e'); + if length(Tmp)~=0 + Tmp1=strsubst(Xystr,Uname,'('+string(Umax)+')'); + Tmp2=Mixop(6,FdL); + Tmp3='N='+string(Np(2)); + Tmp=Paramplot(Tmp1,Tmp2,Tmp3); + if norm(Ptstart(Tmp)-Ptend(Tmp))