# Расчет турбины Т -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); //внутренняя мощность