/
___ ___________________
___ _____________
________
____________________________________________________
1
. 521:
..
:
..
2014
:
, , .
:
, , .
- .1.
.1.
:
;
, ;
1, 2, 3 ( );
( , , );
( ;
.
:
P0 = 5,1;
δt0 =10C;
δt1 =20;
δt2 =25;
P = 0,0041;
1= 0,997;
P1 = 3.06;
P2 = 0.765;
P3= 0.115 ;
( )
(.2.) | |||
1 | P1 | ts1=234.96C, h1ʹ= 1013.57/ | |
2 | P0 | ts0=265.18C, h0ʹ=1160.73/ | |
1 | P1 | ts1=234.96C, h1ʹ=1013.57 / | |
2 | P2 | ts2=168.57C, hs2ʹ= 712.93/ | |
3 | P3 | ts3=103.56C, h3ʹ=434.13 / | |
P3 | ts3=103.56C, h3ʹ=434.13 / | ||
PK | tsk=29.39C, hk= 123.19/ |
( ) -
1 | P1(ts1) | tB1=ts1-θ =227.96C | PB=1.2P0 =0.918 | PB, tB1 hB1=980.65/ | |||
2 | P2(ts2) | tB2=ts2 =168.57 | PB=1.2P2 =5,88 | hB2=hs2 =712.95/ | |||
3 | P3(ts3) | tB3=ts3 =96.56 | PB=P3 =0.115 | hB3=h3 =400.38/ | |||
|
|
P0=5.1, t0=265.18C | h0=2846.41 /, S0=6.0622 / | ||
S0=6.0622/, P1=3.06 | h1=2744.43 / | ||
C | P3=0.115, Xc=0.997 | hc=2674.41 / | |
S0=6.0622/, P2=0.765 | h2=2494.99 / | ||
S0=6.0622/, P3=0.115 | h3=2571.95 / | ||
2 | P2=0.765, t2=240.18C | h2=2930.65 / | |
1 | P1=3.06, t1=214.96C | h1=920,72 / |
: α1, α1, α, α1, α1, α3 , α2 , α3, α, α2, α, α.
α1=(α(h1-hC))/(h1-h1ʹ) | 1 | |
α1=(αB1(hB1-hB2) - α2(h0ʹ-h1ʹ))/(h1-h1ʹ) | 1 | |
αCB=(αC(h3-hc))/(h3ʹ-hC) | ||
α=(αC(h3ʹ-h3))/(h3ʹ-hC) | ||
α2=(α(h2-h1))/(h0-h0ʹ) | 2 | |
αX1=α1+α1 | - | |
αB1=α0+α2 | - | |
α=α0-α3-α2-α1 | - | |
α2=(αX1(hB2-h1ʹ)+α1(hb2-h1ʹ)+αB3(hB2-hB3))/(h2-hB2) | 2 | |
αB3=(αB1-α1-αX1-(αX1(hB2-h1ʹ))/(h2-hB2)+(α1*(hB2-h1ʹ))/(h2-hB2))/(1+(hB2-hB3)/(h2-hB2)) | 2 | |
α3=(α*(hK-h3ʹ))/(h3-h3ʹ) | 3 | |
α=α3/(1+(h3-hK)/(h3-h3ʹ)) | 3 |
α |
α |
α |
α3 |
α |
α |
α |
α01 |
α1 |
α2 |
α1 |
α |
α3 |
α2 |
α |
α2 |
α 3 |
α1 |
α01 |
α1 |
α |
α01 |
α |
α1 |
α |
α01 |
α1 |
α |
α3 |
α2 |
α |
α1 |
α3 |
α |
α2 |
α |
α2 |
α | α01 | α | α1 | α1 | α3 | α2 | α3 | α | α2 | α | α | |
α | ||||||||||||
α01 | ||||||||||||
α | ||||||||||||
α1 | ||||||||||||
α1 | ||||||||||||
α3 | ||||||||||||
α2 | ||||||||||||
α3 | ||||||||||||
α | ||||||||||||
α2 | ||||||||||||
α | ||||||||||||
α |
α:
|
|
α | α01 | α | α1 | α1 | α3 | α2 | α3 | α | α2 | α | α | |
α | ||||||||||||
α01 | ||||||||||||
α | ||||||||||||
α1 | ||||||||||||
α1 | ||||||||||||
α3 | ||||||||||||
α2 | ||||||||||||
α3 | ||||||||||||
α | ||||||||||||
α2 | ||||||||||||
α | ||||||||||||
α |
-
: α=1, ε=0,02 |
α=0,7 |
α=... 1 |
α=... 1 |
α=... 2 |
α01= 3 |
α1=... 7 |
α1=... 6 |
α2=... 6 |
α3=... 5 |
α2=... 5 |
α=... 9 |
α3=... |
αα=α |
α= |
URBO-PASCAL
Program TURBINA;
Var hk,KPD,B,AAc,E,h2i,h2,hc,hpp1,h1,h1i,hpp2,h0,h0i,A0,hB1,hB2,hB3,hki,h3,Acp,AcB,App,A01,AB1,AB2,A1,AB3,A2,AB,A3,Ac:real;
Begin
h2i:=798.50; h2:=2494.99; hc:=2766.46;
hpp1:=2875.41; h1:=2744.43; h1i:=1013.57;
hpp2:=2930.65; h0:=2846.41; h0i:=1160.73;
A0:=1; hB1:=980.65; hB2:=712.93;
hB3:=400.38; hki:=123.19; h3:=2571.95;
hk:=2118.02;
E:=0.01; Ac:=0.7;
Repeat
Acp:=Ac*((h2-h2i)/(hc-h2i));
AcB:=(Ac*h2-Acp*hc)/h2i;
App:=Acp*((hpp1-hc)/(h1-h1i));
A01:=Acp*((hpp2-hpp1)/(h0-h0i));
AB1:=A01+A0;
AB2:=(AB1*hB1-A01*h0i+A01*h1-AB1*h1)/(hB2-h1);
A1:=AB1-AB2-A01;
AB3:=(AB2*hB2-App*h1i+App*h2-AB2*h2)/(hB3-h2);
A2:=AB2-AB3-App;
AAc:=Ac;
Ac:=A0-App-A2-A1;
|
|
B:=(AAc-Ac)/Ac;
Until ABS(B)<=E;
AB:=(AB3*hB3+AcB*h3-AB3*h3-AcB*h2i)/(hki-h3);
A3:=AB3-AB-AcB;
KPD:=((A0*(h0-h1)+(A0-App-A1)*(h1-h2)+Acp*(hpp2-h3)+(Acp-A3)*(h3-hk))/(AB1*(h0-hB1)))*100;
Writeln('Acp=',Acp:7:4);
Writeln('AcB=',AcB:7:4);
Writeln('App=',App:7:4);
Writeln('A01=',A01:7:4);
Writeln('AB1=',AB1:7:4);
Writeln('AB2=',AB2:7:4);
Writeln('A1=',A1:7:4);
Writeln('AB3=',AB3:7:4);
Writeln('A2=',A2:7:4);
Writeln('AB=',AB:7:4);
Writeln('A3=',A3:7:4);
Writeln('Ac=',Ac:7:4);
Writeln('KPD=',KPD:2:0);
Readln;
End.
: