Mercurial > hg > octave-nkf

changeset 6786:bb5958d3510a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-07-23 17:28:15 by jwe]
author jwe
date Mon, 23 Jul 2007 17:28:15 +0000
parents 5ce6ecc1377b
children 963a19576024
files scripts/general/cart2pol.m scripts/general/cart2sph.m
diffstat 2 files changed, 6 insertions(+), 6 deletions(-) [+]
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 ((! (ismatrix (X) && ismatrix (Y)))
-      || (! size_equal (X, Y))
-      || (nargin == 3 && (! (size (X) == size (Z) && ismatrix (Z)))))
+  if (! (ismatrix (X) && ismatrix (Y))
+      || ! size_equal (X, Y)
+      || (nargin == 3 && ! (size_equal (X, Z) && ismatrix (Z))))
     error ("cart2pol: arguments must be matrices of same size");
   endif
 
--- a/scripts/general/cart2sph.m
+++ b/scripts/general/cart2sph.m
@@ -36,9 +36,9 @@
     print_usage ();
   endif
 
-  if ((! (ismatrix (X) && ismatrix (Y) && ismatrix (Z)))
-      || (! size_equal (X, Y))
-      || (! size_equal (X, Z)))
+  if (! (ismatrix (X) && ismatrix (Y) && ismatrix (Z))
+      || ! size_equal (X, Y)
+      || ! size_equal (X, Z))
     error ("cart2sph: arguments must be matrices of same size");
   endif