diff options
Diffstat (limited to '3689/CH6/EX6.13/6_13.sce')
| -rw-r--r-- | 3689/CH6/EX6.13/6_13.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/3689/CH6/EX6.13/6_13.sce b/3689/CH6/EX6.13/6_13.sce new file mode 100644 index 000000000..8b0681fff --- /dev/null +++ b/3689/CH6/EX6.13/6_13.sce @@ -0,0 +1,16 @@ +////
+//Variable Declaration
+dGfCG = 0.0 //Std. Gibbs energy of formation for CaCO3 (s), kJ/mol
+dGfCD = 2.90 //Std. Gibbs energy of formation for CaO (s), kJ/mol
+rhoG = 2.25e3 //Density of Graphite, kg/m3
+rhoD = 3.52e3 //Density of dimond, kg/m3
+T0 = 298.15 //Std. Temperature, K
+R = 8.314 //Ideal gas constant, J/(mol.K)
+P0 = 1.0 //Pressure, bar
+M = 12.01 //Molceular wt of Carbon
+//Calculations
+P = P0*1e5 + dGfCD*1e3/((1./rhoG-1./rhoD)*M*1e-3)
+
+//Results
+printf("\n Pressure at which graphite and dimond will be in equilibrium is %4.2e bar",P/1e5)
+
|