# Example 11.1
MKS(deg)
BEGIN
 q = 45 deg
 eq = 98.1 * 0.5 * cos(q) +98.1 * 0.5 * cos(q) - 25 * 2 * sin(q)
END
solve(eq,q)

# Example 11.2
MKS(deg)
BEGIN
 q = 45 deg
 eq = 0.5 + 0.8 * cos(q) - 0.2 * 12 * sin(q) * cos(q)
END
solve(eq,q)

# Example 11.3
MKS(N, deg)
BEGIN
 q = 45 deg
 xc = 1 m
 eq1 = xc^2 - 1.2  m * cos(q) * xc - 0.13 m^2
 cx = -120 N * cos(q) * (1.2 m * cos(q) - 2 * xc) / (1.2 * xc * sin(q))
END
solve(eq1,xc)

# Example 11.5
MKS(N, deg)
w = 10 kg * grav()
k = 200 N / m
x = 0.6 m
q = acos(1 - w / (2 * k * x))
BEGIN
 d2vdq2 = k * x^2 * (cos(q) - cos(2 * q)) - w * x * cos(q) / 2
END
func(q,0 deg)
func(q, 53.7 deg)

# Example 11.6
MKS(N, deg)
BEGIN
  m0 = 1 kg
  q = 20 deg
  dvdq = 73.6 N * cos(q) - m0 * grav() / 2 * (3.60 * cos(q) / sqrt(3.69 - 3.60 * sin(q)))
END
solve(dvdq,m0)
d2vdq2 = 73.6 N * sin(q) - m0 * grav() / 2 * (-0.5) * (3.60 * cos(q))^2 / (3.69 - 3.60 * sin(q))^1.5 \
  - m0 * grav() / 2 * (-3.6) * sin(q) / (3.69 - 3.60 * sin(q))^0.5

# Homework Problems:

TBD