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

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

      memo1.Lines.Add(' ');

end;

procedure TForm1.Button3Click(Sender: TObject);

var i:integer;

    ucf,u,cf,Hoo,Hoc,Hop:extended;

    p,t,h,h1t,p1t,t1t,a1t,v1t,y1t,h2t,p2t,t2t,a2t,v2t,y2t:double;

    c1t,F1,el,eopt,l1,b1,m1,t1,z1,a1,c1,w1,c1a,be1,

    w2t,F2,l2,b2,m2,t2,z2,a2,c2,w2,c2a,be2,al2,ebt,

    Hc,Hp,Hn,Hbc,KPDoo,KPDo,

    pottr,potyt,potve,Byct2,Byct4,potceg,

    KPDoi,Hi,Ni:extended;

begin

rachet();

   // начальнве параметры

   p:=10.5;

   h:=3405.94;

   memo1.Lines.Add(' ');

   memo1.Lines.Add('---3.РАСЧЕТ ВТОРОЙ СТУПЕНИ.---');

   memo1.Lines.Add(' ');

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

   memo1.Lines.Add('Начальное давление, МПа: '+floattostrF(p,FFFixed,18,3));

   memo1.Lines.Add('Начальна энтропия, Дж/кг*К: '+floattostrF(vix[1],FFFixed,18,3));

   memo1.Lines.Add('Начальна энтальпия, Дж/кг: '+floattostrF(h,FFFixed,18,0));

   memo1.Lines.Add('Расход пара, кг/с: '+floattostrF(vix[9],FFFixed,18,3));

   memo1.Lines.Add('Частота вращения, 1/с: '+floattostrF(vxd[5],FFFixed,18,0));

   memo1.Lines.Add('Диаметр ступени, м: '+floattostrF(vxd[6],FFFixed,18,3));

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

   memo1.Lines.Add(' ');

   //определение располагаемого теплоперепада//

   ucf:=(vxd[12]*cos(vxd[8]*3.14/180))/(2*sqrt(1-vxd[13])); //определение соотношения u/сф

   u:=3.14*vxd[16]*vxd[5]; //окружная скорость

   cf:=u/ucf;  // фиктивная скорость

   Hoo:=sqr(cf)/2;   //распологаемый теплоперепад ступени

    memo1.Lines.Add('---1.Определение распологаемого теплоперепада ступени---');

    memo1.Lines.Add('Cоотношения u/сф '+floattostrF(ucf,FFFixed,18,2));

    memo1.Lines.Add('Окружная скорость '+floattostrF(u,FFFixed,18,1)+' м/с');

    memo1.Lines.Add('Фиктивная скорость '+floattostrF(cf,FFFixed,18,1)+' м/с');

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

    memo1.Lines.Add(' ');

   //параметры в точках//

  Hoc:=Hoo*(1-vxd[13]);//располагаемые теплоперепады на с.,1р.

  Hop:=Hoo*vxd[13];

  h1t:=h*1000-Hoc;

  p1t:=10.1;

  v1t:=wspVPS(p1t*1000000,vix[1]);

  t1t:=wspTPS(p1t*1000000,vix[1])-273;

  a1t:=wspWPS(p1t*1000000,vix[1]);

  y1t:=wspKINVISPS(p1t*1000000,vix[1]);

  h2t:=h1t-Hop;

  p2t:=9.9;

  v2t:=wspVPS(p2t*1000000,vix[1]);

  t2t:=wspTPS(p2t*1000000,vix[1])-273;

  a2t:=wspWPS(p2t*1000000,vix[1]);

  y2t:=wspKINVISPS(p2t*1000000,vix[1]);

    memo1.Lines.Add(' ');

    memo1.Lines.Add('---2. Параметры в точке 1t,2t---');

    memo1.Lines.Add(' ');

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

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

    memo1.Lines.Add(' ');

    memo1.Lines.Add('Энтальпия, Дж/кг'+'// '+floattostrF(h1t,FFFixed,18,0)+' // '+floattostrF(h2t,FFFixed,18,0));

    memo1.Lines.Add('Давление, МПа'+' // '+floattostrF(p1t,FFFixed,18,3)+' // '+floattostrF(p2t,FFFixed,18,3));

    memo1.Lines.Add('Объем, м3/кг'+' // '+floattostrF(v1t,FFFixed,18,6)+' // '+floattostrF(v2t,FFFixed,18,6));

    memo1.Lines.Add('Тем-ра, С'+' // '+floattostrF(t1t,FFFixed,18,3)+' / '+floattostrF(t2t,FFFixed,18,3));

    memo1.Lines.Add('Скорость, м/с'+' // '+floattostrF(a1t,FFFixed,18,3)+' // '+floattostrF(a2t,FFFixed,18,3));

    memo1.Lines.Add('Вязкость, м2/с'+' // '+floattostrF(y1t,FFFixed,18,10)+' // '+floattostrF(y2t,FFFixed,18,10));

   memo1.Lines.Add(' ');

    //расчет сопловой лопатки//

   c1t:=sqrt(2*Hoc); //теоретическая скорость

   F1:=(vix[9]*v1t)/(vxd[14]*c1t); //площадь лопатки

   ebt:=1; //степень парцильности

   l1:=F1/(3.14*vxd[16]*ebt*sin(vxd[8]*3.14/180)); //высота лопатки

   b1:=0.044;      //хорда

   m1:=0.982-0.005*(b1/l1); //уточнение коэф расхода m

   //после выбора профиля лопатки

Скачать файл