i1 : R = QQ[a..d]; |
i2 : I = ideal(a^3, b^3-c^3, a^4, a*c); o2 : Ideal of R |
i3 : numgens I o3 = 4 |
i4 : I_0, I_2
3 4
o4 = (a , a )
o4 : Sequence
|
i5 : J = trim I
3 3 3
o5 = ideal (a*c, b - c , a )
o5 : Ideal of R
|
i6 : J_0 o6 = a*c o6 : R |
i7 : M = cokernel matrix{{a,b},{c,d}}
o7 = cokernel | a b |
| c d |
2
o7 : R-module, quotient of R
|
i8 : M_0
o8 = | 1 |
| 0 |
o8 : cokernel | a b |
| c d |
|
i9 : M/M_0
o9 = cokernel | 1 a b |
| 0 c d |
2
o9 : R-module, quotient of R
|
i10 : N = M/(a*M + R*M_0)
o10 = cokernel | a 0 1 a b |
| 0 a 0 c d |
2
o10 : R-module, quotient of R
|
i11 : N_0 == 0_N o11 = true |
i12 : M = matrix{{a,b,c},{c,d,a},{a-1,b-3,c-13}}
o12 = | a b c |
| c d a |
| a-1 b-3 c-13 |
3 3
o12 : Matrix R <--- R
|
i13 : M_0
o13 = | a |
| c |
| a-1 |
3
o13 : R
|
i14 : prune((image M_{1,2})/(R*M_1))
1
o14 = R
o14 : R-module, free
|