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

  AC := 45:
  V_размер := 5:
  V['A'] := omega['OA'] * OA:
  v1['x'] := -V['A'] / V_размер:
  v1['y'] := 0:
  dxy := 3:
  pointA := [0, OA]:
  psi := arcsin(OA/AB);
           π
    ψ :=
           6
> pointB := [AB*cos(psi), 0]:
  pointC := [pointB[1] - (AB-AC)*cos(psi),
              pointB[2] + (AB-AC)*sin(psi)]:
  Va := arrow(pointA, vector([v1['x'], v1['y']]),     .35, 1, .20,
               color=red):
  Vb := arrow(pointB, vector([v1['x'], v1['y']]),     .35, 1, .20,
               color=red):
  Vc := arrow(pointC, vector([v1['x'], v1['y']]),     .35, 1, .20,
               color=red):
> display(draw(Pi/2),
          Va,
          textplot([v1['x'] + dxy, 35 + v1['y'] +     dxy, 'V'],
                    color=red),
          scaling=CONSTRAINED);




      Скорость точки B направлена вдоль оси Ox (т.к. ползун B переме-
щается только по горизонтали), следовательно если мы будем искать по-
ложение мгновенного центра скоростей звена AB , то проведя перпендику-
ляры в точках A и B к скоростям получим, что они параллельны.
      Это значит, что тело AB совершает мгновенное поступательное
движение и, следовательно, скорости всех точек равны, а мгновенная угло-
вая скорость вращения равна нулю:
      ω AB = 0 .
> V['B'] := V['A']:
  V['C'] := V['A']:
  omega['AB'] := 0:
> display(draw(Pi/2),
        Va, Vb, Vc,
        textplot([v1['x'] + dxy, 35 +   v1['y'] + dxy, 'V'],
                 color=red),
        textplot([pointB[1] + v1['x']   +   dxy,
                  pointB[2] + v1['y']   +   dxy, 'V'], color=red),
        textplot([pointC[1] + v1['x']   +   dxy,
                  pointC[2] + v1['y']   +   dxy, 'V'], color=red),

                                   27