summaryrefslogtreecommitdiff
path: root/3819/CH2/EX2.18/Ex2_18.sce
blob: b9a2ab5337e49db385c5cbbd1d34e7d5c17aeee1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
// Chapter 2 - Pressure and its measurements
// Problem 2.18

//Given Data Set in the Problem
dens=1000
g=9.81
A=2
dens1=1000
h1=30/100
h2=10/100
SG2=0.8
dens2=SG2*dens1
h3=12/100

//calculations
pA=dens*g*A
//pressure below X-X in left limb is pA-(dens1*g*h1)
p_left=pA-dens1*g*h1
//pressure below X-X in right  limb is pA-(dens1*g*h1)
                //p_right=pB-dens1*g*h2-dens2*g*h3
                //and ...P_left=P_right
pB=p_left+dens1*g*h2+dens2*g*h3
mprintf("The pressure in pipe B is %f N/cm^2\n",pB*10^-4)