summaryrefslogtreecommitdiff
path: root/2870/CH8/EX8.10/Ex8_10.sce
blob: 688046f2d4bcab4d5d0b3713e48d25d570907901 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc;clear;
//Example 8.10

//given values
Q=1035;
T0=273;
Tin=293;
Tout=278;
T1=300;

//calculations
//Xin - Xout - Xdestroyed = dX/dt
Xdestroyed=Q*(1-T0/Tin)-Q*(1-T0/Tout);
Xdestroyed=round(Xdestroyed);
disp(Xdestroyed,'the rate of exergy destroyed in W');
//the total rate of exergy destroyed
Xdestroyed=Q*(1-T0/T1)-Q*(1-T0/T0);
disp(Xdestroyed,'the otal total of exergy destroyed in W');