1 | LIB "tst.lib"; tst_init(); tst_ignore("Time:"); |
---|
2 | LIB "sheafcoh.lib"; |
---|
3 | int pl = printlevel; |
---|
4 | int l,h; |
---|
5 | //------------------------------------------- |
---|
6 | // cohomology of structure sheaf on P^4: |
---|
7 | //------------------------------------------- |
---|
8 | ring r=32001,x(1..5),dp; |
---|
9 | module M= getStructureSheaf(); // OO_P^4 |
---|
10 | l = -12; h = 12; // range of twists: l..h |
---|
11 | printlevel = 0; |
---|
12 | ////////////////////////////////////////////// |
---|
13 | timer = 0; |
---|
14 | def A = sheafCoh(M, l, h); // global Ext method: |
---|
15 | tst_ignore("Time: " + string(timer)); |
---|
16 | ////////////////////////////////////////////// |
---|
17 | timer = 0; |
---|
18 | A = sheafCohBGG(M, l, h); // BGG method (without optimization): |
---|
19 | tst_ignore("Time: " + string(timer)); |
---|
20 | ////////////////////////////////////////////// |
---|
21 | timer = 0; |
---|
22 | A = sheafCohBGG2(M, l, h); // BGG method (with optimization) |
---|
23 | tst_ignore("Time: " + string(timer)); |
---|
24 | ////////////////////////////////////////////// |
---|
25 | printlevel = pl; |
---|
26 | kill A, r; |
---|
27 | //------------------------------------------- |
---|
28 | // cohomology of cotangential bundle on P^3: |
---|
29 | //------------------------------------------- |
---|
30 | ring R=32001,(x,y,z,u),dp; |
---|
31 | module M = getCotangentialBundle(); |
---|
32 | l = -12; h = 11; // range of twists: l..h |
---|
33 | ////////////////////////////////////////////// |
---|
34 | printlevel = 0; |
---|
35 | timer = 0; |
---|
36 | def B = sheafCoh(M, l, h); // global Ext method: |
---|
37 | tst_ignore("Time: " + string(timer)); |
---|
38 | ////////////////////////////////////////////// |
---|
39 | timer = 0; |
---|
40 | B = sheafCohBGG(M, l, h); // BGG method (without optimization): |
---|
41 | tst_ignore("Time: " + string(timer)); |
---|
42 | ////////////////////////////////////////////// |
---|
43 | timer = 0; |
---|
44 | B = sheafCohBGG2(M, l, h); // BGG method (with optimization) |
---|
45 | tst_ignore("Time: " + string(timer)); |
---|
46 | ////////////////////////////////////////////// |
---|
47 | printlevel = pl; |
---|
48 | tst_status(1);$ |
---|