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

>	restart: with(plots): with(plottools):

>	with(LinearAlgebra):

 Размеры объекта (м)

>	a:=2: b:=6: c:=3:

         Нагрузки   (кН)

>	F[1]:=Vector([0,3,0]):

>	F[2]:=Vector([0,0,-12]):

Координаты точек приложения нагрузок

>	Точки1[1]:=Vector([a,b,0]):

>	Точки1[2]:=Vector([a/2,b/2,0]):

>	N:=add(F[i],i=1..2):

>	M:=add(CrossProduct(Точки1[i],F[i]),i=1..2):

Вектор правых частей системы

>

B:=<N,M>:

  Направления усилий(№1,2,3 - реакция шарнира А,
 №4 - вертикальный опорный стержень,
 №5 - горизонтальный опорный стержень,
 №6 - подпорка)

>	S[1]:=Vector([1,0,0]):

>	S[2]:=Vector([0,1,0]):

>	S[3]:=Vector([0,0,1]):

>	S[4]:=Vector([0,0,1]):

>	S[5]:=Vector([-1,0,0]):

>	S[6]:=Normalize(Vector([-a,-b,-c]),Euclidean):

>	A1:=Matrix([seq(S[i],i=1..6)]):

      Координаты точек приложения

>	Коорд[1]:=Vector([0,0,0]):

>	Коорд[2]:=Vector([0,0,0]):

>	Коорд[3]:=Vector([0,0,0]):

>	Коорд[4]:=Vector([a,0,0]):

>	Коорд[5]:=Vector([0,b,0]):

>	Коорд[6]:=Vector([a,b,0]):

>	A2:=Matrix([seq(CrossProduct(Коорд[j],S[j]),j=1..6)]):

           A:=<A1,A2>;

>	macro(Tr = Transpose):

>	Вид:=0.1,0.2,0.3,cylindrical_arrow:

>	Нагр:=seq(arrow(Tr(Точки1[k]),Tr(F[k]/2),Вид,color=blue),k=1..2):

>	Стерж:=seq(arrow(Tr(Коорд[k]),Tr(S[k]*1.5),Вид,color=red),k=1..6):

>	display(Нагр,Стерж,cuboid([0,0,0],[a,b,-c]),shading=none,style=line);

>	Transpose(-A^(-1).B);#Ответ

>