fieker-DuValspielwiese
Last change
on this file since 20e0447 was
d61f67,
checked in by Karim Abou Zeid <karim23697@…>, 5 years ago
|
Add lp gb regress tests
|
-
Property mode set to
100644
|
File size:
896 bytes
|
Line | |
---|
1 | LIB "tst.lib"; tst_init(); |
---|
2 | LIB "freegb.lib"; |
---|
3 | ring r = 0,(H2,H1,y3,y2,y1,x3,x2,x1),Dp; |
---|
4 | int upToDeg = 5; |
---|
5 | def R = makeLetterplaceRing(upToDeg); |
---|
6 | setring(R); |
---|
7 | ideal Id = x2*x1-x1*x2-x3, |
---|
8 | x3*x1-x1*x3, |
---|
9 | y1*x1-x1*y1+H1, |
---|
10 | y2*x1-x1*y2, |
---|
11 | y3*x1-x1*y3+y2, |
---|
12 | H1*x1-x1*H1-2*x1, |
---|
13 | H2*x1-x1*H2+x1, |
---|
14 | x3*x2-x2*x3, |
---|
15 | y1*x2-x2*y1, |
---|
16 | y2*x2-x2*y2+H2, |
---|
17 | y3*x2-x2*y3-y1, |
---|
18 | H1*x2-x2*H1+x2, |
---|
19 | H2*x2-x2*H2-2*x2, |
---|
20 | y1*x3-x3*y1+x2, |
---|
21 | y2*x3-x3*y2-x1, |
---|
22 | y3*x3-x3*y3+H1+H2, |
---|
23 | H1*x3-x3*H1-x3, |
---|
24 | H2*x3-x3*H2-x3, |
---|
25 | y2*y1-y1*y2+y3, |
---|
26 | y3*y1-y1*y3, |
---|
27 | H1*y1-y1*H1+2*y1, |
---|
28 | H2*y1-y1*H2-y1, |
---|
29 | y3*y2-y2*y3, |
---|
30 | H1*y2-y2*H1-y2, |
---|
31 | H2*y2-y2*H2+2*y2, |
---|
32 | H1*y3-y3*H1+y3, |
---|
33 | H2*y3-y3*H2+y3, |
---|
34 | H2*H1-H1*H2, |
---|
35 | 3*x1*y1+3*x2*y2+3*x3*y3+H1*H1+H1*H2+H2*H2-3*H1-3*H2, |
---|
36 | 27*x3*y1*y2+27*x1*x2*y3-9*x1*y1*H1+18*x2*y2*H1-9*x3*y3*H1-2*H1*H1*H1-18*x1*y1*H2+9*x2*y2*H2+9*x3*y3*H2-3*H1*H1*H2+3*H1*H2*H2+2*H2*H2*H2-54*x2*y2-27*x3*y3-9*H1*H2-18*H2*H2+18*H1+36*H2; |
---|
37 | option(redTail); |
---|
38 | option(redSB); |
---|
39 | std(Id); |
---|
40 | tst_status(1);$ |
---|
Note: See
TracBrowser
for help on using the repository browser.