# Example 14.1
FPS(deg)
w = 100 lb
t = 1 s
q = 20 deg
m0 = w / grav()
ax = w * sin(q) / m0
v = ax * t
h = 0.5 * ax * t^2


# Example 14.2
MKS(N, deg)
ma = 40 kg
mb = 30 kg
mus = 0.2
muk = 0.4
q = 20 deg
f = mb * grav() + ma * grav() * sin(q)
n = ma * grav() * cos(q)
fmax = mus * n
BEGIN
  t = 1 N
  n = 1 N
  ax = 1 m/s^2
  fx = t + ma * grav() * sin(q) - muk * n - ma * ax
  fy = n - ma* grav() * cos(q)
  fxx = mb * grav() - t - mb * ax
END
solve(fx,fy,fxx,t,n,ax)


# Example 14.3
vx = 50 m/s
cx = 10000 N / (1 m/s)
m0 = 6500 kg
tx = cx * vx
x = vx * m0 / cx


# Example 14.4
r = 100 m
om = sqrt(grav() / (2 * r))



# Example 14.5
MKS(kN, deg)
m0 = 20000 kg
v = 30 m/s
r = 150 m
q = 40 deg
BEGIN
  mmm = 1 kN
  ss = 1 kN
  e1 = mmm * cos(q) + ss * sin(q) - m0 * grav()
  e2 = mmm * sin(q) - ss * cos(q) - m0 * v^2 / r
END
solve(e1,e2,mmm,ss)



# Example 14.6
r = 60 m
mu = 0.4
v = sqrt(mu * grav() * r)


# Example 14.7
MKS(km)
rmin = 6600 km
rmax = 16000 km
re = 6370 km
e = (rmax/rmin - 1) / (rmax / rmin + 1)
v0 = sqrt((1 + e) * grav() * re^2 / rmin)
va = v0 / (rmax / rmin)


# Homework Problems:

TBD