169 lines
2.3 KiB
Factor
169 lines
2.3 KiB
Factor
|
IN: math.matrices.elimination.tests
|
||
|
|
USING: kernel math.matrices math.matrices.elimination
|
||
|
|
tools.test sequences ;
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 1 0 }
|
||
|
|
{ 0 0 0 1 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 1 0 }
|
||
|
|
{ 0 0 0 1 }
|
||
|
|
} echelon
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 1 0 }
|
||
|
|
{ 0 0 0 1 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 1 0 0 }
|
||
|
|
{ 1 0 1 0 }
|
||
|
|
{ 1 0 0 1 }
|
||
|
|
} echelon
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 1 0 }
|
||
|
|
{ 0 0 0 1 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 1 0 0 }
|
||
|
|
{ 1 0 1 0 }
|
||
|
|
{ 1 1 0 1 }
|
||
|
|
} echelon
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 1 0 }
|
||
|
|
{ 0 0 0 1 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 1 0 0 }
|
||
|
|
{ 1 1 0 1 }
|
||
|
|
{ 1 0 1 0 }
|
||
|
|
} echelon
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 0 0 }
|
||
|
|
{ 0 0 0 0 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
} [
|
||
|
|
[ 1 ] [ 0 0 pivot-row ] unit-test
|
||
|
|
1 0 do-row
|
||
|
|
] with-matrix
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 0 0 }
|
||
|
|
{ 0 0 0 0 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
} echelon
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 0 0 0 1 }
|
||
|
|
{ 0 0 0 0 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 0 1 0 0 }
|
||
|
|
{ 1 0 0 1 }
|
||
|
|
{ 1 0 0 1 }
|
||
|
|
} echelon
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ 1 0 0 1 }
|
||
|
|
{ 0 1 0 1 }
|
||
|
|
{ 0 0 0 -1 }
|
||
|
|
{ 0 0 0 0 }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 0 1 0 1 }
|
||
|
|
{ 1 0 0 1 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 1 0 1 }
|
||
|
|
} echelon
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
2
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 0 0 }
|
||
|
|
{ 0 0 }
|
||
|
|
} nullspace length
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
1 3
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 0 1 0 1 }
|
||
|
|
{ 1 0 0 1 }
|
||
|
|
{ 1 0 0 0 }
|
||
|
|
{ 1 1 0 1 }
|
||
|
|
} null/rank
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
1 3
|
||
|
|
] [
|
||
|
|
{
|
||
|
|
{ 0 0 0 0 0 1 0 1 }
|
||
|
|
{ 0 0 0 0 1 0 0 1 }
|
||
|
|
{ 0 0 0 0 1 0 0 0 }
|
||
|
|
{ 0 0 0 0 1 1 0 1 }
|
||
|
|
} null/rank
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { { 1 0 -1 } { 0 1 2 } } ]
|
||
|
|
[ { { 1 2 3 } { 4 5 6 } } solution ] unit-test
|