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

  //otborGnames:array[1..11]of string=

  //таблица отсеков

    //расход ч/з отсек

   otcekGnames:array[1..7]of string=

      (' 1.отсек: рег.ст. 2-8',

       ' 2.отсек: 9-11 ступени',

       ' 3.отсек: 12-14 ступени',

       ' 4.отсек: 15-18 ступени',

       ' 5.отсек: 19-22 ступени',

       ' 6.отсек: 23-24 ступени',

       ' 7.отсек: 25-27 ступени');

     //отношение расходов

   // otcekGKnames:array[1..7]of string=

     // использованный теплоперепад в отсеке

   // otcekHnames:array[1..7]of string=

     //произведение H*gk

   // otcekHGKnames:array[1..7]of string=

var

  Form1: TForm1;

 vxd:array[0..23] of double=(12.8,550,10,130.6,75,50,1.1,0.96,14,0.02,0.97,0.94, 0.97,0.2,0.97,0.95,0.848, 0.97,0.5,0.98,0.96,2,0.645,16);

 vix:array[0..9] of double;

 otborP:array[0..10]of double=(4.57,2.66,1.27,1.27,1.27,0.41,0.088,0.088,0.034,0.034,0.003);

 otborT:array[0..10]of double=(421,352,267,267,267,169,0,0,0,0,0);

 otborG:array[0..10]of double=(7.31,9.17,2.92,3.86,51.4,7.88,0,20,0,20,0);

 otborH:array[0..10]of double;

 otcekG:array[0..6] of double;

 otcekGK:array[0..6] of double;

 otcekH:array[0..6] of double;

 otcekHGK:array[0..6] of double;

Function wspHPT(const p: Double; const t: Double): Double; stdcall; external 'okawsp5.dll';

Function wspHPS(const p: Double; const s: Double): Double; stdcall; external 'okawsp5.dll';

Function wspSPH(const p: Double; const h: Double): Double; stdcall; external 'okawsp5.dll';

Function wspTPH(const p: Double; const h: Double): Double; stdcall; external 'okawsp5.dll';

Function wspHPTX(const p: Double; const t: Double; const x: Double): Double; stdcall; external 'okawsp5.dll';

Function wspWPS(const p: Double; const s: Double): Double; stdcall; external 'okawsp5.dll';//скорость звука

Function wspKINVISPS(const p: Double; const s: Double): Double; stdcall; external 'okawsp5.dll';

Function wspVPS(const p: Double; const s: Double): Double; stdcall; external 'okawsp5.dll';

Function wspTPS(const p: Double; const s: Double): Double; stdcall; external 'okawsp5.dll';

implementation

{$R *.dfm}

function TForm1.rachet():double;

var Ho,So,Hi:double;

    i:integer;

 begin

 vix[0]:=wspHPT(vxd[0]*1000000,vxd[1]+273);//н.энтальпия Дж/м

 vix[1]:=wspSPH(vxd[0]*1000000,vix[0]); //н.энтропия Дж/мК

 vix[2]:=vix[0]-wspHPS(vxd[2]*1000,vix[1]);//располагаемый теплоперепад турбины

 vix[3]:=0.95*vxd[0];//давление за ст клпаном

 vix[4]:=wspTPH(vix[3]*1000000,vix[0])-273;//температура за ст клпаном

 vix[5]:=wspSPH(vix[3]*1000000,vix[0]);//энтропия за ст клпаном

 vix[6]:=vix[0]-wspHPS(vxd[2]*1000,vix[5]);// располагаемый теплоперепад пр.ч. турбины

   // таблица отборов

  for i:=0 to 5 do

   otborH[i]:=wspHPT(otborP[i]*1000000,otborT[i]+273);//энтальпия отборов

   otborH[6]:=2556000;

   otborH[7]:=2556000;

   otborH[8]:=2466500;

   otborH[9]:=2466500;

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

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

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

 Hi:=0.8*Ho;

     // таблица отсеков

      //расход

 otcekG[0]:=vxd[3];

 otcekG[1]:=otcekG[0]-otborG[0];

 otcekG[2]:=otcekG[1]-otborG[1];

 otcekG[3]:=otcekG[2]-otborG[2]-otborG[3]-otborG[4];

 otcekG[4]:=otcekG[3]-otborG[5];

 otcekG[5]:=otcekG[4]-otborG[6]-otborG[7];

 otcekG[6]:=otcekG[5]-otborG[8]-otborG[9];

        //gk

 for i:=0 to 6 do

   otcekGK[i]:=otcekG[i]/vxd[3];

       //исп.теплопер.

 otcekH[0]:=vix[0]-otborH[0];

 otcekH[1]:=otborH[0]-otborH[1];

 otcekH[2]:=otborH[1]-otborH[2];

 otcekH[3]:=otborH[2]-otborH[5];

 otcekH[4]:=otborH[5]-otborH[6];

 otcekH[5]:=otborH[6]-otborH[8];

 otcekH[6]:=119.8;

       //исп.теплопереп.*gk

 for i:=0 to 6 do

   otcekHGK[i]:=otcekH[i]*otcekGK[i];

 vix[7]:=otcekHGK[0]+otcekHGK[1]+otcekHGK[2]+otcekHGK[3]+otcekHGK[4]+otcekHGK[5]; //использованный теплоперепад турбины

 vix[8]:=vxd[4]*1000000/(0.99*0.98); //внутренняя мощность