Mercurial > hg > octave-lyh

comparison scripts/plot/polar.m @ 6302:a5cd8b77e892

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-02-13 08:08:33 by jwe]
author jwe
date Tue, 13 Feb 2007 08:10:51 +0000
parents 44c91c5dfe1d
children 2110cc251779
comparison
equal deleted inserted replaced
6301:2bab2360f07f 6302:a5cd8b77e892
27 ## stairs, replot, xlabel, ylabel, title} 27 ## stairs, replot, xlabel, ylabel, title}
28 ## @end deftypefn 28 ## @end deftypefn
29 29
30 ## Author: jwe 30 ## Author: jwe
31 31
32 function polar (varargin) 32 function retval = polar (varargin)
33 33
34 newplot (); 34 newplot ();
35 35
36 ## [h, varargin] = __plt_get_axis_arg__ ("semilogx", varargin{:}); 36 ## [h, varargin] = __plt_get_axis_arg__ ("semilogx", varargin{:});
37 h = gca (); 37 h = gca ();
40 40
41 if (nargs == 3) 41 if (nargs == 3)
42 if (! ischar (varargin{3})) 42 if (! ischar (varargin{3}))
43 error ("polar: third argument must be a string"); 43 error ("polar: third argument must be a string");
44 endif 44 endif
45 __plr2__ (h, varargin{:}); 45 tmp = __plr2__ (h, varargin{:});
46 elseif (nargin == 2) 46 elseif (nargin == 2)
47 if (ischar (varargin{2})) 47 if (ischar (varargin{2}))
48 __plr1__ (h, varargin{:}); 48 tmp = __plr1__ (h, varargin{:});
49 else 49 else
50 fmt = ""; 50 fmt = "";
51 __plr2__ (h, varargin{:}, fmt); 51 tmp = __plr2__ (h, varargin{:}, fmt);
52 endif 52 endif
53 elseif (nargin == 1) 53 elseif (nargin == 1)
54 fmt = ""; 54 fmt = "";
55 __plr1__ (h, varargin{:}, fmt); 55 tmp = __plr1__ (h, varargin{:}, fmt);
56 else 56 else
57 print_usage (); 57 print_usage ();
58 endif 58 endif
59 59
60 if (nargout > 0)
61 retval = tmp;
62 endif
63
60 endfunction 64 endfunction