Курсовая работа: Механизм насоса с качающейся кулисой

x1= мм

x2=

К совмещённому графику проводим две касательные под углом давления α. Ниже точки пересечения касательных выбирается центр вращения кулачка и соединяется с началом совмещённого графика. Это и будет минимальный радиус кулачка.

R0’=R0’·KS’=40·0,0005=0,02 м;

4.3 Построение профиля кулачка

Профилирование кулачка выполняется методом обращённого движения. Для этого строим кулачок в масштабе Кl=0,00025 м/мм. Проводим окружность радиусом R0’ и окружность радиуса е. Откладываем угол φр=290. Делим его на 12 частей и через точки деления проводим оси толкателя в обращённом движении. Вдоль осей толкателя откладываем текущее перемещение толкателя от окружности R0’. Соединяя полученные точки получим центровой профиль кулачка. Радиус ролика выбираем из условия:

rp=(0,2…0,4)R0’=0,25∙40=10 мм

Минимальный радиус действительного профиля:

R0=R0’-rp=40-10=30 мм

Обкатывая ролик по центровому профилю получаем действительный профиль.

Public Sub kul()

Dim I As Integer

Dim dis1, dis2, R, a1, a2, arksin1, arksin2, BETTA, BET As Single

Dim R0, FIR, FI0, FII, SHAG, E As Single

Dim S(1 To 10) As Single

R0 = InputBox("ВВЕДИТЕ МИНИМАЛЬНЫЙ РАДИУС КУЛАЧКА RO")

FIR = InputBox("ВВЕДИТЕ РАБОЧИЙ УГОЛ КУЛАЧКА FIR")

FI0 = InputBox("ВВЕДИТЕ НАЧАЛЬНОЕ ЗНАЧЕНИЕ УГЛА ПОВОРОТА КУЛАЧКА FI0")

E = InputBox("ВВЕДИТЕ ДЕЗАКСИАЛ E")

For I = 1 To 10

S(I) = InputBox("ВВЕДИТЕ СТРОКУ ПЕРЕМЕЩЕНИЙ S(" & I & ")")

Next I

FIR = FIR * 0.0174532

SHAG = FIR / 10

FI0 = FI0 * 0.0174532

FII = FI0

For I = 1 To 10

dis1 = (R0 ^ 2 - E ^ 2) ^ (1 / 2)

dis2 = S(I) ^ 2 + R0 ^ 2 + 2 * S(I) * dis1