Mercurial > hg > octave-nkf

diff scripts/quaternion/qtransvmat.m @ 4877:0ab4fd8ded30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-04-22 19:59:44 by jwe]
author jwe
date Thu, 22 Apr 2004 19:59:44 +0000
parents 22bd65326ec1
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/quaternion/qtransvmat.m
+++ b/scripts/quaternion/qtransvmat.m
@@ -36,14 +36,15 @@
     error ("qtransvmat: input values must be real");
   endif
 
-  Aib = [(2.*(qib(1)^2 + qib(4)^2) -1.),
-	 (2.*(qib(1)*qib(2)-qib(3)*qib(4))),
+
+  Aib = [(2.*(qib(1)^2 + qib(4)^2) -1.), ...
+	 (2.*(qib(1)*qib(2)-qib(3)*qib(4))), ...
 	 (2.*(qib(1)*qib(3)+qib(2)*qib(4)));
-	 (2.*(qib(1)*qib(2)+qib(3)*qib(4))),
-	 (2.*(qib(2)*qib(2)+qib(4)*qib(4))-1.),
+	 (2.*(qib(1)*qib(2)+qib(3)*qib(4))), ...
+	 (2.*(qib(2)*qib(2)+qib(4)*qib(4))-1.), ...
 	 (2.*(qib(2)*qib(3)-qib(1)*qib(4)));
-	 (2.*(qib(1)*qib(3)-qib(2)*qib(4))),
-	 (2.*(qib(2)*qib(3)+qib(1)*qib(4))),
+	 (2.*(qib(1)*qib(3)-qib(2)*qib(4))), ...
+	 (2.*(qib(2)*qib(3)+qib(1)*qib(4))), ...
 	 (2.*(qib(3)*qib(3)+qib(4)*qib(4))-1.)];
 
 endfunction