Mercurial > hg > octave-nkf
diff scripts/general/cart2pol.m @ 4030:22bd65326ec1
[project @ 2002-08-09 18:58:13 by jwe]
author | jwe |
---|---|
date | Fri, 09 Aug 2002 19:00:16 +0000 |
parents | 63c75bc3db82 |
children | c08cb1098afc |
line wrap: on
line diff
--- a/scripts/general/cart2pol.m +++ b/scripts/general/cart2pol.m @@ -40,9 +40,9 @@ error ("cart2pol: number of output arguments must not be greater than number of input arguments"); endif - if ((! (is_matrix (X) && is_matrix (Y))) + if ((! (ismatrix (X) && ismatrix (Y))) || (size (X) != size (Y)) - || (nargin == 3 && (! (size (X) == size (Z) && is_matrix (Z))))) + || (nargin == 3 && (! (size (X) == size (Z) && ismatrix (Z))))) error ("cart2pol: arguments must be matrices of same size"); endif