factor/library/test/math/matrices.factor

126 lines
1.8 KiB
Factor
Raw Normal View History

2005-04-30 02:01:04 -04:00
IN: temporary
USING: kernel lists math matrices namespaces sequences test
vectors ;
2005-04-30 02:01:04 -04:00
[
@{ @{ 0 }@ @{ 0 }@ @{ 0 }@ }@
2005-04-30 02:01:04 -04:00
] [
2005-07-30 02:08:59 -04:00
3 1 zero-matrix
2005-04-30 02:01:04 -04:00
] unit-test
[
@{ @{ 1 0 0 }@
@{ 0 1 0 }@
@{ 0 0 1 }@ }@
2005-04-30 02:01:04 -04:00
] [
2005-07-30 02:08:59 -04:00
3 identity-matrix
2005-04-30 02:01:04 -04:00
] unit-test
[
@{ @{ 1 0 4 }@
@{ 0 7 0 }@
@{ 6 0 3 }@ }@
2005-04-30 02:01:04 -04:00
] [
@{ @{ 1 0 0 }@
@{ 0 2 0 }@
@{ 0 0 3 }@ }@
2005-04-30 02:01:04 -04:00
@{ @{ 0 0 4 }@
@{ 0 5 0 }@
@{ 6 0 0 }@ }@
2005-04-30 02:01:04 -04:00
2005-05-03 04:40:13 -04:00
m+
2005-04-30 02:01:04 -04:00
] unit-test
[
@{ @{ 1 0 4 }@
@{ 0 7 0 }@
@{ 6 0 3 }@ }@
2005-04-30 02:01:04 -04:00
] [
@{ @{ 1 0 0 }@
@{ 0 2 0 }@
@{ 0 0 3 }@ }@
2005-04-30 02:01:04 -04:00
@{ @{ 0 0 -4 }@
@{ 0 -5 0 }@
@{ -6 0 0 }@ }@
2005-04-30 02:01:04 -04:00
2005-05-03 04:40:13 -04:00
m-
2005-04-30 02:01:04 -04:00
] unit-test
[
@{ 10 20 30 }@
2005-04-30 02:01:04 -04:00
] [
10 @{ 1 2 3 }@ n*v
2005-04-30 02:01:04 -04:00
] unit-test
[
@{ 3 4 }@
2005-04-30 02:01:04 -04:00
] [
@{ @{ 1 0 }@
@{ 0 1 }@ }@
2005-04-30 02:01:04 -04:00
@{ 3 4 }@
2005-04-30 02:01:04 -04:00
2005-05-03 04:40:13 -04:00
m.v
] unit-test
[
@{ 4 3 }@
2005-05-03 04:40:13 -04:00
] [
@{ @{ 0 1 }@
@{ 1 0 }@ }@
2005-05-03 04:40:13 -04:00
@{ 3 4 }@
2005-05-03 04:40:13 -04:00
m.v
2005-04-30 02:01:04 -04:00
] unit-test
2005-05-22 22:08:46 -04:00
[ @{ 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
2005-05-22 22:08:46 -04:00
[ @{ @{ 1 2 }@ @{ 3 4 }@ @{ 5 6 }@ }@ ]
[ @{ @{ 1 2 }@ @{ 3 4 }@ @{ 5 6 }@ }@ flip flip ]
2005-05-23 00:25:52 -04:00
unit-test
[ @{ @{ 1 3 5 }@ @{ 2 4 6 }@ }@ ]
[ @{ @{ 1 3 5 }@ @{ 2 4 6 }@ }@ flip flip ]
2005-05-23 00:25:52 -04:00
unit-test
[ @{ @{ 1 3 5 }@ @{ 2 4 6 }@ }@ ]
[ @{ @{ 1 2 }@ @{ 3 4 }@ @{ 5 6 }@ }@ flip ]
2005-05-22 22:08:46 -04:00
unit-test
2005-05-23 00:25:52 -04:00
[ @{ 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
2005-07-30 02:08:59 -04:00
[
@{ @{ 6 }@ }@
2005-07-30 02:08:59 -04:00
] [
@{ @{ 3 }@ }@ @{ @{ 2 }@ }@ m.
2005-07-30 02:08:59 -04:00
] unit-test
[
@{ @{ 11 }@ }@
2005-07-30 02:08:59 -04:00
] [
@{ @{ 1 3 }@ }@ @{ @{ 5 }@ @{ 2 }@ }@ m.
2005-07-30 02:08:59 -04:00
] unit-test
[
@{ @{ 28 }@ }@
2005-07-30 02:08:59 -04:00
] [
@{ @{ 2 4 6 }@ }@
2005-07-30 02:08:59 -04:00
@{ @{ 1 }@
@{ 2 }@
@{ 3 }@ }@
2005-07-30 02:08:59 -04:00
m.
] unit-test