1 files changed, 27 insertions, 0 deletions
diff --git a/3819/CH2/EX2.12/Ex2_12.sce b/3819/CH2/EX2.12/Ex2_12.sce
new file mode 100644
index 000000000..c3e09bab6
--- /dev/null
+++ b/3819/CH2/EX2.12/Ex2_12.sce
@@ -0,0 +1,27 @@
+// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
+// Chapter 2 - Pressure and its measurements
+// Problem 2.12
+
+//Given Data Set in the Problem
+h2=20/100
+SG2=13.6
+SG1=1
+dens1=1000
+dens2=13.6*dens1
+g=9.81
+
+//Calculations
+//equating pressure above the datum line;
+function [f]=F(h1)
+    f=(dens2*g*h2)-(dens1*g*h1)
+endfunction
+h1=10;
+H1=fsolve(h1,F)
+//When vessel is completely filled with wter;
+//Equating pressure in the two limbs
+function [g]=G(y)
+    g=(dens2*g*(0.2+2*y/100))-(dens1*g*(3+H1+y/100))
+endfunction
+y=10;
+Y=fsolve(y,G)
+mprintf("The difference in the mercury level in the two limbs is %f cm\n",(20+2*Y))