101 lines
1.1 KiB
Factor
101 lines
1.1 KiB
Factor
IN: temporary
|
|
USING: kernel lists math matrices namespaces test ;
|
|
|
|
[
|
|
M[ [ 0 ] [ 0 ] [ 0 ] ]M
|
|
] [
|
|
3 1 <zero-matrix>
|
|
] unit-test
|
|
|
|
[
|
|
M[ [ 1 ] [ 2 ] [ 3 ] ]M
|
|
] [
|
|
{ 1 2 3 } <col-vector>
|
|
] unit-test
|
|
|
|
[
|
|
M[ [ 1 0 0 ]
|
|
[ 0 1 0 ]
|
|
[ 0 0 1 ] ]M
|
|
] [
|
|
3 <identity-matrix>
|
|
] unit-test
|
|
|
|
[
|
|
M[ [ 1 0 4 ]
|
|
[ 0 7 0 ]
|
|
[ 6 0 3 ] ]M
|
|
] [
|
|
M[ [ 1 0 0 ]
|
|
[ 0 2 0 ]
|
|
[ 0 0 3 ] ]M
|
|
|
|
M[ [ 0 0 4 ]
|
|
[ 0 5 0 ]
|
|
[ 6 0 0 ] ]M
|
|
|
|
m+
|
|
] unit-test
|
|
|
|
[
|
|
M[ [ 1 0 4 ]
|
|
[ 0 7 0 ]
|
|
[ 6 0 3 ] ]M
|
|
] [
|
|
M[ [ 1 0 0 ]
|
|
[ 0 2 0 ]
|
|
[ 0 0 3 ] ]M
|
|
|
|
M[ [ 0 0 -4 ]
|
|
[ 0 -5 0 ]
|
|
[ -6 0 0 ] ]M
|
|
|
|
m-
|
|
] unit-test
|
|
|
|
[
|
|
{ 10 20 30 }
|
|
] [
|
|
10 { 1 2 3 } n*v
|
|
] unit-test
|
|
|
|
[
|
|
M[ [ 6 ] ]M
|
|
] [
|
|
M[ [ 3 ] ]M M[ [ 2 ] ]M m.
|
|
] unit-test
|
|
|
|
[
|
|
M[ [ 11 ] ]M
|
|
] [
|
|
M[ [ 1 3 ] ]M M[ [ 5 ] [ 2 ] ]M m.
|
|
] unit-test
|
|
|
|
[
|
|
[ [[ 0 0 ]] [[ 1 0 ]] ]
|
|
] [
|
|
[ 2 1 [ 2dup cons , ] 2repeat ] make-list
|
|
] unit-test
|
|
|
|
[
|
|
{ 3 4 }
|
|
] [
|
|
M[ [ 1 0 ]
|
|
[ 0 1 ] ]M
|
|
|
|
{ 3 4 }
|
|
|
|
m.v
|
|
] unit-test
|
|
|
|
[
|
|
{ 4 3 }
|
|
] [
|
|
M[ [ 0 1 ]
|
|
[ 1 0 ] ]M
|
|
|
|
{ 3 4 }
|
|
|
|
m.v
|
|
] unit-test
|