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

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))

u53= (a/ (sinf3^2))

vb = w3 * u53

Worksheets (1). Cells (3, I + 1). Value = CDbl (Format (vb, "Fixed"))

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

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

Worksheets (l). Cells (8,1 + 1). Value = CDbl (Forrnat (ab, "Fixed"))

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

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

I = I + 1

Next fl

Worksheets (l). Cells (2, l). Value = "Vb, м/c"

Worksheets (l). Cells (3,1). Value = "Аналитические"

Worksheets (l). Cells (4,1). Value = "Графические"

Worksheets (l). Cells (7, l). Value = "ab, м/c"

Worksheets (l). Cells (8,1). Value = " Аналитические "

Worksheets (l). Cells (9, l). Value = "Графические"

Worksheets (l). Cells (l,

1). Value = "Taблица1"

Worksheets (l). Cells (l,