1 files changed, 24 insertions, 0 deletions
diff --git a/1019/CH4/EX4.14/Example_4_14.sce b/1019/CH4/EX4.14/Example_4_14.sce
new file mode 100644
index 000000000..9dd4ccec5
--- /dev/null
+++ b/1019/CH4/EX4.14/Example_4_14.sce
@@ -0,0 +1,24 @@
+//Example 4.14
+clear;
+clc;
+
+//Given
+Cpw=75.42;//heat capacity of water in J K^-1 mol^-1
+T=363; //temperature of water in K
+P=1;//pressure in atm
+Cpi=37.20;//heat capacity of ice  in J K^-1 mol^-1
+delHf=5980;// latent heat of fusion in J mol^-1
+mp=273;//melting point of water in K
+n=10/18;//moles of ice taken
+
+//To calculate the entropy change
+T2=306;//since q=0
+q1=n*delHf;//heat in J
+q2=n*Cpw*(T2-mp);//heat in J
+q3=n*2*Cpi*(T2-T);//heat in J
+delS1=q1/mp;//entropy change during 1st step in J K^-1
+delS2=n*Cpw*log(T2/mp);//entropy change during 2nd step in J K^-1
+delS3=2*n*Cpw*log(T2/T);//entropy change during final step in J K^-1
+delS=delS1+delS2+delS3;//total entropy change in J K^-1
+mprintf('Entropy change = %f J K^-1',delS);
+//end
+\ No newline at end of file