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
|