Смекни!
smekni.com

Механизм поперечно-строгального станка (стр. 3 из 3)

Worksheets(3).Range("b4") = z6

Worksheets(3).Range("a5") = "m"

Worksheets(3).Range("b5") = m

Worksheets(3).Range("a6") = "h1"

Worksheets(3).Range("b6") = h1

Worksheets(3).Range("a7") = "c"

Worksheets(3).Range("b7") = c

For i = 1 To 21

Worksheets(3).Cells(i + 8, 1).Value = i

Next i

'вычисление

Worksheets(3).Range("b8") = "полученные значения"

Worksheets(3).Range("c8") = "шестерня 5"

Worksheets(3).Range("d8") = "колесо 6"

Worksheets(3).Range("b9") = "суммарное число зубьев z"

z = z5 + z6

Worksheets(3).Range("c9") = z

Worksheets(3).Range("b10") = "min коэффициент смещения X"

x5 = (17 - z5) / 17

x6 = -x5

Worksheets(3).Range("c10") = x5

Worksheets(3).Range("d10") = x6

Worksheets(3).Range("b11") = "угол профиля исходного контура"

v = 20

q = 0.348888

Worksheets(3).Range("c11") = v

Worksheets(3).Range("b12") = "делительное межосевое расстояние a"

a = 0.5 * m * (z5 + z6)

Worksheets(3).Range("c12") = a

Worksheets(3).Range("b13") = "inv20"

inv = 0.0149

Worksheets(3).Range("c13") = inv

Worksheets(3).Range("b14") = "межосевое расстояние aw"

Worksheets(3).Range("c14") = a

Worksheets(3).Range("b15") = "делительная высота головки зуба ha"

ha5 = m * (h1 + x5)

ha6 = m * (h1 + x6)

Worksheets(3).Range("c15") = ha5

Worksheets(3).Range("d15") = ha6

Worksheets(3).Range("b16") = "делительная высота ножки зуба hf"

hf5 = m * (h1 + c - x5)

hf6 = m * (h1 + c - x6)

Worksheets(3).Range("c16") = hf5

Worksheets(3).Range("d16") = hf6

Worksheets(3).Range("b17") = "высота зуба h"

h = ha5 + hf5

Worksheets(3).Range("c17") = h

'диаметры

Worksheets(3).Range("b18") = "делительный диаметр d"

d5 = m * z5

d6 = m * z6

Worksheets(3).Range("c18") = d5

Worksheets(3).Range("d18") = d6

Worksheets(3).Range("b19") = "основной диаметр db"

db5 = m * z5 * Cos(q)

db6 = m * z6 * Cos(q)

Worksheets(3).Range("c19") = db5

Worksheets(3).Range("d19") = db6

Worksheets(3).Range("b20") = "начальный диаметр dw"

dw5 = d5

dw6 = d6

Worksheets(3).Range("c20") = dw5

Worksheets(3).Range("d20") = dw6

Worksheets(3).Range("b21") = "диаметр вершин зубьев da"

da5 = m * z5 + 2 * m * (h1 + x5)

da6 = m * z6 + 2 * m * (h1 + x6)

Worksheets(3).Range("c21") = da5

Worksheets(3).Range("d21") = da6

Worksheets(3).Range("b22") = "диаметр впадин зубьев df"

df5 = m * z5 - 2 * m * (h1 + c - x5)

df6 = m * z6 - 2 * m * (h1 + c - x6)

Worksheets(3).Range("c22") = df5

Worksheets(3).Range("d22") = df6

Worksheets(3).Range("b23") = "делительная толщина зубьев S"

s5 = 0.5 * 3.14 * m + 2 * m * x5 * Tan(q)

s6 = 0.5 * 3.14 * m + 2 * m * x6 * Tan(q)

Worksheets(3).Range("c23") = s5

Worksheets(3).Range("d23") = s6

Worksheets(3).Range("b24") = "основная толщина зубьев Sb"

sb5 = db5 * (3.14 / (2 * z5) + 2 * x5 * Tan(q) / z5 + inv)

sb6 = db6 * (3.14 / (2 * z6) + 2 * x6 * Tan(q) / z6 + inv)

Worksheets(3).Range("c24") = sb5

Worksheets(3).Range("d24") = sb6

Worksheets(3).Range("b25") = "начальная толщина зубьев Sw"

sw5 = s5

sw6 = s6

Worksheets(3).Range("c25") = sw5

Worksheets(3).Range("d25") = sw6

Worksheets(3).Range("b26") = "делительный шаг P"

p = 3.14 * m

Worksheets(3).Range("c26") = p

Worksheets(3).Range("b27") = "основной шаг pb"

pb = 3.14 * m * Cos(q)

Worksheets(3).Range("c27") = pb

Worksheets(3).Range("b28") = "радиус кривизны галтели r"

r = 0.4 * m

Worksheets(3).Range("c28") = r

Worksheets(3).Range("b29") = "коэффициент торцевого перекрытия e"

t5 = (((da5 / db5) ^ 2) - 1) ^ 0.5

t6 = (((da6 / db6) ^ 2) - 1) ^ 0.5

e = (z5 * t5 + z6 * t6 - (z5 + z6) * Tan(q)) / (2 * 3.14)

Worksheets(3).Range("c29") = e

End Sub


Список литературы

1Алехнович В.М.”Теория механизмов и манипуляторов”. Издательство высшая школа.1985г.

2.Машков А.А.”Теория механизмов и манипуляторов”. Издательство высшая школа.1971г.


Приложение

исходные данные
наимено- вание параметра обозначение единица измерения значение
O1-A r м 0.113
О1-О2 e м 0.35
B-O2 r1 м 0.7
y y м 0.14
BC l м 0.21
w1 w1 с 13.80
угол размаха b рад 0.87266
результаты вычислений
угол поворота перемещение скорость ускорение
0 -0.004922 -0.00083 5.38194
0.5236 0.0141113 0.60678 3.80533
1.0472 0.0561586 0.865058 2.90399
1.5708 0.1068522 0.935913 1.44724
2.0944 0.1582127 0.898178 -0.2797
2.61799 0.2054088 0.789663 -1.6989
3.14159 0.2447813 0.613949 -2.4693
3.66519 0.2716014 0.3239 -2.9936
4.18879 0.275994 -0.23141 -3.9887
4.71239 0.235559 -1.32772 -4.7289
5.23599 0.128899 -2.26762 2.34036
5.75959 0.0256355 -1.20752 6.53008
6.28319 -0.004922 -0.00083 5.38168
результаты аналитического расчета
начальные параметры
m3 6
m4 70
m5 120
полученные значения
N u3 mu3 u4 mu4 u5
0 -57.2731 -2.34731 -114.527 17.41795 -1.1E+07
1 -164.798 -6.93282 -337.12 50.99269 -1.6E+08
2 -276.534 -11.8008 -569.925 85.85486 -3.5E+08
3 -274.011 -11.6716 -564.147 84.71694 -4E+08
4 -144.589 -5.97045 -293.037 43.71576 -2.5E+08
5 -14.8626 0.344928 -18.0173 -1.93163 -5.5E+07
6 -27.7479 0.975466 -49.8168 -7.57031 -8453251
7 -108.177 -5.36884 -240.551 36.11039 -1.7E+08
8 -270.175 -12.9273 -589.596 88.70336 -3.8E+08
9 -305.491 -14.5559 -664.985 100.0586 -4.3E+08
10 -193.961 -9.33578 -424.105 63.86084 -2.6E+08
11 -67.0119 -3.22456 -145.531 22.04901 -5.8E+07
12 -56.9106 -2.33274 -113.79 17.30617 -1.1E+07
результаты аналитического расчета
начальные параметры
z5 12
z6 40
m 5
h1 1
c 0.25
полученные значения шестерня 5 колесо 6
1 суммарное число зубьев z 52
2 min коэффициент смещения X 0.2941177 -0.294
3 угол профиля исходного контура 20
4 делительное межосевое расстояние a 130
5 inv20 0.0149
6 межосевое расстояние aw 130
7 делительная высота головки зуба ha 6.4705887 3.5294
8 делительная высота ножки зуба hf 4.7794117 7.7206
9 высота зуба h 11.25
10 делительный диаметр d 60 200
11 основной диаметр db 56.385206 187.95
12 начальный диаметр dw 60 200
13 диаметр вершин зубьев da 72.941177 207.06
14 диаметр впадин зубьев df 50.441177 184.56
15 делительная толщина зубьев S 8.9199084 6.7801
16 основная толщина зубьев Sb 9.2226541 9.1721
17 начальная толщина зубьев Sw 8.9199084 6.7801
18 делительный шаг P 15.7
19 основной шаг pb 14.754129
20 радиус кривизны галтели r 2
21 коэффициент торцевого перекрытия e 1.5002282

[C1]ω