out uu1;
off nat;


FI1 := (E**(O(2)*(S*l1+l2) + O(1)*(S*l1+l2))*G(3)*O(2) - E**(O(2)*(S*l1+l2) + O(1)*(S*l1+l2))*G(3)*O(
1) + E**(O(3)*(S*l1+l2) + O(1)*(S*l1+l2))*G(2)*O(3) - E**(O(3)*(S*l1+l2) + O(1)*(S*l1+l2))
*G(2)*O(1) + E**(O(3)*(S*l1+l2) + O(2)*(S*l1+l2))*G(1)*O(3) - E**(O(3)*(S*l1+l2) + O(
2)*(S*l1+l2))*G(1)*O(2))/(E**(O(3)*(S*l1+l2) + O(2)*(S*l1+l2) + O(1)*(S*l1+l2))*(O(3)**
2*O(2) - O(3)**2*O(1) - O(3)*O(2)**2 + O(3)*O(1)**2 + O(2)**2*O
(1) - O(2)*O(1)**2))$

FI2 := (E**(O(1)*(S*l1+l2))*G(3)*G(2)*O(3) - E**(O(1)*(S*l1+l2))*G(3)*G(2)*O(2) + E**
(O(2)*(S*l1+l2))*G(3)*G(1)*O(3) - E**(O(2)*(S*l1+l2))*G(3)*G(1)*O(1) + E**(O(
3)*(S*l1+l2))*G(2)*G(1)*O(2) - E**(O(3)*(S*l1+l2))*G(2)*G(1)*O(1))/(E**
(O(3)*(S*l1+l2) + O(2)*(S*l1+l2) + O(1)*(S*l1+l2))*(O(3)**2*O(2) - O(3)**2*O(1) - O(3)*O(2
)**2 + O(3)*O(1)**2 + O(2)**2*O(1) - O(2)*O(1)**2))$


%=========ok solutions ======================================

%q(1):= -log(fi1)+l3*(S-l2)+l4-log(l1**2);
%q(2):=  log(fi1) - log(fi2) +l3*(S-l2)+l4-2*log(l1**2);
%q(3):= +log(fi2)+ l3*(S-l2)+l4-3*log(l1**2);

%===========ok solutions ==================================

%q(1):= -log((fi1*l1**2)/l4)+l3*(l1*S-l2);
%q(2):=  log((l4*fi1)/(fi2*l1**4))  +l3*(l1*S-l2);
%q(3):= +log((l4*fi2)/l1**6)+ l3*(l1*S-l2);

q(1):= -log((fi1*l1**2)/l4)+l3*(l1*S-l2);
q(2):=  log((l4*fi1)/(fi2*l1**4))  +l3*(l1*S-l2);
q(3):= +log((l4*fi2)/l1**6)+ l3*(l1*S-l2);



%----------------------------------

eqq(1):= df(q(1),s,2) + exp(q(1) -q(2))  ;

eqq(2):=df(q(2),s,2) - exp(q(1) -q(2)) + exp(q(2) -q(3))  ;

eqq(3):=df(q(3),s,2)  - exp(q(2) -q(3))  ;





%--------------------------------


O(3):=-(O(1)+O(2));


g(3):=1/(g(1)*g(2));


eqq(1);

eqq(2);

eqq(3);

shut uu1;
bye;
end;