summaryrefslogtreecommitdiff
path: root/3856/CH6/EX6.5
diff options
context:
space:
mode:
Diffstat (limited to '3856/CH6/EX6.5')
-rw-r--r--3856/CH6/EX6.5/Ex6_5.sce21
-rw-r--r--3856/CH6/EX6.5/Ex6_5.txt1
2 files changed, 22 insertions, 0 deletions
diff --git a/3856/CH6/EX6.5/Ex6_5.sce b/3856/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..8be42293b
--- /dev/null
+++ b/3856/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,21 @@
+//Calculate the slope of the S-L (solid -liquid )Curve
+
+//Example 6.5
+
+clc;
+
+clear;
+
+Tf=273.15; //Phase transition temperature (two phase can coexist in equilibrium)in K
+
+delfusHbar=6.01*1000*9.87*10^-3; //Change in Enthalpy in L atm mol^-1 (1 J=9.87*10^-3 L atm)
+
+Vbarl=0.0180; //Molar volume of liquid water in L mol^-1
+
+Vbars=0.0196; //Molar volume of ice in L mol^-1
+
+delfusVbar=(Vbarl-Vbars); //Change in molar volume in L mol^-1
+
+F=(delfusHbar)/(Tf*delfusVbar); //Slope of the S-L curve in atm K^-1; F=delP/delT
+
+printf("Slope of the S-L Curve = %.0f atm K^-1",F);
diff --git a/3856/CH6/EX6.5/Ex6_5.txt b/3856/CH6/EX6.5/Ex6_5.txt
new file mode 100644
index 000000000..8c51c202a
--- /dev/null
+++ b/3856/CH6/EX6.5/Ex6_5.txt
@@ -0,0 +1 @@
+ Slope of the S-L Curve = -136 atm K^-1 \ No newline at end of file