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:
463 bytes
|
| Line | |
|---|
| 1 | LIB "tst.lib"; tst_init(); |
|---|
| 2 | LIB "freegb.lib"; |
|---|
| 3 | ring r = 0,(a,b,c,d,e),Dp; |
|---|
| 4 | int upToDeg = 17; |
|---|
| 5 | def R = makeLetterplaceRing(upToDeg); |
|---|
| 6 | setring(R); |
|---|
| 7 | ideal Id = a*a-a, |
|---|
| 8 | b*b-b, |
|---|
| 9 | c*c-c, |
|---|
| 10 | d*d-d, |
|---|
| 11 | e*e-e, |
|---|
| 12 | a*b*a-a*b, |
|---|
| 13 | b*a*b-a*b, |
|---|
| 14 | a*c*a-a*c, |
|---|
| 15 | c*a*c-a*c, |
|---|
| 16 | a*d*a-a*d, |
|---|
| 17 | d*a*d-a*d, |
|---|
| 18 | a*e*a-a*e, |
|---|
| 19 | e*a*e-a*e, |
|---|
| 20 | b*c*b-b*c, |
|---|
| 21 | c*b*c-b*c, |
|---|
| 22 | b*d*b-b*d, |
|---|
| 23 | d*b*d-b*d, |
|---|
| 24 | b*e*b-b*e, |
|---|
| 25 | e*b*e-b*e, |
|---|
| 26 | c*d*c-c*d, |
|---|
| 27 | d*c*d-c*d, |
|---|
| 28 | c*e*c-c*e, |
|---|
| 29 | e*c*e-e*c, |
|---|
| 30 | e*d*e-d*e, |
|---|
| 31 | d*e*d-d*e; |
|---|
| 32 | option(redTail); |
|---|
| 33 | option(redSB); |
|---|
| 34 | std(Id); |
|---|
| 35 | tst_status(1);$ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
