Mercurial > octave-nkf

comparison scripts/quaternion/qinv.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
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
30 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> 30 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
31 ## Adapted-By: jwe 31 ## Adapted-By: jwe
32 32
33 function retval = qinv (q) 33 function retval = qinv (q)
34 34
35 if (nargin != 1)
36 print_usage ();
37 endif
38
35 if (norm (q) != 0) 39 if (norm (q) != 0)
36 retval = qconj (q) / sum (q .* q); 40 retval = qconj (q) / sum (q .* q);
37 else 41 else
38 error ("qinv: zero quaternion passed!"); 42 error ("qinv: zero quaternion passed!");
39 endif 43 endif