Mercurial > hg > octave-nkf

diff scripts/quaternion/qtransv.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents d25bc039237b
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/quaternion/qtransv.m
+++ b/scripts/quaternion/qtransv.m
@@ -36,9 +36,9 @@
 
 function vi = qtransv (vb, qib)
 
-  if (! is_vector (vb) || length (vb) != 3)
+  if (! isvector (vb) || length (vb) != 3)
     error ("qtransv: v(%d,%d) must be a 3-D vector", rows (vb), columns (vb));
-  elseif (! is_vector (qib) || length (qib) != 4)
+  elseif (! isvector (qib) || length (qib) != 4)
     error ("qtransv: q(%d,%d) must be a quaternion", rows (qib), columns (qib));
   elseif (max (abs (imag (vb))) + max (abs (imag (qib))) != 0)
     error ("qtransv: input values must be real");