1 files changed, 32 insertions, 0 deletions
diff --git a/32/CH4/EX4.18/4_18.sce b/32/CH4/EX4.18/4_18.sce
new file mode 100755
index 000000000..0f5d0c332
--- /dev/null
+++ b/32/CH4/EX4.18/4_18.sce
@@ -0,0 +1,32 @@
+//pathname=get_absolute_file_path('4.18.sce')
+//filename=pathname+filesep()+'4.18-data.sci'
+//exec(filename)
+//Maximum temperature(in K):
+T1=800+273
+//Minimum temperature(in K):
+T2=50+273
+//Temperature of the 3rd reservoir(in K):
+T3=50+273
+//Temperature of the 4th reservoir(in K):
+T4=10+273
+//Heat picked up by Carnot cycle(in kW):
+Q3=15
+//Energy required to run a machine(in kW):
+E=25
+//Efficiency:
+n=1-T2/T1
+//From the relation of COP:
+Q4=Q3*T3/T4
+//Work by heat pump(in kW):
+Whp=Q4-Q3
+//Work in the heat engine(in kW):
+Whe=Whp+E
+//Heat from source at 1173 K(in kW):
+Q1=Whe/n
+//Heat rejected to the reservoir from engine 1(in kW):
+Q2=Q1-Whe
+//Total heat rejected to the reservoir(in kW):
+Qt=Q2+Q4
+printf("\nRESULT\n")
+printf("\nHeat rejected to the reservoir = %f kW",Qt)
+printf("\nHeat received from the highest temperature reservoir = %f kW",Q1)
+\ No newline at end of file