Mercurial > octave-nkf

diff scripts/quaternion/qtrans.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children
line wrap: on
line diff
--- a/scripts/quaternion/qtrans.m	Thu Nov 08 01:09:44 2007 +0000
+++ b/scripts/quaternion/qtrans.m	Thu Nov 08 02:29:24 2007 +0000
@@ -28,6 +28,10 @@
 
 function v = qtrans (v, q)
 
+  if (nargin != 2)
+    print_usage ();
+  endif
+
   if (! isvector (v) || length (v) != 4)
     error ("qtrans: v(%d,%d) must be a quaternion", rows (v), columns (v));
   elseif (! isvector (q) || length (q) != 4)