spielwiese
|
Last change
on this file since d5c4d0 was
d5c4d0,
checked in by Michael Brickenstein <bricken@…>, 15 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:
510 bytes
|
| Line | |
|---|
| 1 | |
|---|
| 2 | LIB "tst.lib"; |
|---|
| 3 | tst_init(); |
|---|
| 4 | ring MYRINGNAME=32003,(x1, x2, x3, x4, x5, x6, x7, x8),lp; |
|---|
| 5 | ideal MYIDEALNAME=2*x4*x5+2*x3*x6+2*x2*x7+2*x1*x8+x8, |
|---|
| 6 | x4^2+2*x3*x5+2*x2*x6+2*x1*x7+x8^2+x7, |
|---|
| 7 | 2*x3*x4+2*x2*x5+2*x1*x6+2*x7*x8+x6, |
|---|
| 8 | x3^2+2*x2*x4+2*x1*x5+x7^2+2*x6*x8+x5, |
|---|
| 9 | 2*x2*x3+2*x1*x4+2*x6*x7+2*x5*x8+x4, |
|---|
| 10 | x2^2+2*x1*x3+x6^2+2*x5*x7+2*x4*x8+x3, |
|---|
| 11 | 2*x1*x2+2*x5*x6+2*x4*x7+2*x3*x8+x2, |
|---|
| 12 | x1^2+x5^2+2*x4*x6+2*x3*x7+2*x2*x8+x1; |
|---|
| 13 | option(redSB); |
|---|
| 14 | slimgb(MYIDEALNAME); |
|---|
| 15 | kill MYRINGNAME; |
|---|
| 16 | tst_status(1);exit; |
|---|
| 17 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
