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

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

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

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

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

   memo1.Lines.Add(' ');

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

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

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

   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:=(G*v2t)/(vxd[20]*w2t); //площадь лопатки

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

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

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

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

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

   t2:=0.45;    //шаг

   z2:=(3.14*vxd[21])/(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('---4. Расчет рабочей лопатки---');

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