summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci
blob: b091754f50a86c253e8e2a2a97e00ccd75e25748 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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