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

   pottr:=(0.6*0.001*vxd[16]*power(ucf,3))/(3.14*ebt*l1*sin(vxd[8]*3.14/180));  //на трение

   potyt:=((3.14*(vxd[16]+l2+2*0.003)*0.6e-3)/F1)*sqrt(vxd[13]+1.8*(l2/vxd[16]))*KPDo; //на утечки

      memo1.Lines.Add('---9. Расчет потерь в ступени---');

      memo1.Lines.Add(' ');

      memo1.Lines.Add('Потери на трение: '+floattostrF(pottr,FFFixed,18,4));

      memo1.Lines.Add('Потери на утечки: '+floattostrF(potyt,FFFixed,18,4));

      memo1.Lines.Add(' ');

   // определение относительного внутреннего КПД

   KPDoi:=KPDo-pottr-potyt;

      memo1.Lines.Add('---10. Расчет относительного внутреннего КПД ступени---');

      memo1.Lines.Add('Относительный внутренний КПД: '+floattostrF(KPDoi*100,FFFixed,18,3)+' %');

      memo1.Lines.Add(' ');

   //определение использованного теплоперепада

   Hi:=Hoo*KPDoi;

      memo1.Lines.Add('---11. Расчет использованного теплоперепада в ступени---');

      memo1.Lines.Add('Использованный теплоперепад: '+floattostrF(Hi,FFFixed,18,0)+' Дж/кг');

      memo1.Lines.Add(' ');

   //определение внутренней мощности ступени

   Ni:=vix[9]*Hi;

      memo1.Lines.Add('---12. Расчет внутренней мощности ступени---');

      memo1.Lines.Add('Внутренняя мощность: '+floattostrF(Ni,FFFixed,18,0)+' Вт');

      memo1.Lines.Add(' ');

end;

procedure TForm1.Button4Click(Sender: TObject);

var i:integer;

    ucf,u,cf,Hoo,Hoc,Hop,G: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();

   // определение начальных параметров

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

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

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

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

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

    //нач. параметры

   h2t:=wspHPS(vxd[2]*1000,vix[1]);

   h:=h2t+Hoo;

   p:=22;

   t:=wspTPH(p*1000,h)-273;

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

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

  Hop:=Hoo*vxd[18];

  h1t:=h-Hoc;

  p1t:=15;

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

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

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

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

  h2t:=h1t-Hop;

  p2t:=10;

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

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

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

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

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

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

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

   l1:=vxd[22]-0.02; //высота лопатки

   F1:=3.14*vxd[21]*ebt*l1*sin(vxd[23]*3.14/180); //площадь лопатки

   G:=(vxd[19]*F1*c1t)/v1t; //расход

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

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

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

   t1:=0.77;    //шаг

   z1:=(3.14*vxd[21]*ebt)/(b1*t1); //кол-во лопаток

   //построение треугольника

   a1:=0.98-0.009*(b1/l1); //коэф. скорости

   c1:=c1t*a1; //вх. скорость

   w1:=sqrt(sqr(c1)+sqr(u)-2*c1*u*cos(vxd[23]*3.14/180)); //вых.скорость

   c1a:=c1*sin(vxd[23]*3.14/180); //определение угла выхода

   be1:=arcsin(c1a/w1)*180/3.14;

   memo1.Lines.Add(' ');

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

   memo1.Lines.Add(' ');

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

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

   memo1.Lines.Add('Начальная температура, С: '+floattostrF(t,FFFixed,18,1));

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

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