source: git/Tst/Short/liftstd_s.tst @ b1ac99

spielwiese
Last change on this file since b1ac99 was b1ac99, checked in by Thomas Siebert <siebert@…>, 26 years ago
*** empty log message *** git-svn-id: file:///usr/local/Singular/svn/trunk@1529 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 596 bytes
RevLine 
[b1ac99]1LIB "tst.lib";
2tst_init();
3//
4// test script for liftstd command
5//
6pagelength = 10000;
7ring r1 = 32003,(x,y,z),(c,ls);
8r1;
9LIB "lib0";
10"-------------------------------";
11ideal i1=maxideal(3);
12ideal i2=x6,y4,z5,xy,yz,xz;
13i2;
14matrix m1[3][3]=x,y,z,xz,yx,12zx,0,y2,3xy2;
15pmat(m1);
16liftstd(i2,m1);
17"---------------------------------";
18vector v1=[x4,y2,xz2];
19vector v2=[y3,x8,2z4];
20module m=v1,v2;
21m;
22pmat(m1);
23liftstd(m,m1);
24"--------------------------------";
25listvar(all);
26kill r1;
27ring R;
28poly f=x3+y7+z2+xyz;
29ideal i=jacob(f);
30matrix T;
31ideal sm=liftstd(i,T);
32matrix(sm)-matrix(i)*T;
33kill R;
34$;
Note: See TracBrowser for help on using the repository browser.