basis/math/quaternions/quaternions-tests.factor

   1 IN: math.quaternions.tests
   2 USING: tools.test math.quaternions kernel math.vectors
   3 math.constants ;
   4
   5 CONSTANT: q0 { 0 0 0 0 }
   6 CONSTANT: q1 { 1 0 0 0 }
   7 CONSTANT: qi { 0 1 0 0 }
   8 CONSTANT: qj { 0 0 1 0 }
   9 CONSTANT: qk { 0 0 0 1 }
  10
  11 { 1.0 } [ qi norm ] unit-test
  12 { 1.0 } [ qj norm ] unit-test
  13 { 1.0 } [ qk norm ] unit-test
  14 { 1.0 } [ q1 norm ] unit-test
  15 { 0.0 } [ q0 norm ] unit-test
  16 { t } [ qi qj q* qk = ] unit-test
  17 { t } [ qj qk q* qi = ] unit-test
  18 { t } [ qk qi q* qj = ] unit-test
  19 { t } [ qi qi q* q1 q+ q0 = ] unit-test
  20 { t } [ qj qj q* q1 q+ q0 = ] unit-test
  21 { t } [ qk qk q* q1 q+ q0 = ] unit-test
  22 { t } [ qi qj qk q* q* q1 q+ q0 = ] unit-test
  23 { t } [ qk qj q/ qi = ] unit-test
  24 { t } [ qi qk q/ qj = ] unit-test
  25 { t } [ qj qi q/ qk = ] unit-test
  26 { t } [ 1 c>q q1 = ] unit-test
  27 { t } [ C{ 0 1 } c>q qi = ] unit-test
  28 { t } [ qi qi q+ qi 2 q*n = ] unit-test
  29 { t } [ qi qi q- q0 = ] unit-test
  30 { t } [ qi qj q+ qj qi q+ = ] unit-test
  31 { t } [ qi qj q- qj qi q- -1 q*n = ] unit-test
  32
  33 { { 2 2 2 2 } } [ { 1 1 1 1 } 2 q*n ] unit-test
  34 { { 2 2 2 2 } } [ 2 { 1 1 1 1 } n*q ] unit-test