Курсовая работа: Привод конвейера ПК-19

Const l5 = 0.285

Const w1 = 8.37

h = 3

k = 1

For f1 = 10 * 3.14 / 180 To 370 * 3.14 / 180 Step 30 * 3.14 / 180

w3 = w1 * ((l1 ^ 2 + l0 * l1 * Sin(f1)) / (l1 ^ 2 + l0 ^ 2 + _

2 * l0 * l1 * Sin(f1)))

e3 = w1 ^ 2 * ((l0 * l1 * Cos(f1) * (l0 ^ 2 - l1 ^ 2)) / ((l1 ^ 2 + _

l0 ^ 2 + 2 * l0 * l1 * Sin(f1)) ^ 2))

sinf3 = (l0 + l1 * Sin(f1)) / (Sqr(l1 ^ 2 + l0 ^ 2 + 2 * l0 * l1 * Sin(f1)))

cosf3 = Sqr(1 - sinf3 ^ 2)

sinf4 = (l5 - l3 * sinf3) / l4

cosf4 = Sqr(1 - sinf4 ^ 2)

U43 = -((l3 * cosf3) / (l4 * cosf4))

U431 = (l3 * sinf3 + l4 * sinf4 * U43) / (l4 * cosf4)

Vc = -(w3 * (-l3 * sinf3 - l4 * sinf4 * U43))

ac = -((w3 ^ 2 * (-l3 * cosf3 - l4 * sinf4 * U431 - l4 * cosf4 * U43)) + _

(e3 * (-l3 * sinf3 - l4 * sinf4 * U43)))

Worksheets(1).Cells(3, h) = Vc

Worksheets(1).Cells(8, h) = ac

Worksheets(1).Cells(2, h) = k

Worksheets(1).Cells(7, h) = k

h = h + 1

k = k + 1

Next f1

Worksheets(1).Cells(2, 2) = 0

Worksheets(1).Cells(7, 2) = 0

Worksheets(1).Cells(3, 2) = Vc

Worksheets(1).Cells(8, 2) = ac