Программа 44. Задача 64

>

restart;

>	q1:=5: q2:=4: P:=10:

>	Pq1:=q1*4: Pq2:=q2*5:

>	eq[1]:= Xa+Xc+Xe:

>	eq[2]:= Ya+Yc+Ye:

>	eq[3]:=-10*Xe-5*Xc+4*Yc:

>	eq[4]:=-Xe+Xd1:

>	eq[5]:=-Ye+Yd1:

>	eq[6]:= 8*Yd1:

>	eq[7]:=-Xc+Xd2-Pq2:

>	eq[8]:=-Yc+Yd2+P:

>	eq[9]:=-5*Xd2+4*Yd2+2.5*Pq2:

>	eq[10]:=-Xd1-Xd2+Xb:

>	eq[11]:=-Yd1-Yd2+Yb+P+Pq1:

>	eq[12]:= 8*Yb+6*Pq1+4*P:

>	solve({seq(eq[i],i=1..12)},

>	{Xa,Xb,Xc,Xe,Xd1,Xd2,Ya,Yb,Yc,Ye,Yd1,Yd2});