summaryrefslogtreecommitdiff
path: root/32/CH7/EX7.06/7_06.sce
blob: cbbd33f328520e6c5ede5fa26284c068dd7c5956 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//pathname=get_absolute_file_path('7.06.sce')
//filename=pathname+filesep()+'7.06-data.sci'
//exec(filename)
//Temperature of IC engine(in K):
T1=800+273
//Work per kg of gas in engine(in kJ/kg):
W=1050
//Cp of gas(in kJ/kg.K):
Cp=1.1
//Temperature of the surroundings(in K):
T0=30+273
//Change in entropy of system(in kJ/kg.K):
dSsys=W/T1
//Change in entropy of surroundings(in kJ/kg.K):
dSsurr=-Cp*(T1-T0)/T0
//Loss of available energy(in kJ/kg):
L=-T0*(dSsys+dSsurr)
//Ratio of lost available exhaust energy to engine work:
r=L/W
printf("\nRESULT")
printf("\nRatio of available exhaust energy to engine work= %f/1",r)