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