масштабних
коефіцієнтів
По заданому графіком швидкості штовхача графічним інтегруванням за методом хорд будують 2 графіка - графік прискорення штовхача a (t) і графік переміщення штовхача S (t). Бази інтегрування Н1 = 60мм. p> Визначаємо масштабні коефіцієнти:
Масштабний коефіцієнт переміщення
В
де h - максимальний хід штовхача, м;
yh - максимальна ордината графіка відповідна заданому підйому штовхача, мм.
Масштабний коефіцієнт часу
В
де П†р - робочий кут кулачка, град;
nкул - частота обертання кулачка, хв-1;
xt - довжина відрізка на осі абсцис графіка, що зображає час повороту кулачка на робочий кут, мм.
Масштабний коефіцієнт швидкості штовхача
В
4.2 Мінімальний радіус кулачка
Вибираємо виходячи з умови R0 ≥ h
R0 = 150 мм
4.3 Побудова профілю кулачка
Профіль кулачка будуємо у масштабному коефіцієнті побудови Проводимо коло радіусом R0, відкладаємо фазовий робочий кут і ділимо його на 12 частин. Від точки поділу проводимо вісь. Уздовж осі штовхача відкладаємо поточне переміщення штовхача від окружності мінімального радіуса і проводимо перпендикуляри до ліній. Профілем кулачка буде огинає всіх положень тарілки штовхача.
4.4 Визначення максимальної швидкості і прискорення штовхача
В
де, - максимальні ординати швидкості і прискорення на відповідних графіках, мм.
Складаємо програму визначення профілю кулачка.
Public Sub kulachok ()
Dim I As Integer
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"
Worksheets (1). Cells (1, 2) = "BETTA"
Worksheets (1). Cells (I + 1, 1) = R
Worksheets (1). Cells (I + 1, 2) = BETTA
FII = FII + SHAG
Next I
End Sub
Результати роботи програми
R, мм
BETTA
150
0
155,35
16,67
164,33
33,34
172,64
50,01
180,96
66,68
189,98
83,35
195,04
100,02
189,98
116,69
180,96
133,36
172,64
150,03
164,33
166,70
155,35
183,37
150
200,04
150
216,71
150
233,38
150
250,05
150
266,72
150
283,39
...
