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

   be2:=arcsin(F2/(3.14*vxd[6]*eopt*l2))*180/3.14;//определение угла выхода

   b2:=0.04;      //хорда

   m2:=0.965-0.015*(b2/l2); //уточнение коэф расхода m

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

   t2:=0.6;    //шаг

   z2:=(3.14*vxd[6])/(b2*t2)-1; //кол-во лопаток

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

   a2:=0.957-0.011*(b2/l2); //коэф. скорости

   w2:=w2t*a2; //вых. скорость

   c2:=sqrt(sqr(w2)+sqr(u)-2*w2*u*cos(be2*3.14/180)); //вх.скорость

   c2a:=w2*sin(be2*3.14/180); //определение угла входа

   al2:=arcsin(c2a/c2)*180/3.14;

   memo1.Lines.Add('---5. Расчет первой рабочей лопатки---');

   memo1.Lines.Add(' ');

   memo1.Lines.Add('Теоретическая скорость: '+floattostrF(w2t,FFFixed,18,1)+' м/с');

   memo1.Lines.Add('Площадь лопатки: '+floattostrF(F2,FFFixed,18,5)+' м2');

   memo1.Lines.Add('Высота лопатки: '+floattostrF(l2,FFFixed,18,4)+' м');

   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('Выбираем профиль лопатки по углам входа потока Р-30-21А');

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

   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[6]*power(ucf,3))/(3.14*eopt*l1*sin(vxd[8]*3.14/180));  //на трение

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

   potve:=((0.065*(1-eopt-0.5*0.6))/(eopt*sin(vxd[8]*3.14/180)))*power(ucf,3)*2; //на вентиляцию

   Byct2:=b2*sin(78*3.14/180);

   potceg:=0.25*(Byct2*l2/F1)*ucf*KPDo*2; //сегментные

      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('Потери на вентиляцию: '+floattostrF(potve,FFFixed,18,4));

      memo1.Lines.Add('Сегментные потери: '+floattostrF(potceg,FFFixed,18,4));

      memo1.Lines.Add(' ');

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

   KPDoi:=KPDo-pottr-potyt-potve-potceg;

      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)+' Вт');