i3 : Q={{{1, 3}, {2, 4}}, {{2, 2}, {3, 3}}, {{3, 1}, {4, 2}}, {{2, 4}, {3, 5}}, {{3, 5}, {4, 6}}, {{4, 4}, {5, 5}}, {{5, 3}, {6, 4}}, {{4, 2}, {5, 3}}, {{6, 4}, {7, 5}}, {{5, 1}, {6, 2}}, {{7, 5}, {8, 6}}, {{7, 1}, {8, 2}}, {{4, 6}, {5, 7}}, {{5, 7}, {6, 8}}, {{6, 6}, {7, 7}}};
|
i4 : M = polyoMatrix Q
o4 = | 0 0 0 0 x_(5,8) x_(6,8) 0 0 |
| 0 0 0 x_(4,7) x_(5,7) x_(6,7) x_(7,7) 0 |
| 0 0 x_(3,6) x_(4,6) x_(5,6) x_(6,6) x_(7,6) x_(8,6) |
| 0 x_(2,5) x_(3,5) x_(4,5) x_(5,5) x_(6,5) x_(7,5) x_(8,5) |
| x_(1,4) x_(2,4) x_(3,4) x_(4,4) x_(5,4) x_(6,4) x_(7,4) 0 |
| x_(1,3) x_(2,3) x_(3,3) x_(4,3) x_(5,3) x_(6,3) 0 0 |
| 0 x_(2,2) x_(3,2) x_(4,2) x_(5,2) x_(6,2) x_(7,2) x_(8,2) |
| 0 0 x_(3,1) x_(4,1) x_(5,1) x_(6,1) x_(7,1) x_(8,1) |
8 8
o4 : Matrix (QQ[x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x ]) <-- (QQ[x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x , x ])
8,6 8,5 8,2 8,1 7,7 7,6 7,5 7,4 7,2 7,1 6,8 6,7 6,6 6,5 6,4 6,3 6,2 6,1 5,8 5,7 5,6 5,5 5,4 5,3 5,2 5,1 4,7 4,6 4,5 4,4 4,3 4,2 4,1 3,6 3,5 3,4 3,3 3,2 3,1 2,5 2,4 2,3 2,2 1,4 1,3 8,6 8,5 8,2 8,1 7,7 7,6 7,5 7,4 7,2 7,1 6,8 6,7 6,6 6,5 6,4 6,3 6,2 6,1 5,8 5,7 5,6 5,5 5,4 5,3 5,2 5,1 4,7 4,6 4,5 4,4 4,3 4,2 4,1 3,6 3,5 3,4 3,3 3,2 3,1 2,5 2,4 2,3 2,2 1,4 1,3
|