r P = (0.2 Г· 0.4); r P == 0,018 м
Мінімальний радіус дійсного кулачка
В
Побудова профілю кулачка.
Побудова профілю кулачка виробляю методом зверненого руху. Масштабний коефіцієнт побудови. p> У вибраному масштабі строю коло радіусом = 60 мм.
Відкладаю фазовий робочий кут. Ділю цей кут на стільки частин, скільки на графіку. Через точки ділення проводжу осі штовхача в обертання русі. Для цього з'єдную точку розподілу з центром обертання кулачка. Уздовж осей штовхача від окружності мінімального радіуса відкладаю поточне переміщення штовхача в обраному масштабі.
Поєднавши отримані точки, маємо центровий профіль кулачка. Обкативая ролик по центровому профілю у всередину, отримую дійсний профіль кулачка.
4.4 Максимальні значення швидкості, прискорення штовхача
В
Public Sub kul () p> 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/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
В
Рис.10 - Схема кулачка.
Список використаних джерел