summaryrefslogtreecommitdiff
path: root/3831/CH10/EX10.5/Ex10_5.sce
blob: 0177ce1618684b973dbf472c6825f52bbd17d478 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Example 10_5
clc;funcprot(0);
// Given data
Q=-100;// W
W=-100;// W
T_b=24.0+273;// K
p_0=0.101;// MPa
T_0=15.0+273;// K

// Calculation
dVbydt=0;
dAbydt=0;
I=((1-(T_0/T_b))*Q)-W+(p_0*dVbydt)-dAbydt;// W
printf("\nThe irreversibility rate within the room,I=%2.1f W",I);