summaryrefslogtreecommitdiff
path: root/24/CH21/EX21.2/Example21_2.sce
blob: 27904f19cdc7a451bf92cdca6990e76cef2cab56 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Given that
m = 1.5  //in kg
TiL = 60 + 273  //in K
TiR = 20 + 273  //in K
Tf = 40 + 273  //in K
Sc = 386  //in J/kg.K

//Sample Problem 21-2
printf("**Sample Problem 21-2**\n")
SL = m*Sc*integrate('1/T', 'T', TiL, Tf)
SR = m*Sc*integrate('1/T', 'T', TiR, Tf)
Srev = SR + SL
printf("The net entropy change in the reversible process is equal to %fJ/K", Srev)