fieker-DuValspielwiese
Last change
on this file since f2c70a was
598a84,
checked in by Hans Schoenemann <hannes@…>, 14 years ago
|
syntax fix
git-svn-id: file:///usr/local/Singular/svn/trunk@12997 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100644
|
File size:
395 bytes
|
Rev | Line | |
---|
[124194] | 1 | |
---|
| 2 | LIB "tst.lib"; |
---|
| 3 | tst_init(); |
---|
| 4 | ring MYRINGNAME=32003,(a, b, c, d, e, f, g),lp; |
---|
| 5 | ideal MYIDEALNAME=d^2+2*c*e+2*b*f+2*a*g+g, |
---|
| 6 | 2*c*d+2*b*e+2*a*f+g^2+f, |
---|
| 7 | c^2+2*b*d+2*a*e+2*f*g+e, |
---|
| 8 | b^2+2*a*c+2*e*f+2*d*g+c, |
---|
| 9 | 2*a*b+e^2+2*d*f+2*c*g+b, |
---|
| 10 | 2*a*b+2*b*c+2*a*d+e^2+2*d*f+2*c*g+2*e*g+b+d, |
---|
| 11 | a^2+2*d*e+2*c*f+2*b*g+a; |
---|
| 12 | option(redSB); |
---|
| 13 | slimgb(MYIDEALNAME); |
---|
| 14 | kill MYRINGNAME; |
---|
[598a84] | 15 | tst_status(1);$ |
---|
| 16 | |
---|
Note: See
TracBrowser
for help on using the repository browser.