Программа 13. Задача 21

>

restart;

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

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

>	v[O,1],v[O,2],v[F,1],v[F,2],v[C,1],v[C,2]:=0$6:

Заданная угловая скорость ОА

>

w1:=12:

Размеры

>	BC:=5: AD:=3: DE:=6: EF:=6: OA:=2: AB:=9: alpha:=arccos(4/5):

>	Gr1:=Граф([C,B,A,O],[BC,AB,OA],[Pi+alpha,Pi/2,Pi],[w5,w2,w1]):

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

>	Gr2:=Граф([F,E,D,A,O],[EF,DE,AD,OA],[Pi/2,0,Pi/2,Pi],[w4,w3,w2,w1]):

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

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

>