1 files changed, 19 insertions, 0 deletions
diff --git a/32/CH5/EX5.08/5_08.sce b/32/CH5/EX5.08/5_08.sce
new file mode 100755
index 000000000..1c970c731
--- /dev/null
+++ b/32/CH5/EX5.08/5_08.sce
@@ -0,0 +1,19 @@
+//pathname=get_absolute_file_path('5.08.sce')
+//filename=pathname+filesep()+'5.08-data.sci'
+//exec(filename)
+//Maximum temperature(in K):
+T1=1800
+//Minimum temperature(in K):
+T2=300
+//Rate at which heat is added(in MW):
+Q1=5
+//Work output(in MW):
+W=2
+//Heat rejected(in MW):
+Q2=Q1-W
+//Entropy generated(in MW/K):
+dSg=(-Q1/T1+Q2/T2)
+//Work lost(in MW):
+w=T2*dSg
+printf("\nRESULT\n")
+printf("\nWork lost = %f MW",w)
+\ No newline at end of file