diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci new file mode 100644 index 00000000..b091754f --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci @@ -0,0 +1,17 @@ +function Drwxy(varargin) + global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE + global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN; + Nargs=length(varargin) + Tmp=mtlb_findstr(ZIKU,'arrow'); + if Tmp~=[] + Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE); + Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE); + else + Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)])); + Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX])); + end; + Letter([XMAX,GENTEN(2)],XPOS,XNAME); + Letter([GENTEN(1),YMAX],YPOS,YNAME); + Letter(GENTEN,OPOS,ONAME); +endfunction + |