The function computes the list of scrolls swept out by pencil of lines through each of double points
i1 : p=nextPrime 10^3; -- a prime number |
i2 : time (G,Ican)=random6gonalGenus11Curve10Pencil(p);
-- used 1.5735 seconds
|
i3 : time S=scrollsPencilOfLinesDouble(G,Ican);
-- used 0.398939 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 0 1 2 3 4 5 0 1 2 3 4 5
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 0 1 2 3 4 5 0 1 2 3 4 5
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
|