spielwiese
|
Last change
on this file since b7d0a9c was
d5c4d0,
checked in by Michael Brickenstein <bricken@…>, 16 years ago
|
|
initial version
git-svn-id: file:///usr/local/Singular/svn/trunk@10790 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100644
|
|
File size:
441 bytes
|
| Line | |
|---|
| 1 | |
|---|
| 2 | LIB "tst.lib"; |
|---|
| 3 | tst_init(); |
|---|
| 4 | ring MYRINGNAME=32003,(x1, x2, x3, x4, x5, x6, x7),lp; |
|---|
| 5 | ideal MYIDEALNAME=x4^2+2*x3*x5+2*x2*x6+2*x1*x7+x7, |
|---|
| 6 | 2*x3*x4+2*x2*x5+2*x1*x6+x7^2+x6, |
|---|
| 7 | x3^2+2*x2*x4+2*x1*x5+2*x6*x7+x5, |
|---|
| 8 | 2*x2*x3+2*x1*x4+x6^2+2*x5*x7+x4, |
|---|
| 9 | x2^2+2*x1*x3+2*x5*x6+2*x4*x7+x3, |
|---|
| 10 | 2*x1*x2+x5^2+2*x4*x6+2*x3*x7+x2, |
|---|
| 11 | x1^2+2*x4*x5+2*x3*x6+2*x2*x7+x1; |
|---|
| 12 | option(redSB); |
|---|
| 13 | slimgb(MYIDEALNAME); |
|---|
| 14 | kill MYRINGNAME; |
|---|
| 15 | tst_status(1);exit; |
|---|
| 16 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
