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
|