Расчет скоростной характеристики двигателя

Московский  Государственный  Университет Природообустройства 
 
 

кафедра Вычислительной Техники и Прикладной Математики 
 
 
 

Лабораторная  работа №1

“Расчет скоростной характеристики двигателя” 
 
 
 
 
 
 
 
 

Выполнил: студент 433 группы

Кутелия В.В.

Проверил: Симонович О.С.

Сергеева  Е.Э. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Москва 2009

Лабораторная  работа №1

Цель  работы: Построить скоростные характеристики различных двигателей(трактора, КАМАЗа, карбюраторного двигателя)

Для построения скоростной характеристики двигателя  используется следующая формула

где N- расчетное(текущее) значение мощности двигателя для частичной подачи топлива

      N_ном – номинальная мощность двигателя при максимальной подаче топлива

      n_x – расчетная(текущая) чистота вращения коленчатого вала

      n_ном – номинальная чистота вращения коленчатого вала

     a,b,c – опытные коэффиценты

    a=0.87

     b=1.13

     c=1

Требуется составить  таблица и построить график функции  N=f(n)

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

     h – шаг изменений частоты вращения коленчатого вала

     К – порядковый номер по журналу

     К=9

Число расчетных  значений:

Для трактора  14

Для КАМАЗа 11

Карбюр. дв.    11 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Блок  схема 

 
 
 

 
 

 

 

 

 
 
 
 
 
 
 
 
 
 
 

I Расчет в Excel

 

II Расчет в Delphi

Для создания в  программе Delphi необходимо создать формулу с использованием следующих компонентов:

Трактор

КАМАЗ

Карбюраторный двигатель

Код программыVar

i,k:integer;

nmin,nmax,h,Nnom,a,b,c,nx,N:real;

procedure TForm1.BitBtn3Click(Sender: TObject); //Кнопка Выход

begin

close;

end; 

procedure TForm1.FormCreate(Sender: TObject); //Шапка таблицы

begin

with stringgrid1 do

begin

cells[0,0]:='№';

cells[1,0]:='n';

cells[2,0]:='N';

For i:=1 to 14 do

cells[0,i]:=inttostr(i);

end;

end; 

procedure TForm1.BitBtn2Click(Sender: TObject); //Отмена

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

series1.Clear;

for i:=1 to 14 do

begin

stringgrid1.Cells[1,i]:='';

Stringgrid1.Cells[2,i]:='';

end;

end; 

procedure TForm1.BitBtn1Click(Sender: TObject); //Расчет

begin

Series1.Clear;

nmin:=strtofloat(Edit1.Text);

nmax:=strtofloat(Edit2.Text);

h:=strtofloat(Edit3.Text);

Nnom:=strtofloat(Edit4.Text);

a:=strtofloat(Edit5.Text);

b:= strtofloat(Edit6.Text);

c:= strtofloat(Edit7.Text);

k:=round((nmax-nmin)/h+1);

with stringgrid1 do

begin

rowcount:=k+1;

nx:=nmin;

i:=1;

repeat

N:=Nnom*(nx/nmax)*(a+b*(nx/nmax)-c*sqr(nx/nmax));

Cells[1,i]:=floattostr(nx);

Cells[2,i]:=floattostr(N);

Series1.AddXY(nx,N,'',clred);

nx:=nx+h;

i:=i+1;

Until nx>nmax;

end;

end; 

end.

Вывод: Модель для расчета скоростной характеристики двигателя была составлена в Excel и в Delphi. Результаты получились одинаковые. Это говорит о том, что модель была составлена правильно