2159/CH1/EX1.13/13.sce


1
2
3
4
5
6
7
8
9
10

//problem 1.13
p=490500
w=9810
h=p/w
D=0.15
A=3.142*D*D*0.25
pt=w*A*h
h1=(D*D)/(16*h)
disp(pt,"total hydrostatic pressure in N")
disp(h1,"position of centre of pressure below the centre of pipe")