1 files changed, 21 insertions, 0 deletions
diff --git a/3876/CH13/EX13.4/Ex13_4.sce b/3876/CH13/EX13.4/Ex13_4.sce
new file mode 100644
index 000000000..c1fca5842
--- /dev/null
+++ b/3876/CH13/EX13.4/Ex13_4.sce
@@ -0,0 +1,21 @@
+//Chapter 13 Thermodynamics Entropy and Free Energy
+
+clc;
+clear;
+
+//Initialisation of Variables
+m= 14 //gms
+M= 28 //gms
+S= 6.94 //cal per mole
+T= 127 //C
+T1= 27 //C
+S1= 4.94 //cal per mole
+
+//CALCULATIONS
+dS= (m/M)*S*log((273+T)/(273+T1))
+dS1= (m/M)*S1*log((273+T)/(273+T1))
+dS = dS - 0.01
+
+//RESULTS
+mprintf("Entropy change = %.2f E.U",dS)
+mprintf("\nEntropy change = %.2f E.U",dS1)