source: git/Tst/Old/regul.tst @ e706ff

spielwiese
Last change on this file since e706ff was 37cd955, checked in by Hans Schoenemann <hannes@…>, 14 years ago
pagelength removed git-svn-id: file:///usr/local/Singular/svn/trunk@13172 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 533 bytes
Line 
1//
2// test script for regularity command
3//
4ring r1 = 31991,(t,x,y,z,w),(c,ls);
5r1;
6"-------------------------------";
7ideal i=t2x2+tx2y+x2yz,t2y2+ty2z+y2zw,t2z2+tz2w+xz2w,t2w2+txw2+xyw2;
8i;
9list t3=mres(i,0);
10t3;
11
12"------------------------------";
13regularity(t3);
14"------------------------------";
15listvar(all);
16kill r1;
17ring R=0,(r,s,t,v,w,x,y,z),dp;
18//
19ideal I = v-r9, w-r7st, x-r3s2t4, y-r9-s3t6, z-s6r3;
20//
21ideal J = eliminate( I, rst);
22J = std(J);
23list R1=nres(J,0);
24print( R1);
25regularity( R1);
26LIB "tst.lib";tst_status(1);$;
Note: See TracBrowser for help on using the repository browser.