Mercurial > octave-nkf

comparison scripts/plot/__plr2__.m @ 6157:045038e0108a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-11-13 22:22:53 by jwe]
author jwe
date Mon, 13 Nov 2006 22:22:54 +0000
parents 34f96dd5441b
children 44c91c5dfe1d
comparison
equal deleted inserted replaced
6156:a46f14cdbecd 6157:045038e0108a
105 diag_r = diag (rho); 105 diag_r = diag (rho);
106 x = diag_r * cos (theta); 106 x = diag_r * cos (theta);
107 y = diag_r * sin (theta); 107 y = diag_r * sin (theta);
108 __plt__ ("polar", x, y, fmt); 108 __plt__ ("polar", x, y, fmt);
109 elseif (ismatrix (rho)) 109 elseif (ismatrix (rho))
110 if (size (rho) != size (theta)) 110 if (! size_equal (rho, theta))
111 error ("__plr2__: matrix dimensions must match"); 111 error ("__plr2__: matrix dimensions must match");
112 endif 112 endif
113 x = rho .* cos (theta); 113 x = rho .* cos (theta);
114 y = rho .* sin (theta); 114 y = rho .* sin (theta);
115 __plt__ ("polar", x, y, fmt); 115 __plt__ ("polar", x, y, fmt);