The function computes the list of scrolls swept out by pencil of lines through each triple points
i1 : p=101; -- a prime number |
i2 : time L=random6gonalGenus11CurvekPencil(p,5);
-- used 2.66013 seconds
|
i3 : time S=scrollsPencilOfLinesTriple(L_3,L_4);
-- used 0.44532 seconds
|
i4 : apply(S,k->betti res k)
0 1 2 3 4 5 0 1 2 3 4 5 0 1 2 3 4 5
o4 = {total: 1 15 40 45 24 5, total: 1 15 40 45 24 5, total: 1 15 40 45 24 5,
0: 1 . . . . . 0: 1 . . . . . 0: 1 . . . . .
1: . 15 40 45 24 5 1: . 15 40 45 24 5 1: . 15 40 45 24 5
------------------------------------------------------------------------
0 1 2 3 4 5
total: 1 15 40 45 24 5}
0: 1 . . . . .
1: . 15 40 45 24 5
o4 : List
|