Курсовая работа: Механизм поперечно-строгального станка

4.4.1 Расчёт кулачка на ЭВМ

PublicSubkul()

Dim I As Integer

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

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

Dim S(1 To 36) As Single

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

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

FI0 = InputBox("ВВЕДИТЕ НАЧАЛЬНОЕ ЗНАЧЕНИЕ УГЛА ПОВОРОТА КУЛАЧКА FI0")

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

For I = 1 To 36

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

Next I

FIR = FIR * 0.0174532

SHAG = FIR / 13

FI0 = FI0 * 0.0174532

FII = FI0

For I = 1 To 36

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