тричний розрахунок зубчастої передачі. Проектування планетарного механізму
3.1 Геометричний розрахунок равносмещенного зубчастого зачеплення.
Вихідні дані:
Кількість зубів на шестерні
Кількість зубів на колесі
Модуль
Кут профілю рейки
Коефіцієнт висоти головки зуба
Коефіцієнт радіального зазору
Сумарне число зубів коліс
Оскільки, то проектуємо равносмещенное зубчасте зачеплення.
Коефіцієнт зміщення
В
Кут зачеплення
Ділильний міжосьова відстань
В
Початковий міжосьова відстань
Висота зуба
В
Висота головки зуба
В
Висота ніжки зуба
В
Ділильний діаметр
В
Основний діаметр
В
Діаметр вершин
В
Діаметр западин
В
Товщина зуба по ділильному діаметру
В
Ділильний крок
В
Крок за основного кола
В
Радіус галтелі
В
Коефіцієнт перекриття
В
Похибка визначення коефіцієнта зачеплення:
В
де ab і p знаходимо з креслення картини зачеплення.
1. Масштабний коефіцієнт побудови картини зачеплення. br/>В
3.2 Синтез планетарного редуктора
Вихідні дані:
Модуль
Частота обертання валу двигуна
Частота обертання кривошипа
Числа зубів
Номер схеми редуктора
Знак передавального відношення -
Загальне передавальне відношення редуктора
В
Передаточне відношення простої передачі
В
Передаточне відношення планетарної передачі
В
Формула Вілліса для планетарної передачі
В
5. Передавальне відношення зверненого механізму, виражене в числах зубів.
В
Уявімо отримане відношення у вигляді
В
6. Підбір чисел зубів
Вибираємо числа зубів
В
7. Умова співвісності
В
Умова співвісності виконано
8. Ділильні діаметри
В
9. Кутова швидкість вала двигуна
В
10. Лінійна швидкість точки A колеса z1
В
11. Масштабний коефіцієнт Kv
В
12. Масштабний коефіцієнт побудови плану редуктора
В
3.3 Визначення частот обертання аналітичним методом.
1. Визначення частот обертання аналітичним методом. br/>В
звідки
В
Знак плюс показує, що водило обертається в одному напрямку з валом
В
2. Визначення частот обертання графічним методом. p> Масштабний коефіцієнт плану частот обертання
В
Частоти обертання, отримані графічним способом.
В
Визначення похибок
В
Private Sub CommandButtonl_Click ()
Dim zl, z2, m, ha, C, z5, z6, xl, x2, aw, a, h, hal, ha2, hfl, hf2, dl, d2, dal, da2, dBl, dB2, dfl, df2, SI, S2, P, PB, rf, q As Double zl = CDbl (TextBoxl. Value)
z2 = CDbl (TextBox2.Value)
m = CDbl (TextBox3. Value)
ha = CDbl (TextBox4.Value)
c = CDbl (TextBox5. Value)
q = CDbl (TextBox6.Value)
ListBoxl. Clear
ListBoxl.Addltem ("Початок відліку")
ListBoxl.Addltem ("zl =" & zl)
ListBoxl. Addltem ("z2 =" & z2)
ListBoxl.Addltem ("m =" & m)
ListBoxl.Addltem ("ha * =" & ha)
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...
