out todd;
z:=sqrt(2);
Fg1:=g1/(z*exp(t*w1)*w1*(w2^2-w1^2)*(w3^2-w1^2));
Fg2:=-g2/(z*exp(t*w2)*w2*(w1^2-w2^2)*(w2^2-w3^2));
Fg3:=g3/(z*exp(t*w3)*w3*(w2^2-w3^2)*(w3^2-w1^2));

Fg11:=g1*exp(t*w1)*(1/(z*(w1-w2)*(w1-w3)^2*(w2-w3)*w3)
-1/((w1-w2)*(w1-w3)*(w2-w3)*w3)
+1/(z*(w1^2-w3^2)*(w2^2-w1^2)*w1));

Fg22:=(g2*exp(t*w2)*(-3*w1^3*w2-w1^2*w2^2-4*w2^2-w1^3*w3-3*w1^2*w2*w3+4*w2^3*w3
+3*w1*w2*w3^2+5*w2^2*w3^2+w1*w3^3-w2*w3^3))/(z*(w1-w2)^2*w2*(w1+w2)*(w3-w1)
*(w1+w3)*(w3-w2)^2*(w2+w3));

Fg33:=g3*exp(t*w3)*(w1*w2-w2^2+3*w1*w3+w2*w3+4*w3^2)/(z*(w2-w1)*w3*(w3-w1)
*(w1+w2)*(w3-w2)^2*(w2+w3));

FI:=Fg1+Fg2+Fg3+Fg11+Fg22+Fg33;



shutodd;
bye;
end;