fieker-DuValspielwiese
Last change
on this file since d61f67 was
d61f67,
checked in by Karim Abou Zeid <karim23697@…>, 5 years ago
|
Add lp gb regress tests
|
-
Property mode set to
100644
|
File size:
1.6 KB
|
Line | |
---|
1 | LIB "tst.lib"; tst_init(); |
---|
2 | LIB "freegb.lib"; |
---|
3 | ring r = 0,(H2,H1,y6,y5,y4,y3,y2,y1,x6,x5,x4,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-2*x4, |
---|
9 | x4*x1-x1*x4-3*x5, |
---|
10 | x5*x1-x1*x5, |
---|
11 | x6*x1-x1*x6, |
---|
12 | y1*x1-x1*y1+H1, |
---|
13 | y2*x1-x1*y2, |
---|
14 | y3*x1-x1*y3+3*y2, |
---|
15 | y4*x1-x1*y4+2*y3, |
---|
16 | y5*x1-x1*y5+y4, |
---|
17 | y6*x1-x1*y6, |
---|
18 | H1*x1-x1*H1-2*x1, |
---|
19 | H2*x1-x1*H2+x1, |
---|
20 | x3*x2-x2*x3, |
---|
21 | x4*x2-x2*x4, |
---|
22 | x5*x2-x2*x5-x6, |
---|
23 | x6*x2-x2*x6, |
---|
24 | y1*x2-x2*y1, |
---|
25 | y2*x2-x2*y2+H2, |
---|
26 | y3*x2-x2*y3-y1, |
---|
27 | y4*x2-x2*y4, |
---|
28 | y5*x2-x2*y5, |
---|
29 | y6*x2-x2*y6+y5, |
---|
30 | H1*x2-x2*H1+3*x2, |
---|
31 | H2*x2-x2*H2-2*x2, |
---|
32 | x4*x3-x3*x4+3*x6, |
---|
33 | x5*x3-x3*x5, |
---|
34 | x6*x3-x3*x6, |
---|
35 | y1*x3-x3*y1+3*x2, |
---|
36 | y2*x3-x3*y2-x1, |
---|
37 | y3*x3-x3*y3+H1+3*H2, |
---|
38 | y4*x3-x3*y4-2*y1, |
---|
39 | y5*x3-x3*y5, |
---|
40 | y6*x3-x3*y6-y4, |
---|
41 | H1*x3-x3*H1+x3, |
---|
42 | H2*x3-x3*H2-x3, |
---|
43 | x5*x4-x4*x5, |
---|
44 | x6*x4-x4*x6, |
---|
45 | y1*x4-x4*y1+2*x3, |
---|
46 | y2*x4-x4*y2, |
---|
47 | y3*x4-x4*y3-2*x1, |
---|
48 | y4*x4-x4*y4+2*H1+3*H2, |
---|
49 | y5*x4-x4*y5-y1, |
---|
50 | y6*x4-x4*y6+y3, |
---|
51 | H1*x4-x4*H1-x4, |
---|
52 | H2*x4-x4*H2, |
---|
53 | x6*x5-x5*x6, |
---|
54 | y1*x5-x5*y1+x4, |
---|
55 | y2*x5-x5*y2, |
---|
56 | y3*x5-x5*y3, |
---|
57 | y4*x5-x5*y4-x1, |
---|
58 | y5*x5-x5*y5+H1+H2, |
---|
59 | y6*x5-x5*y6-y2, |
---|
60 | H1*x5-x5*H1-3*x5, |
---|
61 | H2*x5-x5*H2+x5, |
---|
62 | y1*x6-x6*y1, |
---|
63 | y2*x6-x6*y2+x5, |
---|
64 | y3*x6-x6*y3-x4, |
---|
65 | y4*x6-x6*y4+x3, |
---|
66 | y5*x6-x6*y5-x2, |
---|
67 | y6*x6-x6*y6+H1+2*H2, |
---|
68 | H1*x6-x6*H1, |
---|
69 | H2*x6-x6*H2-x6, |
---|
70 | y2*y1-y1*y2+y3, |
---|
71 | y3*y1-y1*y3+2*y4, |
---|
72 | y4*y1-y1*y4+3*y5, |
---|
73 | y5*y1-y1*y5, |
---|
74 | y6*y1-y1*y6, |
---|
75 | H1*y1-y1*H1+2*y1, |
---|
76 | H2*y1-y1*H2-y1, |
---|
77 | y3*y2-y2*y3, |
---|
78 | y4*y2-y2*y4, |
---|
79 | y5*y2-y2*y5+y6, |
---|
80 | y6*y2-y2*y6, |
---|
81 | H1*y2-y2*H1-3*y2, |
---|
82 | H2*y2-y2*H2+2*y2, |
---|
83 | y4*y3-y3*y4-3*y6, |
---|
84 | y5*y3-y3*y5, |
---|
85 | y6*y3-y3*y6, |
---|
86 | H1*y3-y3*H1-y3, |
---|
87 | H2*y3-y3*H2+y3, |
---|
88 | y5*y4-y4*y5, |
---|
89 | y6*y4-y4*y6, |
---|
90 | H1*y4-y4*H1+y4, |
---|
91 | H2*y4-y4*H2, |
---|
92 | y6*y5-y5*y6, |
---|
93 | H1*y5-y5*H1+3*y5, |
---|
94 | H2*y5-y5*H2-y5, |
---|
95 | H1*y6-y6*H1, |
---|
96 | H2*y6-y6*H2+y6, |
---|
97 | H2*H1-H1*H2, |
---|
98 | x1*x1*x1; |
---|
99 | option(redTail); |
---|
100 | option(redSB); |
---|
101 | std(Id); |
---|
102 | tst_status(1);$ |
---|
Note: See
TracBrowser
for help on using the repository browser.