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

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

 vix[9]:=vix[8]/vix[7];//расход пара в турбине

 rachet:=vix[Form1.ComboBox2.ItemIndex+1];

 end;

procedure TForm1.Button1Click(Sender: TObject);

var

   i: integer; Ho,So,Hi:double;

begin

   rachet();

   memo1.Lines.Add(' ');

   memo1.Lines.Add('---1.РАСЧЕТ РАСХОДА ПАРА.---');

   memo1.Lines.Add(' ');

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

   memo1.Lines.Add(' ');

     for i:=0 to 5 do

       memo1.Lines.Add(vxdnames[i+1]+':  '+floattostrF(vxd[i],FFFixed,18,3));

     for i:=0 to 1 do

       memo1.Lines.Add(vixnames[i+1]+':  '+floattostrF(vix[i],FFFixed,18,3));

   memo1.Lines.Add(' ');

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

   memo1.Lines.Add(' ');

     for i:=2 to 6 do

       memo1.Lines.Add(vixnames[i+1]+':  '+floattostrF(vix[i],FFFixed,18,3));

   memo1.Lines.Add(' ');

   memo1.Lines.Add('Отборы пара           // Давление отб. // Температура отб. // Энтальпия отб. // Кол-во от. пара');

      for i:=0 to 9 do

        memo1.Lines.Add(otborPnames[i+1]+'  //  '+floattostrF(otborP[i],FFFixed,18,3)+' МПа  //  '

        +floattostrF(otborT[i],FFFixed,18,0)+' С  //  '+floattostrF(otborH[i],FFFixed,18,0)+' Дж/кг  //  '

        +floattostrF(otborG[i],FFFixed,18,3)+' кг/с');

   memo1.Lines.Add(otborPnames[11]+'                  Отключен');

   memo1.Lines.Add(' ');

    //для построения диаграммы

 So:=wspSPH(otborP[5]*1000000,otborH[5]);

 Ho:=otborH[5]-wspHPS(vxd[2]*1000,So);

 Hi:=0.8*Ho;

   memo1.Lines.Add('Для построения диаграммы:');

   memo1.Lines.Add('Энтропия 4 отбора :  '+floattostrF(So,FFFixed,18,3)+' Дж/кг*К');

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

   memo1.Lines.Add('Использованный теплоперепад от 4 отбора до рк :  '+floattostrF(Hi,FFFixed,18,0)+' Дж/кг');

   memo1.Lines.Add(' ');

   memo1.Lines.Add('Отсеки       // Расход пара ч/з отсеки // gk=Gk/Go // Исп.теплоперепад // Hi*gk');

     for i:=0 to 6 do

        memo1.Lines.Add(otcekGnames[i+1]+'  //  '+floattostrF(otcekG[i],FFFixed,18,3)+' кг/с  //  '

        +floattostrF(otcekGK[i],FFFixed,18,3)+'  //  '+floattostrF(otcekH[i],FFFixed,18,1)+' Дж/кг  //  '

        +floattostrF(otcekHGK[i],FFFixed,18,3));

   memo1.Lines.Add(' ');

   for i:=7 to 9 do

       memo1.Lines.Add(vixnames[i+1]+':  '+floattostrF(vix[i],FFFixed,18,3));

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

    ucf,u,cf,Hoo,Hoc,Hop:extended;

    h1t,p1t,t1t,a1t,v1t,y1t,h2t,p2t,t2t,a2t,v2t,y2t:double;

    c1t,F1,el,eopt,l1,b1,m1,t1,z1,a1,c1,w1,c1a,be1,

    w2t,F2,l2,b2,m2,t2,z2,a2,c2,w2,c2a,be2,al2,

    Hc,Hp,Hn,Hpp,Hbc,KPDoo,KPDo,

    pottr,potyt,potve,Byct2,potceg,

    KPDoi,Hi,Ni,Ru,Ru1:extended;

begin

rachet();

   memo1.Lines.Add(' ');

   memo1.Lines.Add('---2.РАСЧЕТ РЕГУЛИРУЮЩЕЙ СТУПЕНИ.---');

   memo1.Lines.Add(' ');

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

   memo1.Lines.Add(' ');

    for i:=3 to 4 do

       memo1.Lines.Add(vixnames[i+1]+':  '+floattostrF(vix[i],FFFixed,18,3));

    for i:=0 to 1 do

       memo1.Lines.Add(vixnames[i+1]+':  '+floattostrF(vix[i],FFFixed,18,3));

   memo1.Lines.Add(vixnames[10]+':  '+floattostrF(vix[9],FFFixed,18,3));

   memo1.Lines.Add(vxdnames[7]+':  '+floattostrF(vxd[6],FFFixed,18,3));

   memo1.Lines.Add(' ');

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

   memo1.Lines.Add(' ');

   //определение располагаемого теплоперепада//

   ucf:=(vxd[7]*cos(vxd[8]*3.14/180))/(2*sqrt(1-vxd[9])); //определение соотношения u/сф

   u:=3.14*vxd[6]*vxd[5]; //окружная скорость

   cf:=u/ucf;  // фиктивная скорость

   Hoo:=sqr(cf)/2;   //распологаемый теплоперепад ступени

    memo1.Lines.Add('---1.Определение распологаемого теплоперепада ступени---');

Скачать файл