m = 1.2 (slider from -5 to 5, step 0.1)
d: 2 / 3
w = 2 (slider from -5 to 5, step 0.1)
t = 1.5 (slider from -5 to 5, step 0.1)
p(x) = ((t * x) * (x - w))
f(x) = Integral[p, x] + (t * d) + m
g = Integral(f, x)
W_1, W_2 = TurningPoint(g)
C, D = Root(p)
h = Line(W_2, D)
w_1 = Tangent(C, g)
w_2 = Tangent(W_2, g)
O, E, A_1, B = Intersect(g, w_1)
F, G, A = Intersect(g, w_2)
H = Intersect(g, w_2, 2)
k = OrthogonalLine(F, xAxis)
l = OrthogonalLine(E, xAxis)
i = OrthogonalLine(W_2, xAxis)
W_0: (w, 0)
j = Line(F, E)
n = Line(W_1, W_2)
q: x = 0
r = Line(F, W_1)
a = IntegralBetween(((-(x(w_2) / y(w_2))) * x) - z(w_2) / y(w_2), g, (-w), w)
b = IntegralBetween(((-(x(r) / y(r))) * x) - z(r) / y(r), g, (-w), 0)