1 files changed, 20 insertions, 0 deletions
diff --git a/1019/CH4/EX4.19/Example_4_19.sce b/1019/CH4/EX4.19/Example_4_19.sce
new file mode 100644
index 000000000..fe5013fbf
--- /dev/null
+++ b/1019/CH4/EX4.19/Example_4_19.sce
@@ -0,0 +1,20 @@
+//Example 4.19
+clear;
+clc;
+
+//Given
+delHfus=15648;//Latent heat of fusion in J mol^-1
+Tm=386.6;//melting point in K
+delHvap=25522;//latent heat of vapourization in J mol^-1
+Cp=81.588;//heat capacity in J K^-1 mol^-1
+Tb=457;//boiling point in K
+T=298;
+
+//To determine the entropy change
+delS1=(54.684*log(Tm/T))+(13.431*0.0001*(Tm-T))-(298*13.431*0.0001*log(Tm/T));//entropy change in 1st step in J K^-1
+delS2=delHfus/Tm;//entropy change in 2nd step in J K^-1
+delS3=Cp*log(Tb/Tm);//entropy change in 3rd step in J K^-1
+delS4=delHvap/Tb;//entropy change in final step in J K^-1
+delS=delS1+delS2+delS3+delS4;//total entropy change in J K^-1
+mprintf('Change in entropy = %f J K^-1 mol^-1',delS);
+//end
+\ No newline at end of file