Определение частот вращения зубчатых колёс аналитическим методом 


Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Определение частот вращения зубчатых колёс аналитическим методом



Для построения плана скоростей определяем скорость точки А колеса 1:

Выбираем масштабный коэффициент построения плана скоростей:

Для построения плана частот вращения выбираем масштабный коэффициент построений:

Из плана частот вращения имеем:

Правильность построений проверяем аналитическим расчетом частот вращения колес:

n6 = nКР =100\0мин-1;

n2=(1000-200)/(-1,5)-200=-333,33

Таким образом погрешность не превышает 5%

 

Расчёт на ЭВМ:

 

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 =(17-z2)/17

ListBoxl.Addltem ("x2=" & x2) a = m*(zl +z2)/2

ListBoxl.Addltem ("a=" & a) aw=a *cos A/ cosAw

ListBoxl.Addltem ("aw=" & aw) h=m m*(ha+c-y)

ListBoxl.Addltem ("h=" & h) ha1=m*(ha+x1-y)

ListBoxl.Addltem ("ha1=" &ha1) ha2=m*(ha+x2-y)

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*cosA/cosAw

ListBoxl.Addltem ("dw1=" &dw1) dw2 = d2*cosA/cosAw

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

Коэффициент высоты головки зуба ha = l

Коэффициент радиального зазора С = 0,25
Модуль m = 2,5 мм

Число зубьев шестерни z 1 = 10

Число зубьев колеса z2 = 20

 

Результаты расчета

Начальное межосевое расстояние aw = 38,06 мм

Высота зуба h = 5,595 мм

ШЕСТЕРНЯ КОЛЕСО

Коэффициент смещения Х5 = 0,29 Х6= - 0,18

 

 

Высота головки зуба ha5= 3,5 мм ha6=2,03 мм

Высота ножки зуба hf5 = 2,095 мм hf6=3,565 мм

Делительный диаметр d5 = 25 мм d6=50мм

Начальный диаметр dw5 = 25,37 мм dw6=50,75 мм

Диаметр вершин da5=32 мм da6 =54,06 мм

Диаметр впадин df5=20,81 мм df6 =42,87 мм

Основной диаметр dB5=23,49 мм dB6 =46,98 мм

Толщина зуба S 5= 4,68 мм S6 =3,61 мм

Шаг Р=7,85мм

Основной шаг Рв=7,38 мм

Радиус Рr=0,952


4 Синтез и анализ кулачкового механизма

 

Исходные данные:

а) диаграмма движения выходного звена

 

б) частота вращения кривошипа

в) длина колебателя

г) максимальный размах колебателя

д) максимальный угол давления

е) рабочий угол кулачка

ж) роликовый тип кулачкового механизма (Рисунок 4.1)

 

Рисунок 4.1 - Тип кулачка

 

 



Поделиться:


Последнее изменение этой страницы: 2017-01-19; просмотров: 178; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 44.222.146.114 (0.027 с.)