extra/math/matrices/matrices-tests.factor

   1 IN: math.matrices.tests
   2 USING: math.matrices math.vectors tools.test math ;
   3
   4 [
   5     { { 0 } { 0 } { 0 } }
   6 ] [
   7     3 1 zero-matrix
   8 ] unit-test
   9
  10 [
  11     { { 1 0 0 }
  12        { 0 1 0 }
  13        { 0 0 1 } }
  14 ] [
  15     3 identity-matrix
  16 ] unit-test
  17
  18 [
  19     { { 1 0 4 }
  20        { 0 7 0 }
  21        { 6 0 3 } }
  22 ] [
  23     { { 1 0 0 }
  24        { 0 2 0 }
  25        { 0 0 3 } }
  26
  27     { { 0 0 4 }
  28        { 0 5 0 }
  29        { 6 0 0 } }
  30
  31     m+
  32 ] unit-test
  33
  34 [
  35     { { 1 0 4 }
  36        { 0 7 0 }
  37        { 6 0 3 } }
  38 ] [
  39     { { 1 0 0 }
  40        { 0 2 0 }
  41        { 0 0 3 } }
  42
  43     { { 0 0 -4 }
  44        { 0 -5 0 }
  45        { -6 0 0 } }
  46
  47     m-
  48 ] unit-test
  49
  50 [
  51     { 10 20 30 }
  52 ] [
  53     10 { 1 2 3 } n*v
  54 ] unit-test
  55
  56 [
  57     { 3 4 }
  58 ] [
  59     { { 1 0 }
  60        { 0 1 } }
  61
  62     { 3 4 }
  63
  64     m.v
  65 ] unit-test
  66
  67 [
  68     { 4 3 }
  69 ] [
  70     { { 0 1 }
  71        { 1 0 } }
  72
  73     { 3 4 }
  74
  75     m.v
  76 ] unit-test
  77
  78 [
  79     { { 6 } }
  80 ] [
  81     { { 3 } } { { 2 } } m.
  82 ] unit-test
  83
  84 [
  85     { { 11 } }
  86 ] [
  87     { { 1 3 } } { { 5 } { 2 } } m.
  88 ] unit-test
  89
  90 [
  91     { { 28 } }
  92 ] [
  93     { { 2 4 6 } }
  94
  95     { { 1 }
  96        { 2 }
  97        { 3 } }
  98
  99     m.
 100 ] unit-test
 101
 102 [ { 0 0 -1 } ] [ { 1 0 0 } { 0 1 0 } cross ] unit-test
 103 [ { 1 0 0 } ] [ { 0 1 0 } { 0 0 1 } cross ] unit-test
 104 [ { 0 1 0 } ] [ { 0 0 1 } { 1 0 0 } cross ] unit-test
 105
 106 [ { 1 0 0 } ] [ { 1 1 0 } { 1 0 0 } proj ] unit-test