summaryrefslogtreecommitdiff
path: root/32/CH4/EX4.04/4_04.sce
blob: 000058e399ed5ab499d2e05b49811e1356e0711d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//pathname=get_absolute_file_path('4.04.sce')
//filename=pathname+filesep()+'4.04-data.sci'
//exec(filename)
//Source temperature(in K):
T1=827+273
//Sink temperature(in K):
T2=27+273
//Temperature in the refrigerator(in K):
T3=-13+273
//Heat input(in kJ):
Q1=2000
//Net work available(in kJ):
W=300
//Rate at which heat is extracted(in kJ):
Q2=Q1*T2/T1
//Work in the engine(in kJ):
We=Q1-Q2
//Work in the refrigerator(in kJ):
Wr=We-W
//Heat transferred to the refrigerant(in kJ):
Q3=Wr/(T2/T3-1)
//Heat transferred to reservoir by refrigerant(in kJ):
Q4=Q3+Wr
//Total heat transferred to low temperature reservoir(in kJ):
Wt=Q2+Q4
printf("\nRESULTS\n")
printf("\nHeat transferred to refrigerant = %f kJ",Q3)
printf("\nTotal heat transferred to low temperature reservoir = %f kJ",Wt)