$A$

$B$

$C$

$D$

l = 12 (slider from -5 to 20)
t = AxisStepX()
a: 0
c = 2.001531393568147 (slider from -5 to 5)
d = 9.001531393568147 (slider from -5 to 10)
beam, beam1, beam2, beam3, beam4 = Polygon((0, 0), (l, 0), (l, t / 2), (0, t / 2))
b = 12 (slider from -5 to 20)
A: (a, 0)
B: (b, 0)
f_A = Vector((a, (-t)), (a, 0))
f_B = Vector((b, (-t)), (b, 0))
C: (c, 0)
D: (d, 0)
w_c = 1.5 (slider from -5 to 5)
w_d = 0.5 (slider from -5 to 5)
wmax(x) = If[x(C) ≤ x ≤ x(D), ((x - x(C)) * (w_d - w_c) / (x(D) - x(C))) + w_c + t / 2]
arrows = Sequence(Vector[(i, wmax(i)), (i, t / 2)], i, c, d, (c - d) / floor(c - d) / 2)
j: (0, 1)
load, f, g, h, i = Polygon(D + (t / 2 * j), C + (t / 2 * j), (x(C), wmax(x(C))), (x(D), wmax(x(D))))
BL: (-1, -2)
TR: (l + 1, 3)