source: git/Tst/Manual/blowup0.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: 881 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "elim.lib";
3ring r  = 0,(x,y),dp;
4poly f  = x2+y3;
5ideal C = x,y;           //center of blowup
6def B1 = blowup0(f,C);
7setring B1;
8aS;                      //ideal of blown up ambient space
9tT;                      //ideal of total transform of f
10sT;                      //ideal of strict transform of f
11eD;                      //ideal of exceptional divisor
12bM;                      //ideal of blowup map r --> B1
13ring R  = 0,(x,y,z),ds;
14poly f  = y2+x3+z5;
15ideal C = y2,x,z;
16ideal W = z-x;
17def B2 = blowup0(f,C,W);
18setring B2;
19B2;                       //weighted ordering
20bR;                       //ideal of blown up R
21aS;                       //ideal of blown up R/W
22sT;                       //strict transform of f
23eD;                       //ideal of exceptional divisor
24//Note that the different affine charts are {y(i)=1}
25tst_status(1);$
Note: See TracBrowser for help on using the repository browser.