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:
582 bytes
|
Line | |
---|
1 | |
---|
2 | LIB "tst.lib"; |
---|
3 | tst_init(); |
---|
4 | ring MYRINGNAME=32003,(a, b, u, v, w, x, y, z),lp; |
---|
5 | ideal MYIDEALNAME=136*z-136, |
---|
6 | -240*a-64*v+112*y+420*z, |
---|
7 | 66*a*z+78*v*z-1056*a-90*u+90*x+336*y, |
---|
8 | -162*a^2-284*a*v+50*a*y+60*v*y+180*a*z+55*u*z-112*b+70*w+260*x, |
---|
9 | 28*a*v*z-648*a^2+300*a*u+36*b*x+44*v*x+128*a*y+40*u*y+36*b*z+192*w, |
---|
10 | -162*a^2*v+18*a*v*y+15*a*u*z-312*a*b+24*a*w+30*v*w+84*a*x+27*u*x+24*b*y, |
---|
11 | -162*a^2*u+10*a*v*x+8*a*u*y+6*a*b*z+48*a*w+16*u*w+14*b*x, |
---|
12 | -162*a^2*b+4*a*v*w+3*a*u*x+2*a*b*y+6*b*w; |
---|
13 | option(redSB); |
---|
14 | slimgb(MYIDEALNAME); |
---|
15 | kill MYRINGNAME; |
---|
16 | tst_status(1);$ |
---|
17 | |
---|
Note: See
TracBrowser
for help on using the repository browser.