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;

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 RadioGroup4Click(Sender: TObject);

// procedure BitBtn2Click(Sender: TObject);

//procedure N2Click(Sender: TObject);

// procedure BitBtn3Click(Sender: TObject);

// procedure BitBtn4Click(Sender: TObject);

// procedure BitBtn5Click(Sender: TObject);

// procedure N5Click(Sender: TObject);

// procedure N4Click(Sender: TObject);

// procedure Label2Click(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;

{ z1op, lpop, z2op, Kv, Kz1, ap, Ka, Ku, Kr, Kj, Kp, Ksm, Ke, Pizn_dop, k1, k2, k3: real;

P1,t1, t2, t3, hsum, U, n, Km, Knag, pop, min, p, a0,a, func,max_func,max_pizn_dop, max_a, max_lp,yy:real;

z1, z2, j, i_min, lp: integer;

p_tabl, mas_raz: array [0..5] of real; }

implementation

//uses Unit2;

{$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;

// Memo2.Lines.Add(' mas_raz ='+FloatToStrF(mas_raz1[i], ffFixed, 5,2 )+

// ' min ='+FloatToStrF(min, ffFixed, 5,2 )+

// ' i_min = '+FloatToStrF(i_min, ffFixed, 5,2 ) );

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;

// Memo2.Lines.Add(' mas_raz2 ='+FloatToStrF(mas_raz2[i], ffFixed, 5,2 )+

// ' min ='+FloatToStrF(min, ffFixed, 5,2 )+

// ' i_min = '+FloatToStrF(i_min, ffFixed, 5,2 ) );

end;

d2:=d_tabl[i_min]; // Назначаем диаметр второго шкива

case RadioGroup1.ItemIndex of

0: aop:=2*(d1+d2); // Ориентировочное межосевое расстояние

1: aop:=d1+d2;

end;

//aop<=5500

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 RadioGroup2.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)+

//' d1='+FloatToStrF(d1, ffFixed, 5,2)+

// ' d2='+FloatToStrF(d2, 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 +

' Сила действия на валы ременной передачи,Н = ' +FloatToStrF(max_Q, ffFixed,5,2)+#13#10+

' Длина ремня, мм = '+FloatToStrF(max_lp, ffFixed,5,2) + #13#10+

' Допускаемое окружное удельное усилие, Вт= ' +FloatToStrF(max_p, ffFixed,5,2));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.HelpFile := 'Help.HLP';

d_tabl2[0]:=71.0;

d_tabl2[1]:=80.0;

d_tabl2[2]:=90.0;

d_tabl2[3]:=100.0;

d_tabl2[4]:=112.0;

d_tabl2[5]:=125.0 ;

d_tabl2[6]:=140.0 ;

d_tabl2[7]:=160.0 ;

d_tabl2[8]:=180.0 ;

d_tabl2[9]:=200.0 ;

d_tabl2[10]:=224.0 ;

d_tabl2[11]:=250.0 ;end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Memo1.Lines.SaveToFile('file.txt');

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

var i: integer;

begin

for i:=0 to 2 do

begin

Chart1.Series[i].Clear;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Application.HelpCommand(HELP_FINDER, 0);

end;

end.

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