Математика \ Математическое моделирование

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

    memo1.Lines.Add('Cоотношения u/сф '+floattostrF(ucf,FFFixed,18,3));

    memo1.Lines.Add('Окружная скорость '+floattostrF(u,FFFixed,18,3)+' м/с');

    memo1.Lines.Add('Фиктивная скорость '+floattostrF(cf,FFFixed,18,3)+' м/с');

    memo1.Lines.Add('Распологаемый теплоперепад ступени '+floattostrF(Hoo,FFFixed,18,0)+' Дж/кг');

    memo1.Lines.Add(' ');

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

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

  Hop:=Hoo*vxd[9];

  h1t:=vix[0]-Hoc;

  p1t:=10.6;

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

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

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

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

  h2t:=h1t-Hop;

  p2t:=10.5;

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

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

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

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

    memo1.Lines.Add('---2. Параметры в точке 1t,2t---');

    memo1.Lines.Add(' ');

    memo1.Lines.Add('Располагаемый теплоперепад на с.л.'+floattostrF(Hoc,FFFixed,18,0)+' Дж/кг');

    memo1.Lines.Add('Располагаемый теплоперепад на р.л.'+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('Тем-ра C'+' // '+floattostrF(t1t,FFFixed,18,1)+' // '+floattostrF(t2t,FFFixed,18,1));

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

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

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

   F1:=(vix[9]*v1t)/(vxd[10]*c1t); //площадь лопатки

   el:=F1/(3.14*vxd[6]*sin(vxd[8]*3.14/180)); //определение оптимального е

   eopt:=sqrt(el)*5;

   l1:=el/eopt; //высота лопатки

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

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

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

   t1:=0.77;    //шаг

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

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

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

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

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

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

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

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

   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,3)+' м/с');

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

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

   memo1.Lines.Add(' ');

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

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

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

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

Скачать файл