source: git/Tst/Long/lres_l.tst @ 0bc5ed4

spielwiese
Last change on this file since 0bc5ed4 was ef52d6, checked in by Oleksandr Motsak <motsak@…>, 11 years ago
Update testsuite wrt current master (320c4f5e64cad778b4ada9556a9b0a6c71cab83a) NOTE: some wrong/bad tests were removed... TODO: add the reset of these updates after updating LIB/
  • Property mode set to 100644
File size: 832 bytes
Line 
1LIB "tst.lib";
2tst_init();
3ring r=32003,(y,t,x,z,w),dp;
4ideal i=6*t^5*x^3*z^4+5*x^5*z^7+4*t^4*y*z^3*w^4,
55*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,
62*t^8*z^6+6*t^5*y*z^7*w+6*t^4*y^2*z^3*w^5;
7resolution rs=lres(i,0);
8betti(rs);
9list I=rs;
10betti(I);
11minres(rs);
12list J=rs;
13betti(J);
14kill r;
15ring an=0,(t,x,y,z,w),(dp,C);
16ideal i=
172t3x5y2z+t5x2yw3+2x2yw8,
183t6x2yz2+9t3y2zw5+2xy3z2w5,
19t3x5y2z2+tx2y3w6+2t5zw6;
20resolution rs=lres(i,0);
21betti(rs);
22list I=rs;
23betti(I);
24minres(rs);
25list J=rs;
26betti(J);
27kill an;
28ring h3=32003,(z,y,t,x,w),(dp,C);
29ideal i=
305*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,
317*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,
328*t*x^5*y^3+2*t^3*x^3*y^2*w+4*t^6*z*w^2+3*x*w^8;
33resolution rs=lres(i,0);
34betti(rs);
35list I=rs;
36betti(I);
37minres(rs);
38list J=rs;
39betti(J);
40kill h3;
41tst_status(1);$
Note: See TracBrowser for help on using the repository browser.