156 lines
2.0 KiB
Factor
156 lines
2.0 KiB
Factor
IN: temporary
|
|
USING: kernel matrices test ;
|
|
|
|
[
|
|
{
|
|
{ 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
|
|
|
|
[
|
|
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
|