factor/library/test/math/matrices.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