Программа 4. Задача 7

>    restart;

>    F:=2,4,2: M:=3:#Силы и момент  

 Равновесие AD

>    eq[1]:=X2+Xa:

>    eq[2]:=Y2+Ya:

>    eq[3]:=8*Ya-3*Xa-M:

Равновесие DC

>    eq[4]:=X1+F[1]-S+Xc:

>    eq[5]:=Y1-F[2]:

>    eq[6]:=4*Xc-2*S-8*F[2]:

Равновесие BD  

>    eq[7]:=X3+S-F[3]:

>    eq[8]:=Y3+Yb:

>    eq[9]:=-4*X3-2*S+2*F[3]:

Равновесие оси

>    eq[10]:=X1+X2+X3:

>    eq[11]:=Y1+Y2+Y3:

Решение

>    R:=solve({eq[i]$i=1..11});

>    #R:=solve({eq[i]$i=1..11},{X1,X2,X3,Y1,Y2,Y3,Xa,Ya,S,Yb,Xc});

>    assign(R);

R := {S = 2, X1 = -9, X2 = 9, X3 = 0, Xa = -9, Xc = 9, Y1 = 4, Y2 = 3, Y3 = -7, Ya = -3, Yb = 7}

Проверка

>    -Xa*3-Ya*3+F[2]*3-F[3]*2+Xc*4-Yb*11-M;

0