Предварительный тепловой баланс и определение расхода топлива

var

Sleeper:integer;

QH,TYX,IYX,TXB,TGB,SHB,VD,q3,q4,q5,ASHP,T3,CT3P,A3,RPP,TPP,TPV:real;

IPV,DVT,D,PVT,TVT,IVT,PVT2,TVT2,IVT2,ayx,ipp,ixb:real;

QXB,TSHP,q2,q6,q,nka,Qka,B,BP,Fi:real;

T,t1,I1,FOKV,HSH,QL,nBV1,nBV2,rH20,m3L,rP,S,En,t2,D3L:real;

P,PG,a,L1,S1,I2,i,QTSH,QTDOP,QBDOP:real;

FOKV1,QLV,QLV1,QLVH,TSH,PNS,KGRN,K3LM3L,KPS,FSH,TCP,QLSH1,QLm:real;

QEKR,Li,QLSH,QLDOP,FB,QLVHh:real;

iVPR1,i2VPR1,deltai1,tpcr,deltat,wg,ak,a2,al,a1,k:real;

BEGIN

{предварительный тепловой баланс и определение расхода топлива}

writeln('Predvaritelnyi teplovoi balans i opredelenie rashoda topliva');

QH:=23860;

TYX:=170;

IYX:=1632;

TXB:=55;

TGB:=380;

SHB:=1.3;

VD:=5.636;

q3:=0;

q4:=0.5;

q5:=0.2;

ASHP:=0.2;

T3:=1300;

CT3P:=1540;

A3:=18.2;

RPP:=26;

TPP:=565;

TPV:=260;

IPV:=1136;

DVT:=222;

D:=264;

PVT:=4;

TVT:=307;

IVT:=2995;

PVT2:=3.8;

TVT2:=570;

IVT2:=3614;

ayx:=1.2;

ipp:=3379;

ixb:=402.9;

QXB:=SHB*VD*TXB;

writeln('QXB=',QXB);

TSHP:=t3+100;

writeln('TSHP=',TSHP);

q2:=((Iyx-ayx*IXB)*(100-q4))/QH;

writeln('q2=',q2);

q6:=(ASHP*CT3P*a3)/QH;

writeln('q6=',q6);

q:=q2+q3+q4+q5+q6;

writeln('q=',q);

nka:=100-q;

writeln('nka=',nka);

Qka:=D*(IPP-IPV)+DVT*(IVT2-IVT);

writeln('Qka=',Qka);

B:=(Qka*100)/(QH*nka);

writeln('B=',B);

BP:=B*(1-q4/100);

writeln('BP=',BP);

Fi:=1-q5/(nka+q5);

writeln('Fi=',Fi);

{тепловой расчёт ширмы первой ступени}

writeln('');

writeln('Teplovoi raschet shirmy pervoi stupeni');

T:=1136.5;

t1:=T-273;

t1:=863.5;

I1:=14150;

FOKV:=77.4;

HSH:=13.5;

I:=17.3;

QLm:=193.35;

nBV1:=0.7;

nBV2:=0.6;

rH20:=0.097;

m3L:=0.018;

rP:=0.277;

BP:=32.272;

S:=0.888;

En:=0.5;

t2:=1015;

D3L:=16;

Fi:=0.998;

P:=0.103;

PG:=1300;

a:=0.34;

L1:=4.47;

S1:=0.692;

B:=0.92;

QL:=12455.7;

S:=263.9;

I2:=12500;

FOKV1:=HSH*i;

writeln('FOKV1=',FOKV1);

QLV:=QLm*nBV1;

writeln('QLV=',QLV);

QLV1:=QLm*nBV2;

writeln('QLV1=',QLV1);

QLVH:=(QLV*FOKV+QLV1*FOKV1)/BP;

writeln('QLVH=',QLVH);

TSH:=(t1+t2)/2;

writeln('TSH=',TSH);

PNS:=P*rP*s;

writeln('PNS=',PNS);

KGRN:=((((7.8+16*0.097)/(sqrt(0.277*0.888)))-1)*(1-(0.37*1136.5)/1000))*0.277;

writeln('KGRN=',KGRN);

K3LM3L:=(43*1300*0.018)/(exp(0.67*ln(1136.5*16)));

writeln('K3LM3L=',K3LM3L);

KPS:=(KGRN+K3LM3L)*0.888*0.103;

writeln('KPS=',KPS);

FSH:=sqrt((4.47*4.47)/(0.692*0.692)+1)-4.47/0.692;

writeln('FSH=',FSH);

TCP:=TSH+273;

writeln('TCP=',TCP);

QLVHh:=(QLVH*(1-a)*FSH)/0.92+(5.7*12.5*17.3*TCP*TCP*TCP*TCP*0.5*a)/(32.272*100000*1000*1000);

writeln('QLVHh=',QLVHh);

QLSH1:=QLVH-QLVHh;

writeln('QLSH1=',QLSH1);

QEKR:=QL-QLVH;

writeln('QEKR=',QEKR);

Li:=(QEKR*32.272)/D;

writeln('Li=',Li);

QLSH:=(QLSH1*287)/311;

writeln('QLSH=',QLSH);

QLDOP:=(QLSH1*24)/311;

writeln('QLDOP=',QLDOP);

FB:=0.998*(1015-863.5);

writeln('FB=',FB);

iVPR1:=8.33*(2960-1138.2)/(D-5.55);

writeln('iVPR1=',iVPR1);

i2VPR1:=2960-iVPR1;

writeln('i2VPR1=',i2VPR1);

deltai1:=((2260+QLSH)*32.272)/(D-5.55);

writeln('deltai1=',deltai1);

i2:=i2VPR1+deltai1;

writeln('i2=',i2);

tpcr:=(561.62+450)/2;

writeln('tpcr=',tpcr);

deltat:=TSH-tpcr;

writeln('deltat=',deltat);

wg:=(32.272*5.854*(TSH+273))/(273*257);

writeln('wg=',wg);

ak:=62*1*0.92*0.6;

writeln('ak=',ak);

a2:=2500*0.98;

writeln('a2=',a2);

t3:=tpcr+(0.0086+1/a2)*((32.272*(2260-QLSH))/2393);

writeln('t3=',t3);

al:=420*0.284*0.93;

writeln('al=',al);

a1:=((ak*3.142*0.032)/(2*0.035*0.98)+al)*0.85;

writeln('a1=',a1);

k:=a1/(1+(1+QLSH/2260)*0.0086*a1);

writeln('k=',k);

QTSH:=(k*2393*deltat)/(32.272*1000);

writeln('QTSH=',QTSH);

QTDOP:=(k*198*(939.25-400))/(32.272*1000);

writeln('QTDOP=',QTDOP);

QBDOP:=(QTDOP*100)/98.091;

writeln('QBDOP=',QBDOP);

readln(Sleeper)

END.