The function gives a plane curve of degree 8 with 10 ordinary nodes, such that its canonical model carries 12 pencils g16, and results in the Betti number B(5,6)=60.
i1 : p=101; |
i2 : (G,Ican)=random6gonalGenus11Curve12Pencil(p); |
i3 : genus Ican, degree Ican o3 = (11, 20) o3 : Sequence |
i4 : Fres=res(Ican, FastNonminimal => true); |
i5 : betti(Fres, Minimize=>true) 0 1 2 3 4 5 6 7 8 9 o5 = total: 1 36 160 315 348 348 315 160 36 1 0: 1 . . . . . . . . . 1: . 36 160 315 288 60 . . . . 2: . . . . 60 288 315 160 36 . 3: . . . . . . . . . 1 o5 : BettiTally |