spielwiese
Last change
on this file since fe969a 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:
654 bytes
|
Line | |
---|
1 | |
---|
2 | LIB "tst.lib"; |
---|
3 | tst_init(); |
---|
4 | ring MYRINGNAME=32003,(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10),lp; |
---|
5 | ideal MYIDEALNAME=x10^2-2*x5, |
---|
6 | -x6*x8+x7*x9-210*x6, |
---|
7 | -x4*x8+700000, |
---|
8 | x4*x8-x7*x9-x9*x10-410*x9, |
---|
9 | -x3*x8+x6*x8+x9*x10+210*x6+1300000, |
---|
10 | 10*x2*x8+10*x3*x8+10*x6*x8+10*x7*x9-10*x2*x10-11*x7*x10-10*x9*x10-10*x10^2+1400*x6-4200*x10, |
---|
11 | -10*x1*x8-10*x2*x8-10*x3*x8-10*x4*x8-10*x6*x8+10*x2*x10+11*x7*x10+20000*x2+14*x5, |
---|
12 | -64*x2*x7-10*x7*x9-11*x7*x10+320000*x1-16*x7+7000000, |
---|
13 | -32*x2*x7-5*x2*x8-5*x2*x10+160000*x1-5000*x2, |
---|
14 | 64*x2*x7-10*x1*x8+10*x7*x9+11*x7*x10-320000*x1; |
---|
15 | option(redSB); |
---|
16 | slimgb(MYIDEALNAME); |
---|
17 | kill MYRINGNAME; |
---|
18 | tst_status(1);$ |
---|
19 | |
---|
Note: See
TracBrowser
for help on using the repository browser.