В разработанном программном продукте есть наличие справочной информации. Для получения справочной информации необходимо нажать в главном меню Справка ->Вызов справки. При этом возникнет вызов help-документа, созданного с помощью Microsoft Help Workshop.

Рисунок 8 - Вікно довідки

Справочная система состоит из двух разделов: «Общие сведения» и «Информация, по ПП».

4. ПРИМЕР РАСЧЕТА КОНИЧЕСКОЙ ПЕРЕДАЧИ

Входные данные:

Р1 = 4,87 кВт

Р2 = 4,63 кВт

n1 =1445 мин-1

n1 =802,8 мин-1

Кпер =1,8

U1,2 = 1,8

1) Выбираем материал и рассчитываем допускаемую нагрузку.

Принимается для изготовления шестерни и колеса Сталь 45 с термообработкой - улучшение.

Для шестерни - твердость поверхности зубьев Н1=269..302 НВ (наиболее достоверная твердость Н1=285 НВ), уВ1=890 МПа, уТ1=650 МПа при диаметре заготовки до 80мм.

Для колеса - твердость поверхности зубьев Н2=235..262 НВ (наиболее достоверная твердость Н2=250 НВ), уВ1=780 МПа, уТ1=540 МПа при диаметре заготовки до 125мм.

Допускаемое контактное напряжение:

Для шестеренки:

=2ННВ+70=2*285+70=640 МПа;

SH=1,1;

,

принимается КHL=1;

;

ZR=1 (принято Ra=1б25ююю0б63);

ZV=1 (ждет V<5 м/с);

KL=1 (закрытая обильно смазочная передача);

KXH1 (ожидается диаметр колеса меньше 700 мм);

Для колеса:

=2ННВ+70=2*250+70=570 МПа;

SH=1,1;

,принимается КHL=1;

;

Для прямозубых передач в качестве расчетного контактного напряжения принимается меньше -

2) Определяем коэффициенты

KH=KHбKHвKHV,

де KHб=1 (прямые зубья), KHв=1,1 (при b2/d1=0,3;колеса прикрепляются), KHV=1,2 (принято приблизительно).

3) Определяем диаметр колеса

Принимаем ближайшее стандартное de2=125мм.

4) Определяем модуль

Учитывая, что для силовых конических передач рекомендовано столько зубьев шестерни Z1=17…20 при U=1,0…1,5 предварительно назначаем Z1=20.

Принимаем стандартно me=3,5мм.

5) Определяем количество зубьев

(подбором стандартных значений модуля не удалось вычислить число зубьев колеса Z2);

6) Определяем геометрические параметры зубчатых колес

de1=mZ1=3,5·20=70мм;

de2=mZ2=3,5·36=126мм;

д2=arctgU1-2ф=arctg1,8=60,9454є;

д1=90є-д2=90є-60,9454є=29,0546є;

b=20мм;

Внешние диаметры выступлений и впадин зубьев:

da1=de1+2m·cosд1=70+2·3,5·cos20,0546є=76,129мм;

da2=de2+2m·cosд2=126+2·3,5·cos60,9454є=129,40мм;

df1=de1-2,4m·cosд1=70-2,4·3,5·cos20,0546є=62,66мм;

df2=de2-2,4m·cosд2=126-2,4·3,5·cos60,9454є=121,92мм;

Внешняя коническая длина

Средняя коническая длина

Rm=Re-0,5b=72,0694-0,5·20=62,0694мм.

Средний модуль зубьев

Средние делительные диаметры шестерни и колеса:

dm1=mZ1=3,014·20=60,280мм;

dm2=mZ2=3,014·36=108,504мм;

7) Определяем степень точности зубчатых колес

В зависимости от угловой скорости

назначаем степень точности 8-В ГОСТ 1758-81.

ВЫВОД

В данной работе было проведено изучение теоретического материала по предметной области, анализ, реализация расчета и создание программного продукта, для оптимизации конической передачи, нашли максимальную силу, которая действует на вал передачи, максимальную длину вала. При этом учитывается тип выполнения передачи, угол наклона зубов передачи.

Программный продукт сопровождали подробной объяснительной запиской и простой справочной системой.

Использование программного продукта может быть разным - от демонстрации - как пример в учебных целях для использования на предприятиях, в конструкторских бюро, в проектных институтах для расчета и оптимизации конических передач. Это значительно увеличит эффективность и прибыльность таких предприятий.

Приложение А

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons, TeEngine, Series, TeeProcs, Chart,

Menus, OleCtnrs, Math;

type

TForm1 = class(TForm)

Panel1: TPanel;

Label11: TLabel;

GroupBox1: TGroupBox;

Label1: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit6: TEdit;

Edit7: TEdit;

GroupBox2: TGroupBox;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label12: TLabel;

Chart1: TChart;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

N4: TMenuItem;

OleContainer1: TOleContainer;

Edit4: TEdit;

Label3: TLabel;

RadioGroup4: TRadioGroup;

Memo1: TMemo;

Series1: TLineSeries;

Series2: TLineSeries;

Series3: TLineSeries;

N5: TMenuItem;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

P1, U, n, Q, k1, k2, k3, max_func, min, d1op, v, d2op, lp, P,P0,C0,Ca,Cv,Cp,a1,Ft,b,d1,d2,e,aop,F0,max_Q,max_p,max_lp,func,min2,x,x2:real;

j,i_min,ap:integer;

d_tabl, d_tabl2,mas_raz1, mas_raz2: array [0..11] of real;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

var i: integer;

begin

aop:=0;

min:=10000;

max_func:=-10000000;

d_tabl[0]:=71.0;

d_tabl[1]:=80.0;

d_tabl[2]:=90.0;

d_tabl[3]:=100.0;

d_tabl[4]:=112.0;

d_tabl[5]:=125.0 ;

d_tabl[6]:=140.0 ;

d_tabl[7]:=160.0 ;

d_tabl[8]:=180.0 ;

d_tabl[9]:=200.0 ;

d_tabl[10]:=224.0 ;

d_tabl[11]:=250.0 ;

P1:=StrToFloat(Edit1.Text);

n:=StrToFloat(Edit2.Text);

j:=StrToInt(Edit7.Text);

U:=StrToFloat(Edit6.Text);

P0:=StrToFloat(Edit4.Text); // 72,73)

k1:=StrToFloat(Edit8.Text);

k2:=StrToFloat(Edit9.Text);

k3:=StrToFloat(Edit10.Text);

d1op:=1100*exp(1/3*ln(P1/n)); //

for i:=0 to 11 do //

begin

x:=d1op-d_tabl[i];

mas_raz1[i]:=abs(x);

end;

for i:=0 to 11 do

begin

if (mas_raz1[i]<min) then

begin

min:=mas_raz1[i];

i_min:=i;

end;

end;

d1:=d_tabl[i_min]; //

v:=3.14*d1*n/60000;

case RadioGroup1.ItemIndex of

0: e:=0.02;

1: e:=0.015;

end;

d2op:=U*d1*(1-e); //

min:=1000000;

for i:=0 to 11 do //

begin

x2:=d2op-d_tabl[i];

mas_raz2[i]:=abs(x2);

end;

for i:=0 to 11 do

if (mas_raz2[i]<min) then

begin

min:=mas_raz2[i];

i_min:=i;

end;

d2:=d_tabl[i_min];

case RadioGroup1.ItemIndex of

0: aop:=2*(d1+d2);

1: aop:=d1+d2;

end;

while aop<=5500 do

begin

lp:=2*aop+0.5*3.14*(d1+d2)+sqr(d2-d2)/4*aop;

case RadioGroup2.ItemIndex of

0: C0:=1; //

1: C0:=0.9;

2: C0:=0.8;

end;

a1:=180-((d2-d1)/aop)*57;

Ca:=1-0.003*(180-a1);

Cv:=1; //

case RadioGroup4.ItemIndex of

0: Cp:=1.6; //

1: Cp:=1.7;

2: Cp:=2;

end;

P:=P0*C0*Ca*Cv/Cp; //

Ft:=1000*P1/v; //

b:=Ft/P;

b:=round(b);

F0:=1.7*b*j; //

Q:=abs(2*sin(a1/2)*F0);

func:=k1*Q + k2*lp+P*k3;

Chart1.Series[0].AddXY(Q, func);

Chart1.Series[1].AddXY(lp, func);

Chart1.Series[2].AddXY(P,func);

if func > max_func then

begin

max_func:=func;

max_Q:=Q;

max_lp:=lp;

max_p:=P;

end;

Memo1.Lines.Add('При aop='+FloatToStrF(aop, ffFixed, 5,2)+

' Q='+FloatToStrF(Q, ffFixed, 5,2)+

' lp='+ FloatToStrF(lp, ffFixed, 5,2)+

' P='+FloatToStrF(P, ffFixed, 5,2));

aop:=aop+100;

end;

Memo1.Lines.Add(' ');

Memo1.Lines.Add(' РЕЗУЛЬТАТЫ ОПТИМИЗАЦИИ:');

Memo1.Lines.Add(' ');

Memo1.Lines.Add('Исходные данные: ');

Memo1.Lines.Add(' ');

Memo1.Lines.Add(' P1, кВт = '+FloatToStrF(strtofloat(edit1.Text), ffFixed,5,2));

Memo1.Lines.Add(' n1, 1/мин = '+FloatToStrF(strtofloat(edit2.Text), ffFixed,5,2));

Memo1.Lines.Add(' U = '+FloatToStrF(strtofloat(edit6.Text), ffFixed,5,2));

Memo1.Lines.Add(' j = '+FloatToStrF(strtofloat(edit7.Text), ffFixed,5,2));

Memo1.Lines.Add(' P0 = '+FloatToStrF(strtofloat(edit4.Text), ffFixed,5,2));

Memo1.Lines.Add(' K1 = '+FloatToStrF(strtofloat(edit8.Text), ffFixed,5,2));

Memo1.Lines.Add(' K2 = '+FloatToStrF(strtofloat(edit9.Text), ffFixed,5,2));

Memo1.Lines.Add(' K3 = '+FloatToStrF(strtofloat(edit10.Text), ffFixed,5,2));

Memo1.Lines.Add(' ');

Memo1.Lines.Add(' F(Q,lp,P)=' + FloatToStrF(max_func, ffFixed,5,2)+ #13#10 +

end;

Размещено на Allbest.ru