126 lines
1.6 KiB
Factor
126 lines
1.6 KiB
Factor
IN: temporary
|
|
USING: kernel lists math matrices namespaces sequences test
|
|
vectors ;
|
|
|
|
[
|
|
{ { 0 } { 0 } { 0 } }
|
|
] [
|
|
3 1 zero-matrix
|
|
] unit-test
|
|
|
|
[
|
|
{ { 1 0 0 }
|
|
{ 0 1 0 }
|
|
{ 0 0 1 } }
|
|
] [
|
|
3 identity-matrix
|
|
] unit-test
|
|
|
|
[
|
|
{ { 1 0 4 }
|
|
{ 0 7 0 }
|
|
{ 6 0 3 } }
|
|
] [
|
|
{ { 1 0 0 }
|
|
{ 0 2 0 }
|
|
{ 0 0 3 } }
|
|
|
|
{ { 0 0 4 }
|
|
{ 0 5 0 }
|
|
{ 6 0 0 } }
|
|
|
|
m+
|
|
] unit-test
|
|
|
|
[
|
|
{ { 1 0 4 }
|
|
{ 0 7 0 }
|
|
{ 6 0 3 } }
|
|
] [
|
|
{ { 1 0 0 }
|
|
{ 0 2 0 }
|
|
{ 0 0 3 } }
|
|
|
|
{ { 0 0 -4 }
|
|
{ 0 -5 0 }
|
|
{ -6 0 0 } }
|
|
|
|
m-
|
|
] unit-test
|
|
|
|
[
|
|
{ 10 20 30 }
|
|
] [
|
|
10 { 1 2 3 } n*v
|
|
] unit-test
|
|
|
|
[
|
|
{ 3 4 }
|
|
] [
|
|
{ { 1 0 }
|
|
{ 0 1 } }
|
|
|
|
{ 3 4 }
|
|
|
|
m.v
|
|
] unit-test
|
|
|
|
[
|
|
{ 4 3 }
|
|
] [
|
|
{ { 0 1 }
|
|
{ 1 0 } }
|
|
|
|
{ 3 4 }
|
|
|
|
m.v
|
|
] unit-test
|
|
|
|
[ { 0 0 1 } ] [ { 1 0 0 } { 0 1 0 } cross ] unit-test
|
|
[ { 1 0 0 } ] [ { 0 1 0 } { 0 0 1 } cross ] unit-test
|
|
[ { 0 1 0 } ] [ { 0 0 1 } { 1 0 0 } cross ] unit-test
|
|
|
|
[ { { 1 2 } { 3 4 } { 5 6 } } ]
|
|
[ { { 1 2 } { 3 4 } { 5 6 } } flip flip ]
|
|
unit-test
|
|
|
|
[ { { 1 3 5 } { 2 4 6 } } ]
|
|
[ { { 1 3 5 } { 2 4 6 } } flip flip ]
|
|
unit-test
|
|
|
|
[ { { 1 3 5 } { 2 4 6 } } ]
|
|
[ { { 1 2 } { 3 4 } { 5 6 } } flip ]
|
|
unit-test
|
|
|
|
[ { t t t } ]
|
|
[ { 1 2 3 } { -1 -2 -3 } { 4 5 6 } vbetween? ]
|
|
unit-test
|
|
|
|
[ { t f t } ]
|
|
[ { 1 10 3 } { -1 -2 -3 } { 4 5 6 } vbetween? ]
|
|
unit-test
|
|
|
|
[
|
|
{ { 6 } }
|
|
] [
|
|
{ { 3 } } { { 2 } } m.
|
|
] unit-test
|
|
|
|
[
|
|
{ { 11 } }
|
|
] [
|
|
{ { 1 3 } } { { 5 } { 2 } } m.
|
|
] unit-test
|
|
|
|
[
|
|
{ { 28 } }
|
|
] [
|
|
{ { 2 4 6 } }
|
|
|
|
{ { 1 }
|
|
{ 2 }
|
|
{ 3 } }
|
|
|
|
m.
|
|
] unit-test
|