summaryrefslogtreecommitdiff
path: root/3825/CH7/EX7.21/Ex7_21.sce
blob: 9104f1018aa3e23ee264f23113cacf86245c3c5d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
h1=2775.8
h2=167.456
h3=104.77
h4=146.56
s1=7.5984
s2=0.5721
s3=0.367
s4=0.5049
m3=((h2-h1)*10^4)/(h3-h4)
mprintf("m3=%fkg/h\n",m3)//ans vary due to roundoff error
TO=300
delta=(-10^4*TO*(s2-s1))-(m3*TO*(s4-s3))
mprintf("Net change in availability=%fkJ",delta)//ans vary due to roundoff error