123728 (689580), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Z1:=strtoFloat(Edit1.Text);

Z2:=strtoFloat(Edit2.Text);

m:=strtoFloat(Edit3.Text);

ha:=strtoFloat(Edit4.Text);

c:=strtoFloat(Edit5.Text);

q:=strtoFloat(Edit6.Text);

q:=q*pi/180;

X1:=( 17-Z1)/17;

X2:=-X1;

A:=0.5*m*(Z1+Z2);

Aw:=A;

h:=2.25*m;

ha1:=m*(ha+X1);

ha2:=m*(ha+X2);

hf1:=m*(ha+c-X1);

hf2:=m*(ha+c-X2);

d1:=m*Z1;

d2:=m*Z2;

dw1:=d1;

dw2:=d2;

db1:=d1*cos(q);

db2:=d2*cos(q);

da1:=d1+2*ha1;

da2:=d2+2*ha2;

df1:=d1-2*hf1;

df2:= d2-2*hf2;

S1:=0.5*Pi*m+2*m*X1*sin(q)/cos(q);

S2:=0.5*Pi*m+2*m*X2*sin(q)/cos(q);

P:=Pi*m;

Pb:=P*cos(q);

r:=0.38*m;

Edit7.Text:=FloatToStr(X1);

Edit8.Text:=FloatToStr(X2);

Edit9.Text:=FloatToStr(a);

Edit10.Text:=FloatToStr(h);

Edit11.Text:=FloatToStr(ha1);

Edit12.Text:=FloatToStr(ha2);

Edit13.Text:=FloatToStr(d1);

Edit14.Text:=FloatToStr(d2);

Edit15.Text:=FloatToStr(dw1);

Edit16.Text:=FloatToStr(dw2);

Edit17.Text:=FloatToStr(db1);

Edit18.Text:=FloatToStr(db2);

Edit19.Text:=FloatToStr(da1);

Edit20.Text:=FloatToStr(da2);

Edit21.Text:=FloatToStr(df1);

Edit22.Text:=FloatToStr(df2);

Edit23.Text:=FloatToStr(S1);

Edit24.Text:=FloatToStr(S2);

Edit25.Text:=FloatToStr(P);

Edit26.Text:=FloatToStr(Pb);

Edit27.Text:=FloatToStr(r);

end;

end.

Вид приложения

3.2 Проектирование планетарного редуктора

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

Модуль

Частота вращения вала двигателя

Частота вращения кривошипа

Числа зубьев

Знак передаточного отношения – минус

Номер схемы редуктора

1. Передаточное отношение простой передачи

1. Общее передаточное отношение редуктора

1. Передаточное отношение планетарной передачи

1. Формула Виллиса для планетарной передачи

5. Передаточное отношение обращенного механизма, выраженное в числах зубьев.

6. Подбор чисел зубьев

Принимаем:

тогда

Получаем

7. Условие соосности

или

Условие соосности выполнено

8. Делительные диаметры

9. Линейная скорость точки A колеса z1

10. Масштабный коэффициент Kv

11. Масштабный коэффициент построения плана частот вращения редуктора

3.3 Определение частот вращения аналитическим методом

; откуда .

; ; ;

3.4 Определение частот вращения графическим методом

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

.

Частоты вращения, полученные графическим способом:

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

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

- № кинематического графика движения толкателя4

- тип толкателя – плоский толкатель

- максимальный ход (подъем) толкателя h, мм 50

- рабочий угол кулачка , град200

- частота вращения кривошипа nкр, мин-165

Рисунок 5 – Диаграмма движения выходного звена

4.1 Построение диаграмм и определение масштабных

коэффициентов

По заданному графику скорости толкателя графическим интегрированием по методу хорд строят 2 графика – график ускорения толкателя a(t) и график перемещения толкателя S(t). Базы интегрирования Н1=60мм.

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

Масштабный коэффициент перемещения

где h – максимальный ход толкателя, м;

yh – максимальная ордината графика соответствующая заданному подъёму толкателя, мм.

Масштабный коэффициент времени

где φр – рабочий угол кулачка, град;

nкул – частота вращения кулачка, мин-1;

xt – длина отрезка на оси абсцисс графика, изображающая время поворота кулачка на рабочий угол, мм.

Масштабный коэффициент скорости толкателя

4.2 Минимальный радиус кулачка

Выбираем исходя из условия R0≥h

R0=150 мм

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

Профиль кулачка строим в масштабном коэффициенте построения Проводим окружность радиусом R0, откладываем фазовый рабочий угол ْ и делим его на 12 частей. От точки деления проводим ось. Вдоль оси толкателя откладываем текущее перемещение толкателя от окружности минимального радиуса и проводим перпендикуляры к линиям. Профилем кулачка будет огибающая всех положений тарелки толкателя.

4.4 Определение максимальной скорости и ускорения толкателя

где , – максимальные ординаты скорости и ускорения на соответствующих графиках, мм.

Составляем программу определения профиля кулачка.

Public Sub kulachok()

Dim I As Integer

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

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

Dim S(1 To 10) As Single

Worksheets(1).Activate

Worksheets(1).Range("a:o").Clear

Worksheets(1).ChartObjects.Delete

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

R = dis2 ^ (1 / 2)

a1 = E / R

a2 = E / R0

arksin1 = Atn(a1 / (1 - a1 ^ 2) ^ (1 / 2))

arksin2 = Atn(a1 / (1 - a2 ^ 2) ^ (1 / 2))

BETTA = FII + arksin1 - arksin2

BETTA = BETTA * 180 / 3.1415

Worksheets(1).Cells(1, 1) = "R"

Worksheets(1).Cells(1, 2) = "BETTA"

Worksheets(1).Cells(I + 1, 1) = R

Worksheets(1).Cells(I + 1, 2) = BETTA

FII = FII + SHAG

Next I

End Sub

Результаты работы программы

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

1. Артоболевский И.И. Теория машин и механизмов.–Наука, М.: 1998 – 720 с.

2. Кожевников С.Н., Теория машин и механизмов, Машиностроение, М.: 1969г. – 538 с.

3. Корняко А.С., Курсовое проектирование по теории машин и механизмов. – Вища школа, Киев: 1970г. – 330 с.

4. Фролов И.П., Теория механизмов, машин и манипуляторов. – Дизайн ПРО, Минск .: 1998 г. – 428 с.

5. Фролов К.В., Теория механизмов и машин. Высшая школа, М.: 1998 – 494с.

Характеристики

Список файлов курсовой работы