summaryrefslogtreecommitdiff
path: root/1442/CH10/EX10.2/10_2.sce
blob: 36872131f8ab3e458dcb54cc695cd5e8e15e4be6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc
//initialisation of variables
Wrev= 757.8 //kJ
W= 383.4 //kJ
m= 2 //kg
s2= 7.2795 //kJ/kg K
s1= 0.2966  //kJ/kg K
Qr= 5369.7 //kJ
T= 150 //C
T0= 20 //C
//CALCULATIONS
I= Wrev-W
dS= m*(s2-s1)
Sr= -Qr/(273.15+T)
I1= (273.15+T0)*(dS+Sr)
//RESULTS
printf (' Irreversibility of the process= %.1f kJ',I1)