source: git/Tst/Manual/Critical_points.tst @ 6fb723

spielwiese
Last change on this file since 6fb723 was 894057, checked in by Oleksandr Motsak <motsak@…>, 13 years ago
ADD: Tests from online manual (res+stat on mamawutz): short ones Tst/Manual/s.lst
  • Property mode set to 100644
File size: 357 bytes
Line 
1LIB "tst.lib"; tst_init();
2  ring r1 = 32003,(x,y,z),ds;
3  int a,b,c,t=11,5,3,0;
4  poly f = x^a+y^b+z^(3*c)+x^(c+2)*y^(c-1)+x^(c-1)*y^(c-1)*z3+
5           x^(c-2)*y^c*(y^2+t*x)^2;
6  option(noprot);
7  timer=1;
8  ring r2 = 32003,(x,y,z),dp;
9  poly f=imap(r1,f);
10  ideal j=jacob(f);
11  vdim(std(j));
12  vdim(std(j+f));
13  timer=0;  // reset timer
14tst_status(1);$
Note: See TracBrowser for help on using the repository browser.