summaryrefslogtreecommitdiff
path: root/1472/CH8/EX8.5/8_5.sce
blob: 26e087c0dbd29b6f3601d232f3c17b8d13fc4e29 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc
//initialization of varaibles
Q=826 //B/lb
T=860 //R
T1=2000+460 //R
T2=1000+460 //R
//calculations
ds=Q/T
dsgas=Q*(log(T2)-log(T1))/(T1-T2)
dst=ds+dsgas
//results
printf("Total entropy change = %.3f B/R",dst)