summaryrefslogtreecommitdiff
path: root/551/CH13/EX13.1/1.sce
blob: 450b4c5e2cb191deb4dd9c79d96d91659ff9bf79 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
clc
T1=671; //K
T2=T1;
T3=313; //K
T4=T3;
W=130; //kJ

disp("(i) Engine thermal efficiency =")
n_th=(T2-T3)/T2;
disp(n_th)


disp("(ii) Heat added =")
Q=W/n_th;
disp(Q)
disp("kJ")


disp("(iii) The entropy changes during heat rejection process")
Q_rejected=Q-W;
dS=Q_rejected/T3;
disp("dS=")
disp(dS)
disp("kJ/K")