Расчет сверхзвукового обтекания заостренных тел вращения

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

n:=StrToInt(LabeledEdit6.Text);

StringGrid1.RowCount:=n+1;

for i := 1 to n+1 do

with StringGrid1 do

begin

Cells[0,i]:= IntToStr(i-1);

end;

try

DoCount (StrToFloat(LabeledEdit1.Text),

StrToFloat(LabeledEdit2.Text),

StrToFloat(LabeledEdit3.Text),

StrToF

loat(LabeledEdit4.Text),

StrToFloat(LabeledEdit5.Text));

except

ShowMessage('Проверьте введенные параметры!');

end;

Series1.Clear;

Series2.Clear;

Series3.Clear;

Series4.Clear;

Series5.Clear;

for i:= 0 to n do

begin

try

//рисую графики

Series1.Add(r[i]);

Series2.Add(m[i]);

Series3.Add(p[i]);

Series4.Add(m1[i]);

Series5.Add(p1[i]);

//Заполняю таблицу

StringGrid1.Cells[1,i+1]:= FloatToStrF(x[i],ffFixed,3,3);

StringGrid1.Cells[2,i+1]:= FloatToStrF(r[i],ffFixed,3,3);

StringGrid1.Cells[3,i+1]:= FloatToStrF(m[i],ffFixed,3,3);

StringGrid1.Cells[4,i+1]:= FloatToStrF(p[i],ffFixed,3,3);

StringGrid1.Cells[5,i+1]:= FloatToStrF(m1[i],ffFixed,3,3);

StringGrid1.Cells[6,i+1]:= FloatToStrF(p1[i],ffFixed,3,3);

except

end;

end;

end;

end.

Скришоты работы программы в сравнении с графиками MathCad:

Вывод

Проведенный в программе расчет на первых трех участках совпадает с данными, полученными при моделировании в MathCAD (с точностью до 103), поэтому принимается, что программа расчета дает справедливые результаты для остальных участков обтекаемого тела.

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

1. Кузнецов В.И., Макаров В.В. Сверхзвуковое обтекание заостренных тел вращения: Учебное пособие.- Омск: Изд-во ОмГТУ, 1999г.- 80с.

2. Кузнецов В.И., Макаров В.В. Аэрогазодинамика в вопросах и задачах: практикум.- Омск: Изд-во ОмГТУ, 2002г.- 80с.

 Скачать реферат