blob: 91454509173d5d1ae788f75171cd41debe50d24c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
// Chapter 4-Buoyancy and Floatation
// Problem 4.5
//Given Data Set in the Problem
dens=1000
g=9.81
SG=13.6
v_m=0.4
v_w=0.6
V=poly(0,"V")
//calculations
//For equilibrium of the body ,toatl buoyancy=weight of the body
//buoyancy due to water
F_w=dens*g*0.6*V
//buoyancy due to mercury
F_m=SG*dens*g*0.4*V
//Total force
F_tot=F_m+F_w
dens_body=(F_tot/(V*g))
mprintf("The density of the body is %f kg/m^3\n",horner(dens_body,1))
|
