# Example 8.1
MKS(mm, N, N m, deg)
BEGIN
 f = 1 N
 x = 1 m
 nc = 1 N
  fx = 80 N * cos(30 deg) - f
  fy = -80 N * sin(30 deg) + nc - 196.2 N
  m0 = 80 N * sin(30 deg) * 0.4 m - 80 N * cos(30 deg) * 0.2 m + nc * x
END
solve(fx,fy,m0,f,x,nc)

# Example 8.3
MKS(mm, N, N m, deg)
BEGIN
   na = 1 N
   w = 1 N
   mu = 0.2
   nb = 0.4330 * w
   m0 = nb - 0.4330 * w
   fx = mu * na - (0.2165 * w - 0.3750 * w * mu)
   fy = na - 0.6250 * w - 0.2165 * w * mu
END
solve(m0,fx,fy,na,w, mu)

# Example 8.5
MKS(mm, N, N m, deg)
mub = 0.2
fb = mub * 400 N
BEGIN
  p = 1 N
  fc = 1 N
  nc = 1 N
  fx = p - fb - fc
  fy = nc - 400 N
  mc = -p * 0.25 m + fb * 1 m
END
solve(fx,fy,mc,p,fc,nc)
mub = 0.5
BEGIN
  p = 1 N
  fb = 1 N
  nc = 1 N
  fc = mub * nc
  fx = p - fb - fc
  fy = nc - 400 N
  mc = -p * 0.25 m + fb * 1 m
END
solve(fx,fy,mc,p,fb,nc)

# Example 8.6
MKS(mm, N, N m, deg)
q = 20 deg
w = 981 N
BEGIN
 mu = 0.15
 p = 1 N
 fa = 1 N
 na = 1 N
 fb = 0.4 * p
 fx = -fa + p - w * sin(q)
 fy = na - fb - w * cos(q)
 m0 = fb * 400 mm - fa * 400 mm
END
solve(fx,fy,m0,p,fa,na)
BEGIN
 mu = 0.15
 p = 1 N
 fb = 1 N
 na = 1 N
 fa = mu * na
 fx = -fa + p - w * sin(q)
 fy = na - fb - w * cos(q)
 m0 = fb * 400 mm - fa * 400 mm
END
solve(fx,fy,m0,p,fb,na)

# Example 8.7
MKS( N, N m, deg)
q = 7 deg
mu = 0.3
nb = (4905 N * 0.5 m) / (cos(q) * 1 m + mu * sin(q) * 1m)
BEGIN
   nc = 1 N
   p = 1 N
   fx = nb * sin(q) - mu * nb * cos(q) + p - 0.3 * nc
   fy = nc - nb * cos(q) - mu * nb * sin(q)
END
solve(fx,fy,nc,p)

# Example 8.8
MKS( N, N m, deg)
w = 2000 N
r = 5 mm
q = 14.04 deg
phi = 3.64 deg
M = 2 * (w * r * tan(q  + phi))

# Example 8.9
MKS( N, N m, deg)
t2 = 500 N
mu = 0.25
beta = 0.75 * pi()
t1 = t2 / exp(mu * beta)
t2 = 277.4 N
t1 = t2 / exp(mu * beta)
mass = t1 / grav()

# Example 8.11
MKS( N, N m, deg)
w = 100 kg * grav()
t1 = w * 52 mm / 48 mm
t2 = w * (50 mm + 1.86 mm) / (50 - 1.86) mm
t3 = w * 48 mm / 52 mm

# Example 8.12
MKS(mm, N, N m, deg)
q = 1.2 deg
w = 10 kg * grav()
a = w * sin(q) * 100 mm / (cos(q) * w)

# Homework Problems:

TBD