Программа 15. Задача 22

>

restart;

>	read "C:\\graph.m";

Неподвижные точки (нулевые скорости)

>	v[O,1],v[O,2],v[P,1],v[P,2]:=0$4:

>	w1:=2:R:=5:

>	Gr1:=Граф([P,D1,A,O],[R*sqrt(2),10,5],[Pi/4,0,-Pi/2],[w4,w5,w1]):

>	eq1:=Gr1[1]; eq2:=Gr1[2];

>	Gr2:=Граф([P,E,C,B,O],[R,5*sqrt(2),10,10],[Pi/2,Pi/4,0,-Pi/2],[w4,w3,w2,w1]):

>	eq3:=Gr2[1]; eq4:=Gr2[2];

>	S:=solve({eq1,eq2,eq3,eq4},{w2,w3,w4,w5}); assign(S):