1 files changed, 17 insertions, 0 deletions
diff --git a/32/CH5/EX5.09/5_09.sce b/32/CH5/EX5.09/5_09.sce
new file mode 100755
index 000000000..ef68787c7
--- /dev/null
+++ b/32/CH5/EX5.09/5_09.sce
@@ -0,0 +1,17 @@
+//pathname=get_absolute_file_path('5.09.sce')
+//filename=pathname+filesep()+'5.09-data.sci'
+//exec(filename)
+//Temperature of the system(in K):
+T1=500
+//Temperature of the reservoir(in K):
+T2=300
+//Heat capacity of the system(in J/K):
+//C=0.05*T^2+0.10*T+0.085
+//Maximum heat(in J):
+Q1=-(0.05*(T2^3-T1^3)/3+0.10*(T2^2-T1^2)/2+0.085*(T2-T1))
+//Entropy change of the system(in J/K):
+dSs=0.05*(T2^2-T1^2)/2+0.10*(T2-T1)+0.085*log(T2/T1)
+//Maximum work available(in kJ):
+W=(Q1/T2+dSs)*T2
+printf("\nRESULT\n")
+printf("\nMaximum work = %f kJ",W/(10^3))
+\ No newline at end of file