steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.quaternions: typo in n*q

db4
Joe Groff 2010-06-17 19:23:33 -07:00
parent e34a736b63
commit 28a56df0da
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/math/quaternions/quaternions-tests.factor
View File

@ -29,3 +29,6 @@ CONSTANT: qk { 0 0 0 1 }
[ t ] [ qi qi q- q0 = ] unit-test [ t ] [ qi qi q- q0 = ] unit-test
[ t ] [ qi qj q+ qj qi q+ = ] unit-test [ t ] [ qi qj q+ qj qi q+ = ] unit-test
[ t ] [ qi qj q- qj qi q- -1 q*n = ] unit-test [ t ] [ qi qj q- qj qi q- -1 q*n = ] unit-test
[ { 2 2 2 2 } ] [ { 1 1 1 1 } 2 q*n ] unit-test
[ { 2 2 2 2 } ] [ 2 { 1 1 1 1 } n*q ] unit-test

4
basis/math/quaternions/quaternions.factor
View File

@ -35,8 +35,8 @@ M: object qconjugate ( u -- u' )
: q/ ( u v -- u/v ) : q/ ( u v -- u/v )
qrecip q* ; inline qrecip q* ; inline
: n*q ( q n -- r ) : n*q ( n q -- r )
v*n ; inline n*v ; inline
: q*n ( q n -- r ) : q*n ( q n -- r )
v*n ; inline v*n ; inline