Mercurial > octave-nkf

comparison scripts/plot/polar.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 2884758e265b
children 390d93e20531
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
37 axes (h); 37 axes (h);
38 newplot (); 38 newplot ();
39 39
40 if (nargs == 3) 40 if (nargs == 3)
41 if (! ischar (varargin{3})) 41 if (! ischar (varargin{3}))
42 error ("polar: third argument must be a string"); 42 error ("polar: third argument must be a string");
43 endif 43 endif
44 tmp = __plr2__ (h, varargin{:}); 44 tmp = __plr2__ (h, varargin{:});
45 maxr = max (varargin {2} (:)); 45 maxr = max (varargin {2} (:));
46 elseif (nargs == 2) 46 elseif (nargs == 2)
47 if (ischar (varargin{2})) 47 if (ischar (varargin{2}))
48 tmp = __plr1__ (h, varargin{:}); 48 tmp = __plr1__ (h, varargin{:});
49 if (iscomplex(varargin{1})) 49 if (iscomplex(varargin{1}))
50 maxr = max (imag(varargin{1})(:)); 50 maxr = max (imag(varargin{1})(:));
51 else 51 else
52 maxr = max (varargin{1}(:)); 52 maxr = max (varargin{1}(:));
53 endif 53 endif
54 else 54 else
55 fmt = ""; 55 fmt = "";
56 tmp = __plr2__ (h, varargin{:}, fmt); 56 tmp = __plr2__ (h, varargin{:}, fmt);
57 maxr = max (varargin {2} (:)); 57 maxr = max (varargin {2} (:));
58 endif 58 endif
59 elseif (nargs == 1) 59 elseif (nargs == 1)
60 fmt = ""; 60 fmt = "";
61 tmp = __plr1__ (h, varargin{:}, fmt); 61 tmp = __plr1__ (h, varargin{:}, fmt);
62 if (iscomplex(varargin{1})) 62 if (iscomplex(varargin{1}))
63 maxr = max (imag(varargin{1})(:)); 63 maxr = max (imag(varargin{1})(:));
64 else 64 else
65 maxr = max (varargin{1}(:)); 65 maxr = max (varargin{1}(:));
66 endif 66 endif
67 else 67 else
68 print_usage (); 68 print_usage ();
69 endif 69 endif
70 70
71 set (h, "xlim", [-maxr, maxr], "ylim", [-maxr, maxr], 71 set (h, "xlim", [-maxr, maxr], "ylim", [-maxr, maxr],
72 "xaxislocation", "zero", "yaxislocation", "zero", 72 "xaxislocation", "zero", "yaxislocation", "zero",
73 "plotboxaspectratio", [1, 1, 1]); 73 "plotboxaspectratio", [1, 1, 1]);
74 74
75 if (nargout > 0) 75 if (nargout > 0)
76 retval = tmp; 76 retval = tmp;
77 endif 77 endif
78 unwind_protect_cleanup 78 unwind_protect_cleanup