551/CH13/EX13.34/34.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

clc
m=0.1; //kg/s
p1=1; //bar
T4=285; //K
p2=4; //bar
cp=1; //kJ/kg K
y=1.4;

T3=T4*(p2/p1)^((y-1)/y);
disp("Temperature at turbine inlet =")
disp(T3)
disp("K")

P=m*cp*(T3-T4);
disp("Power developed =")
disp(P)
disp("kW")