# Example 13-1
r = 18 cm
rho = 7800 kg/m^3
vol = pi() * (4/3) * r^3
m1 = rho * vol

# Example 13-2
m1 = 60 kg
a = 500 cm^2
p = m1 * grav() / a; Pa

# Example 13-3
rho = 1000 kg/m^3
h = 30 m
p = rho*h * grav() ; Pa

# Example 13-4
rho = 1000 kg/m^3
h = 3 m
y2 = 2 m
y1 = 1 m
f = 0.5 * rho * grav() * h * (y2^2 - y1^2)

# Example 13-5
rho = 1.29 kg/m^3
p0 = 1.013e5 Pa
c = rho * grav() / p0
y = log(2) / c

# Example 13-9
rho = 1.025e3 kg/m^3
vol = 3e-2 m^3
fb = rho * vol * grav()

# Example 13-10
m1 = 14.7 kg
m2 = 13.4 kg
r = m1 / (m1 - m2)

# Example 13-11
m1 = 45 g
a = 2 cm^2
h = 25 cm
rho = m1 / (a * h); g/cm^3

# Example 13-12
m1 = 180 kg
rho_air = 1.29 kg/m^3
rho_he = 0.179 kg/m^3
vol = m1 / (rho_air - rho_he)

# Example 13-13
v1 = 0.40 m/s
v2 = 0.5 mm/s
ra = 1.2 cm
rc = 4e-6 m
n = (v1 / v2) * (ra / rc)^2

# Example 13-14
vol = 300 m^3
v1 = 3 m/s
t1 = 900 s
a1 = vol/ v1 / t1

# Example 13-15
r1 = 2 cm
r2 = 1.3 cm
a1 = pi() * r1^2
a2 = pi() * r2^2
v1 = 0.5 m/s
v2 = v1 * a1 / a2
p1 = 3e5 Pa
del_y = -5 m
rho = 1000 kg/m^3
p2 = p1 + rho * grav() * del_y + \
      0.5 * rho * (v1^2 - v2^2); atm

# Example 13-16
r = 2e-5 m
m1 = 3e-6 kg
gam = 0.072 N/m
x = m1 * grav() / 6 / (2 * pi() * gam * r)
q = acos(x); deg

# Homework Problems:

TBD