i6 : keys H
o6 = {(3, 4), (3, 5), (4, 6), (2, 3)}
o6 : List
|
i7 : H#(2,3)
o7 = {3} | -t_8-t_20t_13 t_7t_20-t_14t_20+t_20t_13t_19
{3} | -t_7+t_14-t_13t_19 -t_8-t_20t_13+t_7t_19-t_14t_19+t_13t_19^2
------------------------------------------------------------------------
-t_2-t_14^2+t_20t_13^2 -t_8t_14+t_1t_20+t_7t_20t_13 |
-t_1-2t_14t_13+t_13^2t_19 -t_2-t_7t_14-t_8t_13+t_1t_19+t_7t_13t_19 |
2 4
o7 : Matrix (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ]) <-- (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ])
6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31 6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31
|
i8 : H#(3,4)
o8 = {4} | -t_20
{4} | -1
{4} | t_8+t_20t_13-t_7t_19+t_14t_19-t_13t_19^2
{4} | -t_7+t_14-t_13t_19
{4} | 0
------------------------------------------------------------------------
-t_8 |
t_13 |
t_2+t_7t_14+t_8t_13-t_1t_19-t_7t_13t_19 |
-t_1-2t_14t_13+t_13^2t_19 |
t_7-t_14+t_13t_19 |
5 2
o8 : Matrix (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ]) <-- (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ])
6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31 6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31
|
i9 : H#(3,5)
o9 = {5} | -1 t_13 -t_14 |
1 3
o9 : Matrix (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ]) <-- (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ])
6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31 6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31
|
i10 : H#(4,6)
o10 = {6} | -1 |
1 1
o10 : Matrix (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ]) <-- (kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ])
6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31 6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31
|
i11 : J = trim(minors(1, H#(2,3)) + groebnerStratum F);
o11 : Ideal of kk[t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t , t ]
6 12 5 30 18 4 24 36 11 2 29 3 10 17 1 23 28 35 8 16 9 22 26 34 7 14 27 15 20 25 32 13 21 33 19 31
|
i12 : compsJ = decompose J;
|
i13 : #compsJ
o13 = 2
|
i14 : pt1 = randomPointOnRationalVariety compsJ_0
o14 = | 42 9 39 9 34 7 -12 -17 -29 -35 50 2 13 19 -44 50 2 -29 15 2 -27 21
-----------------------------------------------------------------------
-36 -29 -39 -10 24 -16 19 -29 39 -38 -22 -8 -30 -24 |
1 36
o14 : Matrix kk <-- kk
|
i15 : pt2 = randomPointOnRationalVariety compsJ_1
o15 = | 30 10 43 20 -39 23 -30 40 -34 22 46 -25 21 -18 -35 -1 21 -39 -45 16
-----------------------------------------------------------------------
-35 -5 19 -47 -20 -13 34 33 -28 -43 22 2 0 -15 -47 38 |
1 36
o15 : Matrix kk <-- kk
|
i16 : F1 = sub(F, (vars S)|pt1)
2 2 2
o16 = ideal (a - 44b*c - 35c + 2a*d + 7b*d + 39c*d + 42d , a*b - 39b*c +
-----------------------------------------------------------------------
2 2 2
15c - 27a*d + 13b*d - 29c*d + 9d , a*c - 38b*c - 10c - 16a*d + 2b*d +
-----------------------------------------------------------------------
2 2 2 2 2
19c*d + 34d , b - 30b*c + 19c - 22a*d + 21b*d + 50c*d - 12d , b*c -
-----------------------------------------------------------------------
2 2 2 2 3 3 2
29b*c*d - 36c d + 24a*d + 2b*d + 50c*d + 9d , c - 24b*c*d + 39c d -
-----------------------------------------------------------------------
2 2 2 3
8a*d - 29b*d - 29c*d - 17d )
o16 : Ideal of S
|
i17 : betti res F1
0 1 2 3
o17 = total: 1 6 8 3
0: 1 . . .
1: . 4 4 1
2: . 2 4 2
o17 : BettiTally
|
i18 : F2 = sub(F, (vars S)|pt2)
2 2 2
o18 = ideal (a - 35b*c + 22c - 25a*d + 23b*d + 43c*d + 30d , a*b - 20b*c -
-----------------------------------------------------------------------
2 2 2
45c - 35a*d + 21b*d - 34c*d + 10d , a*c + 2b*c - 13c + 33a*d + 16b*d
-----------------------------------------------------------------------
2 2 2 2 2
- 18c*d - 39d , b - 47b*c - 28c - 5b*d - c*d - 30d , b*c - 43b*c*d +
-----------------------------------------------------------------------
2 2 2 2 3 3 2 2
19c d + 34a*d + 21b*d + 46c*d + 20d , c + 38b*c*d + 22c d - 15a*d
-----------------------------------------------------------------------
2 2 3
- 47b*d - 39c*d + 40d )
o18 : Ideal of S
|
i19 : betti res F2
0 1 2 3
o19 = total: 1 6 8 3
0: 1 . . .
1: . 4 4 1
2: . 2 4 2
o19 : BettiTally
|