source: git/Tst/Old/lif.tst @ b35b93

spielwiese
Last change on this file since b35b93 was b35b93, checked in by Olaf Bachmann <obachman@…>, 26 years ago
This commit was generated by cvs2svn to compensate for changes in r1396, which included commits to RCS files with non-trunk default branches. git-svn-id: file:///usr/local/Singular/svn/trunk@1397 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 499 bytes
Line 
1//
2// test script for lift command
3//
4pagelength = 10000;
5ring r1 = 32003,(x,y,z),(c,dp);
6r1;
7"-------------------------------";
8poly s1=y7+x3+xyz+z2;
9ideal i1=jacob(s1);
10ideal i2=std(i1);
11ideal i=3x2+yz,7y6+2x2y+5xz;
12i;
13i1;
14i2;
15s1;
16matrix T=lift(i2,i);
17T;
18matrix(i)-matrix(i2)*T;
19"-----------------------------";
20poly s2=x4+y3+z6+2xyz;
21ideal i3=jacob(s2);
22ideal i4=std(i3);
23s2;
24i3;
25i4;
26matrix T1=lift(i4,i);
27T1;
28matrix(i)-matrix(i4)*T1;
29"-------------------------------";
30listvar(all);
31kill r1;
32$;
Note: See TracBrowser for help on using the repository browser.