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

   memo1.Lines.Add('Угол выхода: '+floattostrF(be2,FFFixed,18,2));

   memo1.Lines.Add('Хорда: '+floattostrF(b2,FFFixed,18,3)+' м');

   memo1.Lines.Add('Уточнение коэф расхода m: '+floattostrF(m2,FFFixed,18,3));

   memo1.Lines.Add('Выбираем профиль лопатки по углам входа потока Р-60-38А');

   memo1.Lines.Add('Шаг: '+floattostrF(t2,FFFixed,18,2));

   memo1.Lines.Add('Кол-во лопаток: '+floattostrF(z2,FFFixed,18,0));

   memo1.Lines.Add('Коэф. скорости: '+floattostrF(a2,FFFixed,18,3));

   memo1.Lines.Add('Выходная скорость: '+floattostrF(w2,FFFixed,18,1)+' м/с');

   memo1.Lines.Add('Входная скорость: '+floattostrF(c2,FFFixed,18,1)+' м/с');

   memo1.Lines.Add('Угол входа: '+floattostrF(al2,FFFixed,18,2));

   memo1.Lines.Add(' ');

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

    Hc:=(sqr(c1t)-sqr(c1))/2; //потери

    Hp:=(sqr(w2t)-sqr(w2))/2;

    Hbc:=sqr(c2)/2;

    KPDoo:=(Hoo-Hc-Hp-Hbc)/Hoo;

    KPDo:=(u*(w1*cos(be1*3.14/180)+w2*cos(be2*3.14/180)))/Hoo;

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

      memo1.Lines.Add(' ');

      memo1.Lines.Add('Относительного лопаточного КПД через потери: '+floattostrF(KPDoo*100,FFFixed,18,3)+' %');

      memo1.Lines.Add('Относительного лопаточного КПД через скорости: '+floattostrF(KPDo*100,FFFixed,18,3)+' %');

      memo1.Lines.Add(' ');

      //определение потерь в ступени

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

   potyt:=((3.14*(vxd[21]+l2+2*0.003)*0.6e-3)/F1)*sqrt(vxd[18]+1.8*(l2/vxd[21]))*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,3)+' Дж/кг');

      memo1.Lines.Add(' ');

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

   Ni:=G*Hi;

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

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

      memo1.Lines.Add(' ');

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm1.Button5Click(Sender: TObject);

var r1,r2,r3,r4,dv1,dv2,al,f,dc1,dc2,

    vu1,vu2,vucf1,vucf2,vHo1,vHo2,vHocp,vz,

    cu1,cu2,cucf1,cucf2,cHo1,cHo2,cHocp,cz:extended;

begin

//исходные данные

r1:=0.2; //степень реактивности 1ст

r2:=0.25; //zст

r3:=0.26; // 1ст

r4:=0.3; //zст

dv1:=0.848; //диаметр

dv2:=0.926;

dc1:=1.1;

dc2:=1.268;

al:=14*3.14/180; //угол входа

f:=0.97;

//решение

  vu1:=3.14*dv1*50;

  vu2:=3.14*dv2*50;

  vucf1:=(f*cos(al))/(2*sqrt(1-r1));

  vucf2:=(f*cos(al))/(2*sqrt(1-r2));

  vHo1:=sqr(vu1)/(2*sqr(vucf1));

  vHo2:=sqr(vu2)/(2*sqr(vucf2));

  vHocp:=(vHo1+vHo2)/2;

  vz:=(446.37*1000)/vHocp;

  cu1:=3.14*dc1*50;

  cu2:=3.14*dc2*50;

  cucf1:=(f*cos(al))/(2*sqrt(1-r3));

  cucf2:=(f*cos(al))/(2*sqrt(1-r4));

  cHo1:=sqr(cu1)/(2*sqr(cucf1));

  cHo2:=sqr(cu2)/(2*sqr(cucf2));

  cHocp:=(cHo1+cHo2)/2;

  cz:=(415.5*1000)/cHocp;

   memo1.Lines.Add(' ');

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

   memo1.Lines.Add(' ');

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