1 files changed, 26 insertions, 0 deletions
diff --git a/3689/CH5/EX5.6/5_6.sce b/3689/CH5/EX5.6/5_6.sce
new file mode 100644
index 000000000..bf55d7b10
--- /dev/null
+++ b/3689/CH5/EX5.6/5_6.sce
@@ -0,0 +1,26 @@
+////
+//Variable Declaration
+n = 3.0                //Number of moles of CO2
+Ti = 300     //Initial and final state Temeperatures of CO2, K
+Tf = 600
+pi = 1.00     //Initial and final state pressure of CO2, K
+pf = 3.00
+cpm = 27.98            //Specific heat of mercury, J/(mol.K)
+M = 200.59             //Molecualr wt of mercury, g/(mol)
+beta = 1.81e-4         //per K
+rho = 13.54            //Density of mercury, g/cm3
+R = 8.314              //Ideal Gas Constant, J/(mol.K) 
+
+//Calcualtions
+dS1 = n*cpm*log(Tf/Ti)
+dS2 = n*(M/(rho*1e6))*beta*(pf-pi)*1e5
+dS = dS1 - dS2
+
+//Results
+printf("\n Entropy change of process is %4.1f J/(mol.K)",dS)
+
+printf("\n Ratio of pressure to temperature dependent term %3.1e\nhence effect of pressure dependent term is very less",dS2/dS1)
+
+printf("\n The above value is different as given in the text") 
+
+