source: git/Tst/Long/allres_l.tst @ 010b3f

spielwiese
Last change on this file since 010b3f was 341696, checked in by Hans Schönemann <hannes@…>, 14 years ago
Adding Id property to all files git-svn-id: file:///usr/local/Singular/svn/trunk@12231 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.2 KB
Line 
1LIB "tst.lib";
2tst_init();
3tst_ignore("CVS ID $Id$");
4ring r=32003,(y,t,x,z,w),(dp, c);
5ideal i=6*t^5*x^3*z^4+5*x^5*z^7+4*t^4*y*z^3*w^4,
65*t^3*x^2*y^7*z^4+5*t^6*x*y^3*z^3*w^3+4*t^5*x^5*y*w^5,
72*t^8*z^6+6*t^5*y*z^7*w+6*t^4*y^2*z^3*w^5;
8tst_test_res(i, 1);
9kill r;
10
11ring h3=32003,(z,y,t,x,w),(dp,c);
12ideal i=
135*t^3*x^8*y^2*z+1*t^5*x^2*y*w^6+2*x^2*y*w^11+5*t*w^13,
147*x*y^6*z^2+4*t^6*x*w^2+9*t^3*y^2*z*w^3+6*x^2*y*w^6,
158*t*x^5*y^3+2*t^3*x^3*y^2*w+4*t^6*z*w^2+3*x*w^8;
16tst_test_res(i, 1);
17kill h3;
18
19ring cyc5 = 32003,(a,b,c,d,e,f),(dp,c);
20ideal i=
21a+b+c+d+e,
22de+1cd+1bc+1ae+1ab,
23cde+1bcd+1ade+1abe+1abc,
24bcde+1acde+1abde+1abce+1abcd,
25abcde-f5;
26tst_test_res(i, 1);
27kill cyc5;
28
29ring r=0,(y,t,x,z,w),(dp, c);
30ideal i=6*t^5*x^3*z^4+5*x^5*z^7+4*t^4*y*z^3*w^4,
315*t^3*x^2*y^7*z^4+5*t^6*x*y^3*z^3*w^3+4*t^5*x^5*y*w^5,
322*t^8*z^6+6*t^5*y*z^7*w+6*t^4*y^2*z^3*w^5;
33tst_test_res(i, 1);
34kill r;
35
36ring h3=0,(z,y,t,x,w),(dp,c);
37ideal i=
385*t^3*x^8*y^2*z+1*t^5*x^2*y*w^6+2*x^2*y*w^11+5*t*w^13,
397*x*y^6*z^2+4*t^6*x*w^2+9*t^3*y^2*z*w^3+6*x^2*y*w^6,
408*t*x^5*y^3+2*t^3*x^3*y^2*w+4*t^6*z*w^2+3*x*w^8;
41tst_test_res(i, 1);
42kill h3;
43
44ring an=32003,(t,x,y,z,w),(dp,C);
45ideal i=
462t3x5y2z+t5x2yw3+2x2yw8,
473t6x2yz2+9t3y2zw5+2xy3z2w5,
48t3x5y2z2+tx2y3w6+2t5zw6;
49tst_test_res(i, 1);
50kill an;
51
52tst_status(1);
53$
Note: See TracBrowser for help on using the repository browser.