1 | LIB "tst.lib"; tst_init(); |
---|
2 | LIB "resbinomial.lib"; |
---|
3 | ring r = 0,(x(1..3)),dp; |
---|
4 | list flag=identifyvar(); |
---|
5 | ideal J=x(1)^4*x(2)^2, x(3)^3; |
---|
6 | list Lmb=1,list(0,0,0),list(0,0,0),list(3),iniD(3),iniD(3),list(0,0,0),-1; |
---|
7 | list L=data(J,2,3); |
---|
8 | list LL=determinecenter(L[1],L[2],3,3,0,0,Lmb,flag,0,-1); // Calculate the center |
---|
9 | module auxpath=[0,-1]; |
---|
10 | list infochart=0,0,0,L[2],L[1],flag,0,list(0,0,0),auxpath,list(),list(); |
---|
11 | list L3=Blowupcenter(LL[1],1,1,infochart,3,3,0); // blowing-up and looking to the x(3) chart |
---|
12 | calculateI(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 |
---|
14 | calculateI(L3[2][2][5],L3[2][2][4],3,3,1,L3[2][2][3],3,iniD(3)); // (I_3) |
---|
15 | tst_status(1);$ |
---|