diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci deleted file mode 100644 index dc917f30..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.09.09 -// 08.10.08 -// 08.12.06 -// 08.12.30 -// 09.06.03 -// 13.10.19 ( __ added to variables ) - -function [Zval__,Xval__,Yval__]=Makevaltable(MS__) - Eps__=10^(-6); - Nargs__=Mixlength(MS__); - Fstr__=Mixop(1,MS__); - Tmp__=Mixop(2,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,Tmp1__-1); - Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=Mixop(3,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,Tmp1__-1); - Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=strsubst(Fstr__,Xname__,'x'); - Fstr__=strsubst(Tmp__,Yname__,'y'); - Tmp__=mtlb_findstr(Fstr__,Xname__); - if length(Tmp__)==0 - Fstr__=Fstr__+'+0*x'; - end; - Mdv__=50; - Ndv__=50; - if Nargs__>=4 - Tmp__=Mixop(4,MS__); - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==4 - Ndv__=Mdv__ - else - Tmp1__=Mixop(5,MS__); - if type(Tmp1__)==1 & length(Tmp1__)==1 - Ndv__=Tmp1__; - else - Ndv__=Mdv__; - end - end - end - end - X1__=Xrange__(1); X2__=Xrange__(2); - Y1__=Yrange__(1); Y2__=Yrange__(2); - Dx__=(X2__-X1__)/(Mdv__-1); - Dy__=(Y2__-Y1__)/(Ndv__-1); - Xval__=[]; - Tmp__=X1__; - while Tmp__<X2__+Eps__ - Xval__=[Xval__,Tmp__]; - Tmp__=Tmp__+Dx__; - end; - Yval__=[]; - Tmp__=Y1__; - while Tmp__<Y2__+Eps__ - Yval__=[Yval__,Tmp__]; - Tmp__=Tmp__+Dy__; - end; - I__=1; -// x=Xval; -// for y=Yval -// Tmp=evstr(Fstr); -// Zval(I,:)=Tmp; -// I=I+1; -// end; - for y=Yval__ - J__=1; - for x=Xval__ - Zval__(I__,J__)=evstr(Fstr__); - J__=J__+1; - end; - I__=I__+1; - end; -endfunction; - |