Программа 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}); |
> |