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

Dim dis1, dis2, R, a1, a2, arksin1, arksin2, BETTA As Single

Dim R0, FIR, FI0, FII, SHAG, E As Single

Dim S(1 To 10) As Single

Worksheets(1).Activate

Worksheets(1).Range("a:o").Clear

Worksheets(1).ChartObjects.Delete

R0 = InputBox("ВВЕДИТЕ МИНИМАЛЬНЫЙ РАДИУС КУЛАЧКА RO")

FIR = InputBox("ВВЕДИТЕ РАБОЧИЙ УГОЛ КУЛАЧКА FIR")

FI0 = InputBox("ВВЕДИТЕ НАЧАЛЬНОЕ ЗНАЧЕНИЕ УГЛА_

ПОВОРОТА КУЛАЧКА FI0")

E = InputBox("ВВЕДИТЕ ДЕЗАКСИАЛ E")

For I = 1 To 10

S(I) = InputBox("ВВЕДИТЕСТРОКУПЕРЕМЕЩЕНИЙ S(" & I & ")")

Next I

FIR = FIR * 0.0174532

SHAG = FIR / 10

FI0 = FI0 * 0.0174532

FII = FI0

For I = 1 To 10

dis1 = (R0 ^ 2 - E ^ 2) ^ (1 / 2)

dis2 = S(I) ^ 2 + R0 ^ 2 + 2 * S(I) * dis1

R = dis2 ^ (1 / 2)

a1 = E / R

a2 = E / R0

arksin1 = Atn(a1 / (1 - a1 ^ 2) ^ (1 / 2))

arksin2 = Atn(a1 / (1 - a2 ^ 2) ^ (1 / 2))

BETTA = FII + arksin1 - arksin2

BETTA = BETTA * 180 / 3.1415

Worksheets(1).Cells(1, 1) = "R"