Курсовая работа: Синтез и анализ рычажного механизма

2.7 Определение кинетической энергии механизма

Кинетическая энергия механизма равна сумме кинетических энергий входящих в него массивных звеньев.

Приведенный момент инерции

2.7.1 Расчёт сил инерции на ЭВМ

Sub Kulis 2 ()

Const H = 0.430

Const L0 = 0.16

Const L1 =0.092

Const a = 0.27

Const m = 0.27

Const Wl = 10,67

i = 2

For fl = 18 * 3.14/180 To 378 * 3.14 /180 Step 30 * 3.14 /180

Cosf3 = L1 * cos (fl) / ( ( (LI ^ 2 + L0 * LI * sin (fl)) ^ (1/2))

U31 = (cosf3 ^ 2) * (LI ^ 2 + L0 * LI * sin (fl)) / (LI ^ 2 * (cos (fl) ^ 2))

T = (LI ^ 2) + L0 * LI * sin (fl)

Q = (LI ^ 2) + (L0 ^ 2) + 2 * L0 * LI * sin (fl)

w3 = Wl * (T / Q)

up31= (L0*LI*cos (fl) * (L0^2 - LI^2)) / ( ( (L0^2) - (LI^2) + 2*L0*LI*sin (fl)) ^2)

e3= (Wl ^2) *up31

sinf3 = (L0 + LI * sin (fl)) / ( (LO ^ 2 + LI ^ 2 +2*LO*L1 * sin (fl)) ^ (1/2))

Up53 = (2 *a * cosf3) / (sinf3 ^ 3)

Ab = (w3 ^ 2) * up53 + e3 * u53

Ub = (Ab * m) /2

Worksheets (l). Cells (8,1 + 1). Value = CDbl (Format (Ub, "Fixed"))

Worksheets (l). Cells (2, i). Value - 1 - 2

I = I + 1