diff options
author | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
commit | 138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch) | |
tree | cd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci | 102 |
1 files changed, 102 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci new file mode 100755 index 00000000..5fab30e2 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci @@ -0,0 +1,102 @@ +// 08.08.08 +// 09,02.27 + +function Out=Setax(varargin) + global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE; + Nargs=length(varargin); + if Nargs==0 + if ZIKU=='line' + Tmp=',' + else + Tmp='(Arrowsize='+string(ARROWSIZE)+'),' + end; + Str=... + ZIKU+Tmp+... + XNAME+','+XPOS+','+YNAME+','+... + YPOS+','+ONAME+','+OPOS; + Out=Str; + disp(Str); + return; + end; + ArgL=[]; + Is=1; + Tmp=varargin(1); + if type(Tmp)==1 & length(Tmp)==1 + Is=varargin(1); + ArgL=[]; + for I=1:Is-1 + ArgL=[ArgL,'']; + end + for I=2:Nargs + ArgL=[ArgL,varargin(I)]; + end + else + if Nargs==1 + ArgL=[varargin(1)]; + else + Tmp=varargin(2); + if type(Tmp)==1 & length(Tmp)==1 + ARROWSIZE=Tmp; + ArgL=[varargin(1)]; + for I=3:Nargs + ArgL=[ArgL,varargin(I)]; + end; + else + ArgL=[]; + for I=1:Nargs + ArgL=[ArgL,varargin(I)]; + end; + end + end + end + for I=size(ArgL,2)+1:7 + ArgL=[ArgL,'']; + end + Zk=ArgL(1); + if Zk~='' + ZL=msscanf(Zk,'%c%f'); + Zk=ZL(1); + if length(ZL)>1 // modified at 080807 + ARROWSIZE=ZL(2); + end + end + Xn=ArgL(2); Xp=ArgL(3); + Yn=ArgL(4); Yp=ArgL(5); + Genn=ArgL(6); Genp=ArgL(7); + if Zk~='' + C=Zk; + if C=='a' + ZIKU='arrow'; + else + ZIKU='line'; + end + end + if Xn~='' + XNAME='$'+Xn+'$' + end + if Xp~='' + XPOS=Xp + end + if Yn~='' + YNAME='$'+Yn+'$' + end + if Yp~='' + YPOS=Yp + end + if Genn~='' + ONAME=Genn + end + if Genp~='' + OPOS=Genp + end + if ZIKU=='line' + Tmp=',' + else + Tmp='(Arrowsize='+string(ARROWSIZE)+'),' + end; + Str=... + ZIKU+Tmp+... + XNAME+','+XPOS+','+YNAME+','+... + YPOS+','+ONAME+','+OPOS; + Out=Str; +endfunction; |