Программа 16. Задача 23

>

restart;

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

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

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

Угловая скорость

>

w1:=20:

Размеры

>	R:=3: OA:=6: AB:=4*sqrt(2): DC:=4: AC:=10:

>	Gr1:=Граф([O,A,B,P],[OA,AB,R*sqrt(2)],[-Pi/2,3*Pi/4,5*Pi/4],[w1,w2,w5]):

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

>	Gr2:=Граф([P,D1,C,A,O],[R*sqrt(2),DC,AC,OA],[3*Pi/4,-Pi/2,0,Pi/2],[w5,w3,w4,w1]):

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

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