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

   t1:=0.77;    //шаг

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

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

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

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

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

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

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

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

   memo1.Lines.Add(' ');

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

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

   memo1.Lines.Add('Оптимальное е: '+floattostrF(ebt,FFFixed,18,0));

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

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

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

   memo1.Lines.Add('Выбираем профиль лопатки по углам входа потока С-90-12A');

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

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

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

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

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

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

   memo1.Lines.Add(' ');

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

   w2t:=sqrt(sqr(w1)+2*Hop); //теоретическая скорость

   F2:=(vix[9]*v2t)/(vxd[15]*w2t); //площадь лопатки

   l2:=l1+0.002; //высота лопатки

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

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

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

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

   t2:=0.63;    //шаг

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

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

   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,4)+' м2');

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

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

   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(' ');

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