1off nat;
2
3load groebner;
4
5groebmonfac:=0;
6
7res3:={c16=(c11**2*c6)/(a11*cp11),
8b11=(bp11*cp11)/c11,
9b6=c11/cp11,
10a6=cp11/c11,
11ap11=(a11*ap16*cp11)/c11,
12apzz=(a11*cp11*cpzz)/(c11*cp6),
13 - ap16*cp11*cp6 + c11*c6};
14
15groesolve ws;
16
17sub(bp11=bp10,res3);
18
19groesolve ws;
20
21end;
22