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

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г.

Приложение