source: git/Tst/Buch/Example_5_5_11.tst @ bf8015

spielwiese
Last change on this file since bf8015 was 891438c, checked in by Gerhard Pfister <pfister@…>, 23 years ago
*GP: initial release git-svn-id: file:///usr/local/Singular/svn/trunk@5579 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 299 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4ring A=0,(x,y,z),ds;
5ideal I=yz+z2+x3,y2+xz+y4;
6ideal J=std(I);
7J;
8
9int k;
10ideal In=jet(J[1],ord(J[1]));
11for(k=2;k<=size(J);k++){ In=In,jet(J[k],ord(J[k]));}
12
13In;
14
15intvec v=hilb(J,1);
16v;
17
18ideal I1=I+maxideal(5);
19vdim(std(I1));
20
21vdim(std(I+maxideal(6)));
22
23tst_status(1);$
Note: See TracBrowser for help on using the repository browser.