Математика \ Математическое моделирование

Расчет турбины Т -14/17-3,4 для привода электрогенератора и отпуска тепла для нужд производств и отопления, страница 13

   memo1.Lines.Add('Диаметр первой нерегулируемой ступени ЧВД, м: '+floattostrF(dv1,FFFixed,18,1));

   memo1.Lines.Add('Диаметр последней ступени ЧВД, м: '+floattostrF(dv2,FFFixed,18,1));

   memo1.Lines.Add('Степень реактивноти первой нерегулируемой ступени : '+floattostrF(r1,FFFixed,18,1));

   memo1.Lines.Add('Степень реактивноти последней ступени : '+floattostrF(r2,FFFixed,18,1));

   memo1.Lines.Add('Диаметр первой нерегулируемой ступени ЧCД, м: '+floattostrF(dc1,FFFixed,18,1));

   memo1.Lines.Add('Диаметр последней ступени ЧCД, м: '+floattostrF(dc2,FFFixed,18,1));

   memo1.Lines.Add('Степень реактивноти первой нерегулируемой ступени : '+floattostrF(r3,FFFixed,18,1));

   memo1.Lines.Add('Степень реактивноти последней ступени : '+floattostrF(r4,FFFixed,18,1));

   memo1.Lines.Add('------------------------Расчет------------------------');

   memo1.Lines.Add(' ');

  memo1.Lines.Add('---1. Определение числа ступеней в части высокого давления ---');

  memo1.Lines.Add(' ');

  memo1.Lines.Add('Окружная скорость первой ступени: '+floattostrF(vu1,FFFixed,18,3)+' м');

  memo1.Lines.Add('Окружная скорость последней ступени: '+floattostrF(vu2,FFFixed,18,3)+' м');

  memo1.Lines.Add('Отношение скоростей u/cф первой ступени: '+floattostrF(vucf1,FFFixed,18,3));

  memo1.Lines.Add('Отношение скоростей u/cф последней ступени: '+floattostrF(vucf2,FFFixed,18,3));

  memo1.Lines.Add('Располагаемый теплоперепад первой ступени: '+floattostrF(vHo1,FFFixed,18,3)+' Дж/кг');

  memo1.Lines.Add('Располагаемый теплоперепад последней ступени: '+floattostrF(vHo2,FFFixed,18,3)+' Дж/кг');

  memo1.Lines.Add('Средний располагаемый теплоперепад: '+floattostrF(vHocp,FFFixed,18,3)+' Дж/кг');

  memo1.Lines.Add('Число ступеней: '+floattostrF(vz,FFFixed,18,0));

  memo1.Lines.Add(' ');

  memo1.Lines.Add('---2. Определение числа ступеней в части среднего давления ---');

  memo1.Lines.Add(' ');

  memo1.Lines.Add('Окружная скорость первой ступени: '+floattostrF(cu1,FFFixed,18,3)+' м');

  memo1.Lines.Add('Окружная скорость последней ступени: '+floattostrF(cu2,FFFixed,18,3)+' м');

  memo1.Lines.Add('Отношение скоростей u/cф первой ступени: '+floattostrF(cucf1,FFFixed,18,3));

  memo1.Lines.Add('Отношение скоростей u/cф последней ступени: '+floattostrF(cucf2,FFFixed,18,3));

  memo1.Lines.Add('Располагаемый теплоперепад первой ступени: '+floattostrF(cHo1,FFFixed,18,3)+' Дж/кг');

  memo1.Lines.Add('Располагаемый теплоперепад последней ступени: '+floattostrF(cHo2,FFFixed,18,3)+' Дж/кг');

  memo1.Lines.Add('Средний располагаемый теплоперепад: '+floattostrF(cHocp,FFFixed,18,3)+' Дж/кг');

  memo1.Lines.Add('Число ступеней: '+floattostrF(cz,FFFixed,18,0));

end;

procedure TForm1.Button7Click(Sender: TObject);

var

i:integer;

begin

combobox1.Items.Clear;

for i:=0 to 23 do

combobox1.Items.add(vxdnames[i+1]);

combobox2.Items.Clear;

for i:=0 to 9 do

combobox2.Items.add(vixnames[i+1]);

end;

procedure TForm1.Button8Click(Sender: TObject);

var

min,max,value,step:double;

begin

max:=strtofloat(edit1.Text);

min:=strtofloat(edit2.Text);

step:=strtofloat(edit3.Text);

series1.Clear;

value:=min;

while(value<=max) do

begin

vxd[combobox1.ItemIndex+1]:=value;

vix[combobox2.ItemIndex+1]:=rachet();

series1.AddXY(vxd[combobox1.ItemIndex+1],vix[combobox2.ItemIndex+1],floattostrF(vxd[combobox1.ItemIndex+1],fffixed,4,2),clgreen);

value:=value+step;

end;

end;

end.

9.Заключение.

В ходе работы мы написали программу для расчета турбины Т-14/17-3,4, в которую входят расчеты первой, второй и последней ступеней и определение числа ступеней, на основе курсового проекта по «Паровым и газовым турбинам».

Дополнительно мы создали программу для построения зависимостей расчетных данных от входных. Что позволяет визуально ощутить, как влияют исходные параметры на основные выходные характеристики турбины.

Скачать файл