1 files changed, 21 insertions, 0 deletions
diff --git a/555/CH1/EX1.2/2.sce b/555/CH1/EX1.2/2.sce
new file mode 100644
index 000000000..4115e6b23
--- /dev/null
+++ b/555/CH1/EX1.2/2.sce
@@ -0,0 +1,21 @@
+// Implementation of example 1.2
+// Basic and Applied Thermodynamics by P.K.Nag
+// page 21
+
+clc
+clear
+
+gp=1.4d6 // (gauge pressure in Pa)
+z=710 // (vacuum in mm Hg)
+z0=772 // (barometric pressure in mm Hg)
+d=13.6d3 // (density of mercury)
+
+p0=(d*g*z0)/1000; // division by 1000 is done to convert mm to m
+sp=(gp+p0);
+sp=sp/1d6;
+printf("Inlet steam pressure = %.2f Mpa",sp);
+printf("\n");
+cp=(z0-z)*(g*d)/1000; // division by 1000 is done to convert mm to m
+cp=cp/1000; // division by 1000 is done to convert Pa to kPa
+printf("Condenser pressure = %.2f kPa",cp);
+// end
+\ No newline at end of file