Курсовая работа: Синтез и анализ рычажного механизма

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

EndSub

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

Угол зацепления а = 20

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

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

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

Число зубьев колеса z₂ = 24

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

Начальное межосевое расстояние a_w = 54 мм

Высота зуба h= 6,67 мм