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

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 / 12

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

Worksheets (1). Cells (I,

1) = R

Worksheets (1). Cells (I,

2) = BETTA

FII = FII + SHAG

Next I

End Sub

Таблица 4.1 - Результаты расчета

R, мм	BETTA	R, мм	BETTA	R, мм	BETTA	R, мм	BETTA
42	0	56.64	104	42	208	42	312
42.7	13	51.06	117	42	221	42	325
45.48	26	45.48	130	42	234	42	338
51.06	39	42.7	143	42	247	42	351
56.64	52	42	156	42	260
59.44	65	42	169	42	2731
60.12	78	42	182	42	286
59.64	91	42	195	42	299