Реферат Привід конвеєра ПК-19

/p>

Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit;

Edit17: TEdit; Edit18: TEdit; Edit19: TEdit; Edit20: TEdit; Edit21: TEdit;

Edit22: TEdit; Edit23: TEdit; Edit24: TEdit; Edit25: TEdit; Edit26: TEdit;

Edit27: TEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel;

Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel;

Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel;

Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel;

Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel;

Label26: TLabel; Label27: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

private

{ Private declarations}

public

{ Public declarations}

end;

var

Form1: TForm1;

Z1, Z2, X1, X2, Aw, A, q, h, ha, ha1, c, ha2, m, hf1, hf2, d1, d2, dw1, dw2, db1, db2, da1, da2,

df1, df2, S1, S2, P, Pb, r: real;

implementation

{$ 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. Передавальне відношення простої передачі

В 

2. Загальне передавальне відношення редуктора

В 

3. Передавальне відношення планетарної передачі

В 

4. Формула Вілліса для планетарної передачі

В 

5. Передавальне відношення зверненого механізму, виражене в числах зубів. <В 

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

Приймаємо:

тоді

Отримуємо

7. Умова співвісності

або

Умова співвісності виконано

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

В В В 

9. Лінійна швидкість точки A колеса z1

В 

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

В 

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

В 

3.3 Визначення частот обертання аналітичним методом

; звідки.

;;; br clear=all>

3.4 Визначення частот обертання графічним методом

В  Масштабний коефіцієнт плану частот обертань:

.

Частоти обертання, отримані графічним способом:

В В В 

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

Вихідні дані:

- № кінематичного графіка руху толкателя4

- тип штовхача - плоский штовхач

- максимальний хід (підйом) штовхача h, мм 50

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

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

Рисунок 5 - Діаграма руху вихідної ланки

4.1 Побудова діаграм і визначення ...