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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

31
> Wc := arrow(pointC, w4, .35, 1, .20, color=blue):
> display(draw(Pi/2),
Wa, Wb, Wc,
textplot([w1['x'] + dxy, 35 + w1['y'] + dxy, 'Wa'],
color=blue),
textplot([pointB[1] + w2[1] + dxy, dxy, 'Wb'],
color=blue),
textplot([pointC[1] + w4[1] - dxy,
pointC[2] + w4[2] + dxy, 'Wc'], color=blue),
scaling=CONSTRAINED);
Ответ
> `Скорости точек:`; V[`В`]=V['A'].`см/с`, V[`С`]=V['C'].`см/с`;
`Угловая скорость звена АВ:`; 'omega[`AB`]'=omega['AB'];
`Ускорения точек:`; 'W[`B`]'=evalf(W[B]), 'W[`C`]'=evalf(W[C]);
`Угловое ускорение звена АВ:`; 'epsilon[AB]'=evalf(epsilon['AB']);
:точе
к
Скорости
140 / , 140 /
BC
V см с V см с==
:
A
BзвенаскоростьУгловая
0ω
AB
=
:точе
к
Ускорения
2511872.527W,3161509.603W
CB
==
:
A
Bзвенаускорени
е
Угловое
237604309.9ε
AB
= 
> Wc := arrow(pointC, w4, .35, 1, .20, color=blue):
> display(draw(Pi/2),
          Wa, Wb, Wc,
          textplot([w1['x'] + dxy, 35 + w1['y'] + dxy, 'Wa'],
                   color=blue),
          textplot([pointB[1] + w2[1] + dxy, dxy, 'Wb'],
                   color=blue),
          textplot([pointC[1] + w4[1] - dxy,
                    pointC[2] + w4[2] + dxy, 'Wc'], color=blue),
          scaling=CONSTRAINED);




Ответ
> `Скорости точек:`; V[`В`]=V['A'].`см/с`, V[`С`]=V['C'].`см/с`;
  `Угловая скорость звена АВ:`; 'omega[`AB`]'=omega['AB'];
  `Ускорения точек:`; 'W[`B`]'=evalf(W[B]), 'W[`C`]'=evalf(W[C]);
  `Угловое ускорение звена АВ:`; 'epsilon[AB]'=evalf(epsilon['AB']);
    Скорости точек :
    VB = 140 см / с, VC = 140 см / с
    Угловая скорость звена AB :
    ωAB = 0
    Ускорения точек :
    WB = 603.3161509 , WC = 527.2511872
    Угловое ускорение звена AB :
    ε AB = 9.237604309




                                 31

Страницы