Введение в Maple и рассмотрение задач теоретической механики. Эксаревская М.Е - 35 стр.

> v2['x'] := V_пер(1/8)*cos(Pi/2+phi(1/8)):
  v2['y'] := V_пер(1/8)*sin(Pi/2+phi(1/8)):
> display(pos(phi(1/8), S(1/8), 3/16),
          plottools[arrow]([x, y], vector([v2['x'], v2['y']]),
                           .15, .6, .1, color=blue),
          textplot([x + v2['x'] + dxy, y + v2['y'] + dxy,
                 `переносная скорость`], color=blue),
          scaling=constrained);




Стрелка-направление указывает на переносную скорсть.
Сумма переносной и относительной скоростей есть скорость точки в абсо-
лютном движении. Эта скорость направлена по касательной к траектории.
> display(pos(phi(1/8), S(1/8), 3/16),
          plottools[arrow]([x, y], vector([v2['x'], v2['y']]),
                           .15, .6, .1, color=blue),
          textplot([x + v2['x'] + dxy, y + v2['y'] + dxy,
                   `переносная скорость`], color=blue),
          plottools[arrow]([x, y], vector([v1['x'], v1['y']]),
                           .15, .6, .1, color=green),
          textplot([x + v1['x'] + dxy,y + v1['y'] + dxy,
                   `относительная скорость`], color=green),
          plottools[arrow]([x, y], vector([v1['x'] + v2['x'],
                       v1['y'] + v2['y']]), .15, .6, .1, color=red),
          textplot([x + v1['x'] + v2['x'] + dxy,
                    y + v1['y'] + v2['y'] + dxy,
                   `Абсолютная скорость`], color=red),
          scaling=constrained);




Центральная стрелка указывает на абсолютную скорость. Ближе к оси ор-
динат расположена переносная скорость, а к оси абсцисс – относительная.
> V_абс['x'] := V_размер*evalf(v1['x'] + v2['x']):
  V_абс['y'] := V_размер*evalf(v1['y'] + v2['y']):
  V_abs := sqrt(V_абс['x']^2 + V_абс['y']^2);
   V _ abs := 87.26877071
Направляющие косинусы найдём по формулам:
                                   35