# Example 7-1
MKS(N, J)
fp = PolarVec(100 N, 37 deg)
fpx = component(fp,1)
fpy = component(fp,2)
m1 = 50 kg
fg = [0, m1 * grav()]
d = 40 m
wp = fpx * d

# Example 7-2
MKS(N,J)
m1 = 15 kg
h = 10 m
fy = m1 * grav()
work = fy * h

# Example 7-4
MKS(N,J)
fp = PolarVec(20 N, 30 deg)
d = [100 m, 0]
dot(fp,d)

# Example 7-5
MKS(N,J)
fmax = 75 N
xmax = 3 cm
k = fmax / xmax
wk = (1/2) * k * xmax^2

# Example 7-6
MKS(N,J)
f0 = 2 N
x0 = 7 mm
x1 = 10 mm
x2 = 50 mm
wm = f0 * ((x2 - x1) + (x2^3 - x1^3) / 18 / x0^2)

# Example 7-7
MKS(N,J)
m1 = 145 g
v = 25 m/s
k = 0.5 * m1 * v^2

# Example 7-8
MKS(N,J)
m1 = 1000 kg
v1 = 20 m/s
v2 = 30 m/s
k1 = 0.5 * m1 * v1^2
k2 = 0.5 * m1 * v2^2
u = k2 - k1

# Example 7-10
MKS(N,J)
k = 360 N / m
x = 11 cm
ww = 0.5 * k * x^2
m1 = 1.85 kg
v = sqrt(2 * ww / m1)
fd = 7 N
wd = fd * x
wnet = ww - wd
v = sqrt(2 * wnet / m1)

# Homework Problems:

TBD