source: git/Tst/Long/lres_l.tst @ 96badc

spielwiese
Last change on this file since 96badc was 46976a6, checked in by Olaf Bachmann <obachman@…>, 26 years ago
* added status check to regress.cmd * added tst_status(1); call to each tst file, just before quit git-svn-id: file:///usr/local/Singular/svn/trunk@2271 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 911 bytes
Line 
1LIB "tst.lib";
2tst_init();
3tst_ignore("CVS ID $Id: lres_l.tst,v 1.2 1998-07-01 10:10:49 obachman Exp $");
4ring r=32003,(y,t,x,z,w),dp;
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;
8resolution rs=lres(i,0);
9betti(rs);
10list I=rs;
11betti(I);
12minres(rs);
13list J=rs;
14betti(J);
15kill r;
16ring an=0,(t,x,y,z,w),(dp,C);
17ideal i=
182t3x5y2z+t5x2yw3+2x2yw8,
193t6x2yz2+9t3y2zw5+2xy3z2w5,
20t3x5y2z2+tx2y3w6+2t5zw6;
21resolution rs=lres(i,0);
22betti(rs);
23list I=rs;
24betti(I);
25minres(rs);
26list J=rs;
27betti(J);
28kill an;
29ring h3=32003,(z,y,t,x,w),(dp,C);
30ideal i=
315*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,
327*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,
338*t*x^5*y^3+2*t^3*x^3*y^2*w+4*t^6*z*w^2+3*x*w^8;
34resolution rs=lres(i,0);
35betti(rs);
36list I=rs;
37betti(I);
38minres(rs);
39list J=rs;
40betti(J);
41kill h3;
42tst_status(1);$
Note: See TracBrowser for help on using the repository browser.