1 files changed, 13 insertions, 0 deletions
diff --git a/779/CH1/EX1.2/1_2.sce b/779/CH1/EX1.2/1_2.sce
new file mode 100755
index 000000000..528a58c41
--- /dev/null
+++ b/779/CH1/EX1.2/1_2.sce
@@ -0,0 +1,13 @@
+d_r = 13.6e03; // Density of mercury in kg/m3
+g = 9.81; // Acceleration due to gravity in m/s2
+z = 710e-03; // Stean flow pressure in m
+z0 = 772e-03; // Reading of barometer in m
+P = 1.4e06; // Gauge pressure of applied steam in Pa
+P0 = d_r*g*z0; // Atmospheric pressure in Pa
+Pi = P+P0 ; // Inlet steam pressure in Pa
+Pc = d_r*g*(z0-z); // Condenser pressure in Pa
+disp("Pa",Pi,"Inlet steam pressure is")
+disp("Pa",Pc,"Condenser pressure is")
+
+
+