source: git/Tst/Manual/calculateI.tst @ c2f6bd

spielwiese
Last change on this file since c2f6bd 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: 692 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "resbinomial.lib";
3ring r = 0,(x(1..3)),dp;
4list flag=identifyvar();
5ideal J=x(1)^4*x(2)^2, x(3)^3;
6list Lmb=1,list(0,0,0),list(0,0,0),list(3),iniD(3),iniD(3),list(0,0,0),-1;
7list L=data(J,2,3);
8list LL=determinecenter(L[1],L[2],3,3,0,0,Lmb,flag,0,-1); // Calculate the center
9module auxpath=[0,-1];
10list infochart=0,0,0,L[2],L[1],flag,0,list(0,0,0),auxpath,list(),list();
11list L3=Blowupcenter(LL[1],1,1,infochart,3,3,0); // blowing-up and looking to the x(3) chart
12calculateI(L3[2][1][5],L3[2][1][4],3,3,3,L3[2][1][3],3,iniD(3)); //  (I_3)
13// looking to the x(1) chart
14calculateI(L3[2][2][5],L3[2][2][4],3,3,1,L3[2][2][3],3,iniD(3)); //  (I_3)
15tst_status(1);$
Note: See TracBrowser for help on using the repository browser.