ListBoxl. Addltem ("C * =" & C) q = (q * 3.14)/180
ListBoxl. Addltem ("Кут-'& q) xl = (17-zl)/17
ListBoxl. Addltem ("Xl =" & xl) x2 = - xl
ListBoxl. Addltem ("X2 =" & x2) a = m * (zl + z2)/2
ListBoxl. Addltem ("A =" & a) aw = a
ListBoxl. Addltem ("Aw =" & aw) h = 2.25 * m
ListBoxl. Addltem ("H =" & h) ha1 = m * (ha + x1)
ListBoxl. Addltem ("Ha1 =" & ha1) ha2 = m * (ha + x2)
ListBoxl. Addltem ("Ha2 =" & ha2) hf1 = m * (ha + c-x1)
ListBoxl. Addltem ("Hf1 =" & hf1) hf2 = m * (ha + c-x2)
ListBoxl. Addltem ("Hf2 =" & hf2) d1 = m * z1
ListBoxl. Addltem ("D1 =" & d1) d2 = m * z2
ListBoxl. Addltem ("D2 =" & d2) dw1 = d1
ListBoxl. Addltem ("Dw1 =" & dw1) dw2 = d2
ListBoxl. Addltem ("Dw2 =" & dw2) dal = dl +2 * hal
ListBoxl. Addltem ("Dal =" & dal) da2 - d2 + 2 * ha2
ListBoxLAddltem ("Da2 =" & da2) dfl = dl - 2 * hfl
ListBoxLAddltem ("Dfl =" & dfl) df2 = d2-2 * hf2
ListBoxLAddltem ("Hf2 =" & h ВЈ 2) dBl = dl * Cos (q)
ListBoxLAddltem ("DBl =" & dBl) dB2 = d2 * Cos (q)
ListBoxLAddltem ("DB2 =" & dB2) Sl = 0.5 * 3.14 * m + 2 * xl * m * Tan (q)
ListBdxl. AddItem ("Sl =" & Sl)
S2 = 0.5 * 3.14 * M + 2 * x2 * m * Tan (q) ListBoxLAddltem ("S2 =" & S2)
P = 3.14 * m
ListBoxLAddltem ("P =" & P)
pB = p * Cos (q)
ListBoxLAddltem ("PB =" & pB) rf = 0.38 * m
ListBoxLAddltem ("R ВЈ =" & rf) End Sub
Private Sub CommandButton2_Click () UserForm 1. Hide
End Sub
Вихідні дані
Кут зачеплення а = 20
Коефіцієнт висоти головки зубаh a = l
Коефіцієнт радіального зазору З = 0,25 Модуль m = 3 мм
Кількість зубів шестерні z 1 = 12
Кількість зубів колеса z 2 = 24
Результати розрахунку
Початковий міжосьова відстань a w = 54 мм
Висота зуба h = 6,67 мм
ШЕСТЕРНЯКОЛЕСО
коефіцієнт зміщення 1 = 0,29 Х 2 = - 0,29
Висота головки зуба h al = 3,87 ммh a 2 = 2,13 мм
Висота ніжки зуба h fl = 2,88 ммh f 2 = 4,62 мм
Ділильний діаметр d l = 36 ммd 2 = 72мм
Початковий діаметр d wl = d l = 36 ммd w 2 = 72 мм
Діаметр вершин d al = 43,74 ммd a 2 = 76,26 мм
Діаметр западин d fl = 30,24 мм d f 2 = 62,76 мм
Основний діаметр d Bl = 33,83 ммd B 2 = 67,66 мм
Товщина зуба S 1 = 5,34 ММS 2 = 4,074 мм
Крок Р = 9,42 мм
Основний крок Рв = 8,85 мм
Радіус rf = l, 14 мм
4. Синтез і аналіз кулачкового механізму
Вихідні дані:
а) діаграма руху вихідної ланки
В
б) частота обертання кривошипа
в) максимальний підйом штовхача p> г) робочий кут кулачка
д) кут тиску
ж) дезаксіал кулачка
з) роликовий тип кулачкового механізму (рис 9)
В
Рис.9 - Роликовий тип кулачка
4.1 Діаграма руху штовхача
За заданим графіком прискорення штовхача а = f (t), графічним інтегруванням за методом хорд отримую графіки швидкості і переміщення штовхача.
База інтегрування:
В
Графіки V (S), a (s) отримую методом виключення загального змінного параметра t - Час. p> Масштабний коефіцієнт переміщення.
В
де-максимальне значення ординати графіка, відповідає заданому підйому штовхача.
4.2 Масштабний коефіцієнт часу
В
де - частота обертання кулачка:
= 120 мм - довжина відрізка на осі абсцис графіка зображає час повороту кулачка на робочий кут.
В
Масштабний коефіцієнт швидкості штовхача.
В
4.3 Масштабний коефіцієнт прискорення
В
Вибір мінімального радіуса кулачка.
Мінімальний радіус кулачка вибираю з умови заданого кута тиску.
Для цього строю спільний графік. На цьому графіку поточне переміщення відкладаю вздовж осі координат у стандартному масштабі. До отриманого графіком проводжу два дотичні під кутом тиску.
Точка перетину дотичних утворює зону вибору центрів обертання кулачка, з'єднавши обрану точку з початком графіка, отримую значення мінімального радіус кулачка.
Аналоги швидкості розраховуємо в стандартному масштабі таким чином.
, br/>
Значення мінімального радіуса центрового профілю кул ачка з графіка S '()
В
Радіус ролика ...