i10 : A = ZZ/101[x_0, x_1, y_0, y_1, y_2, Degrees => {2:{1,0}, 3:{0,1}}];
|
i11 : I = intersect(ideal(x_0, x_1), ideal(y_0, y_1, y_2))
o11 = ideal (x y , x y , x y , x y , x y , x y )
1 2 0 2 1 1 0 1 1 0 0 0
o11 : Ideal of A
|
i12 : C = simplicialModule(freeResolution I, 4, Degeneracy => true)
1 7 22 51 100
o12 = A <-- A <-- A <-- A <-- A <-- ...
0 1 2 3 4
o12 : SimplicialModule
|
i13 : J = intersect(ideal(x_0^2, x_1^2), ideal(y_0^2, y_1^2, y_2^2))
2 2 2 2 2 2 2 2 2 2 2 2
o13 = ideal (x y , x y , x y , x y , x y , x y )
1 2 0 2 1 1 0 1 1 0 0 0
o13 : Ideal of A
|
i14 : D = simplicialModule(freeResolution J, 4, Degeneracy => true)
1 7 22 51 100
o14 = A <-- A <-- A <-- A <-- A <-- ...
0 1 2 3 4
o14 : SimplicialModule
|
i15 : f = simplicialModule(extend(C.complex, D.complex, id_(A^1)), 2)
1 1
o15 = 0 : A <--------- A : 0
| 1 |
7 7
1 : A <---------------------------------------------------------- A : 1
{0, 0} | 1 0 0 0 0 0 0 |
{1, 1} | 0 x_0y_0 0 0 0 0 0 |
{1, 1} | 0 0 x_1y_0 0 0 0 0 |
{1, 1} | 0 0 0 x_0y_1 0 0 0 |
{1, 1} | 0 0 0 0 x_1y_1 0 0 |
{1, 1} | 0 0 0 0 0 x_0y_2 0 |
{1, 1} | 0 0 0 0 0 0 x_1y_2 |
22 22
2 : A <---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- A : 2
{0, 0} | 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 x_0y_0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 x_1y_0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 x_0y_1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 x_1y_1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 x_0y_2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 x_1y_2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 x_0y_0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 x_1y_0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 x_0y_1 0 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 0 x_1y_1 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 0 0 x_0y_2 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 0 0 0 x_1y_2 0 0 0 0 0 0 0 0 0 |
{2, 1} | 0 0 0 0 0 0 0 0 0 0 0 0 0 x_0x_1y_0 0 0 0 0 0 0 0 0 |
{2, 1} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_0x_1y_1 0 0 0 0 0 0 0 |
{1, 2} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_0y_0y_1 0 0 0 0 0 0 |
{1, 2} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_1y_0y_1 0 0 0 0 0 |
{2, 1} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_0x_1y_2 0 0 0 0 |
{1, 2} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_0y_0y_2 0 0 0 |
{1, 2} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_1y_0y_2 0 0 |
{1, 2} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_0y_1y_2 0 |
{1, 2} | 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 x_1y_1y_2 |
o15 : SimplicialModuleMap
|
i16 : g1 = prune truncate({{1,1}}, f);
|
i17 : g1_0
o17 = {1, 1} | 1 0 0 0 0 0 |
{1, 1} | 0 1 0 0 0 0 |
{1, 1} | 0 0 1 0 0 0 |
{1, 1} | 0 0 0 1 0 0 |
{1, 1} | 0 0 0 0 1 0 |
{1, 1} | 0 0 0 0 0 1 |
o17 : Matrix
|
i18 : g1_1
o18 = {1, 1} | 1 0 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 1 0 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 1 0 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 1 0 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 1 0 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 1 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 x_0y_0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 x_1y_0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 x_0y_1 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 x_1y_1 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 0 x_0y_2 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 0 0 x_1y_2 |
o18 : Matrix
|
i19 : g2 = truncate({{1,0}}, f);
|
i20 : g2_1
o20 = {1, 0} | 1 0 0 0 0 0 0 0 |
{1, 0} | 0 1 0 0 0 0 0 0 |
{1, 1} | 0 0 x_0y_0 0 0 0 0 0 |
{1, 1} | 0 0 0 x_1y_0 0 0 0 0 |
{1, 1} | 0 0 0 0 x_0y_1 0 0 0 |
{1, 1} | 0 0 0 0 0 x_1y_1 0 0 |
{1, 1} | 0 0 0 0 0 0 x_0y_2 0 |
{1, 1} | 0 0 0 0 0 0 0 x_1y_2 |
o20 : Matrix
|
i21 : g3 = truncate({{0,1}}, f);
|
i22 : g4 = truncate({{1,0},{0,1}}, f);
|
i23 : g4_1
o23 = {0, 1} | 1 0 0 0 0 0 0 0 0 0 0 |
{0, 1} | 0 1 0 0 0 0 0 0 0 0 0 |
{0, 1} | 0 0 1 0 0 0 0 0 0 0 0 |
{1, 0} | 0 0 0 1 0 0 0 0 0 0 0 |
{1, 0} | 0 0 0 0 1 0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 x_0y_0 0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 x_1y_0 0 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 x_0y_1 0 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 x_1y_1 0 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 x_0y_2 0 |
{1, 1} | 0 0 0 0 0 0 0 0 0 0 x_1y_2 |
o23 : Matrix
|
i24 : g5 = truncate({{2,2}}, f);
|
i25 : assert all({g1,g2,g3,g4,g5}, isWellDefined)
|