# Example 6.1
MKS(N, N m, deg)
f = 500 N
q = 45 deg
fbc = f / sin(q)
fba = fbc * cos(q)
fca = fbc * cos(q)
cy = fbc * sin(q)
ax = 500 N
ay = 500 N

# Example 6.2
MKS(kN, kN m, deg)
q1 = 30 deg
q2 = 45 deg
BEGIN
   fcb = 1 N
   fcd = 1 N
   fx = -fcd * cos(q1) + fcb * sin(q2)
   fy = 1.5 kN + fcd * sin(q1) - fcb * cos(q2)
END
solve(fx,fy,fcb,fcd)

# Example 6.3
MKS(kN, kN m, deg)
cx = 600 N
ay = (400 N * 3 m + 600 N * 4 m) / 6 m
cy = 600 N - 400 N
fab = 600 N * (5/4)
fad = 750 N * (3/5)
fdb = (450 N - 600 N) / (3/5)
fc = -(4/5) * (-250 N)
fcb = 600 N

# Example 6.5
MKS(N)
ax = 400 N
dy = (1200 N * 8 m + 400 N * 3 m) / 12 m
ay = 1200 N - dy
fbc = (300 N * 4 m + 400 N * 3 m) / 3 M
fgc = (5/3) * 300 N

# Example 6.6
MKS(kN)
q = 45 deg
fcf = (3 kN * 8 m - 4.75 kN * 4 m) / (12 m * sin(q))

# Example 6.7
MKS(kN)
q = 30 deg
fed = (-1000 N * 4 m - 3000 N * 2 m + 4000 N * 4 m) / (4 m * sin(q))
fef = fed
feb = 2 * (3000 N * sin(q)) - 1000 N

# Example 6.8
MKS(kN)
p = [0, -4, 0] kN
rae = [2, 2, -2] m
uae = rae / mag(rae)
BEGIN
   fab = 1 N
   fab_v = fab * [0, 1, 0]
   fac = 1 N
   fac_v = fac * [0, 0, -1]
   fae = 1 N
   fae_v = fae * uae
   sumf = p + fab_v + fac_v + fae_v
   e1 = sumf[1]
   e2 = sumf[2]
   e3 = sumf[3]
END
solve(e1, e2, e3, fab, fac, fae)
q = 45 deg
BEGIN
   rb = 1 N
   fbe = 1 N
   fbd = 1 N
   e1 = rb * cos(q) * fbe * 0.707
   e2 = -4 kN + rb * sin(q)
   e3 = 2 kN + fbd - 0.707 * fbe
END
solve(e1, e2, e3, rb, fbe, fbd)

# Example 6.14
MKS(kN)
q = 60 deg
fab = 2000 N * 2 m / (4 m * sin(q))
cx = fab * cos(q)
cy = -fab * sin(q) + 2000 N

# Example 6.15
MKS(kN, kN m)
BEGIN
ax = 1 N
bx = 1 N
cy = 1 N
ay = 1N
by = 1N
ma = 1 N m
e1 = bx
e2 = -8 kN * 1 m + cy * 2 m
e3 = by - 8 kN + cy
e4 = ax - 10 kN * (3/5) + bx
e5 = ma - 10 kN * (4/5) * 2 m - by * 4 m
e6 = ay - 10 kN * (4/5) - by
END
solve(e1, e2, e3, e4, e5, e6, ax, bx, cy, ay, by, ma)

# Example 6.16
MKS(kN, kN m)
ax = 700.7 N
ay = 981 N
fb = -ay * 2 m / (1.6 m * sin(45 deg))
cx = -fb * cos(45 deg)
cy = fb * sin(45 deg) + ay

# Example 6.17
FPS(lbf ft, deg)
cx = 20 lb * 3 ft / 3.5 ft
ax = cx
ay = 20 lb
bx = cx
nd = 20 lb * 6 ft / 3 ft
by = ay - nd
dx = 0
dy = nd - ay

# Example 6.18
MKS(N)
p = 600 N / 3
TT = 2 * p
R = 2 * p + TT

# Example 6.19
FPS()
BEGIN
ta = 1 lb
te = 1 lb
ns = 1 lb
e1 = ta + ns - 150 lb
e2 = te - ns - 15 lb
e3 = 2 * te - ta
END
solve(e1,e2,e3,ta,te,ns)

# Example 6.20
IPS(lb in)
fea = 8 lb * 4 in / 1 in
fed = fea / 2 / cos(60 deg)
fs = fed * cos(30 deg) * 3 in / 6 in

# Example 6.20
MKS(N)
bx = 490.5 N * cos(45 deg)
by = 490.5 N * sin(45 deg) + 490.5 N
fcb = (by + 490.5 N) / (4/5)
fab = (3/5) * fcb + bx

# Homework Problems:

TBD