1 files changed, 9 insertions, 0 deletions
diff --git a/1427/CH18/EX18.18/18_18.sce b/1427/CH18/EX18.18/18_18.sce
new file mode 100644
index 000000000..9a90e0dfc
--- /dev/null
+++ b/1427/CH18/EX18.18/18_18.sce
@@ -0,0 +1,9 @@
+//ques-18.18
+//Calculating entropy change and free energy change of the reaction
+clc
+T1=300; T2=330;//temperature (in K)
+G1=-16;//free energy change (in kcal)
+H=-10;//enthalpy change (in kcal)
+S=(H-G1)/T1;//entropy change (in kcal/K)
+G2=H-T2*S;//free energy change (in kcal)
+printf("The entropy change is %d cal/K and free energy change at 330K is %.1f kcal.",S*1000,G2);