Mercurial > hg > octave-lyh
diff scripts/plot/__plr2__.m @ 4030:22bd65326ec1
[project @ 2002-08-09 18:58:13 by jwe]
author | jwe |
---|---|
date | Fri, 09 Aug 2002 19:00:16 +0000 |
parents | 858695b3ed62 |
children | 57372235194b |
line wrap: on
line diff
--- a/scripts/plot/__plr2__.m +++ b/scripts/plot/__plr2__.m @@ -37,14 +37,14 @@ rho = real (rho); endif - if (is_scalar (theta)) - if (is_scalar (rho)) + if (isscalar (theta)) + if (isscalar (rho)) x = rho * cos (theta); y = rho * sin (theta); __plt2ss__ (x, y, fmt); endif - elseif (is_vector (theta)) - if (is_vector (rho)) + elseif (isvector (theta)) + if (isvector (rho)) if (length (theta) != length (rho)) error ("polar: vector lengths must match"); endif @@ -57,7 +57,7 @@ x = rho .* cos (theta); y = rho .* sin (theta); __plt2vv__ (x, y, fmt); - elseif (is_matrix (rho)) + elseif (ismatrix (rho)) [t_nr, t_nc] = size (theta); if (t_nr == 1) theta = theta'; @@ -79,8 +79,8 @@ y = diag (sin (theta)) * rho; __plt2vm__ (x, y, fmt); endif - elseif (is_matrix (theta)) - if (is_vector (rho)) + elseif (ismatrix (theta)) + if (isvector (rho)) [r_nr, r_nc] = size (rho); if (r_nr == 1) rho = rho'; @@ -102,7 +102,7 @@ x = diag_r * cos (theta); y = diag_r * sin (theta); __plt2mv__ (x, y, fmt); - elseif (is_matrix (rho)) + elseif (ismatrix (rho)) if (size (rho) != size (theta)) error ("polar: matrix dimensions must match"); endif