5 files changed, 109 insertions, 0 deletions
diff --git a/3689/CH5/EX5.1/5_1.sce b/3689/CH5/EX5.1/5_1.sce
new file mode 100644
index 000000000..37b992a13
--- /dev/null
+++ b/3689/CH5/EX5.1/5_1.sce
@@ -0,0 +1,14 @@
+////Variable Declaration
+Th = 500.
+Tc = 200.     //Temeperatures IN Which reversible heat engine works, K
+q = 1000.              //Heat absorbed by heat engine, J
+
+//Calcualtions
+eps = 1.-Tc/Th
+w = eps*q
+
+//Results
+printf("\n Efficiency of heat engine is %4.3f",eps)
+
+printf("\n Work done by heat engine is %4.1f J",w)
+
diff --git a/3689/CH5/EX5.5/5_5.sce b/3689/CH5/EX5.5/5_5.sce
new file mode 100644
index 000000000..b00b22cbe
--- /dev/null
+++ b/3689/CH5/EX5.5/5_5.sce
@@ -0,0 +1,18 @@
+//////
+//Variable Declaration
+n = 2.5                //Number of moles of CO2
+Ti = 450.     //Initial and final state Temeperatures of CO2, K
+Tf = 800.
+pi = 1.35     //Initial and final state pressure of CO2, K
+pf = 3.45
+[A,B,C,D] = (18.86,7.937e-2,-6.7834e-5,2.4426e-8)
+                       //Constants in constant pressure Heat capacity equation in J, mol, K units
+R = 8.314              //Ideal Gas Constant, J/(mol.K) 
+//Calcualtions
+
+dS1 = n*integrate('(A+B*T+C*T**2+D*T**3)/T','T',Ti,Tf)
+dS2 = n*R*log(pf/pi)
+dS = dS1 - dS2
+//Results
+printf("\n Entropy change of process is %4.2f J/(mol.K)",dS)
+
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") 
+
+
diff --git a/3689/CH5/EX5.7/5_7.sce b/3689/CH5/EX5.7/5_7.sce
new file mode 100644
index 000000000..17be6288c
--- /dev/null
+++ b/3689/CH5/EX5.7/5_7.sce
@@ -0,0 +1,22 @@
+////
+//Variable Declaration
+n = 1.0                //Number of moles of CO2
+T = 300.0              //Temeperatures of Water bath, K
+vi = 25.0     //Initial and final state Volume of Ideal Gas, L
+vf = 10.0
+R = 8.314              //Ideal Gas Constant, J/(mol.K) 
+
+//Calcualtions
+qrev = n*R*T*log(vf/vi)
+w = -qrev
+dSsys = qrev/T
+dSsur = -dSsys
+dS = dSsys + dSsur
+
+//Results
+printf("\n Entropy change of surrounding is %4.1f J/(mol.K)",dSsur)
+
+printf("\n Entropy change of system is %4.1f J/(mol.K)",dSsys)
+
+printf("\n Total Entropy change is %4.1f J/(mol.K)",dS)
+
diff --git a/3689/CH5/EX5.8/5_8.sce b/3689/CH5/EX5.8/5_8.sce
new file mode 100644
index 000000000..6b44e8cef
--- /dev/null
+++ b/3689/CH5/EX5.8/5_8.sce
@@ -0,0 +1,29 @@
+////
+//Variable Declaration
+n = 1.0                //Number of moles of CO2
+T = 300.0              //Temeperatures of Water bath, K
+vi = 25.0     //Initial and final state Volume of Ideal Gas, L
+vf = 10.0
+R = 8.314              //Ideal Gas Constant, J/(mol.K) 
+
+//Calcualtions
+pext = n*R*T/(vf/1e3)
+pi = n*R*T/(vi/1e3)
+q = pext*(vf-vi)/1e3
+qrev = n*R*T*log(vf/vi)
+w = -q
+dSsur = -q/T
+dSsys = qrev/T
+dS = dSsys + dSsur
+
+//Results
+printf("\n Constant external pressure and initial pressure are %4.3e J,and %4.3e J respectively",pext,pi)
+
+printf("\n Heat in reverssible and irreversible processes are %4.1f J,and %4.1f J respectively",qrev,q)
+
+printf("\n Entropy change of system is %4.1f J/(mol.K)",dSsys)
+
+printf("\n Entropy change of surrounding is %4.2f J/(mol.K)",dSsur)
+
+printf("\n Total Entropy changeis %4.2f J/(mol.K)",dS)
+