α_s

α_s

t: 1
m = -0.5
n = 1
p(x) = ((t * (x + 3)) * x^(2))
g(x) = p(x) + (m * x) + n
s(x) = (m * x) + n
W = TurningPoint(g)
f = Line(W, yAxis)
A = Intersect(s, xAxis)
a_s: x = 2
B = Intersect(g, f, 1)
D = Intersect(s, f)
E, F = Intersect(g, s)
i = OrthogonalLine(E, a_s)
C = Intersect(i, a_s)
j = OrthogonalLine(E, xAxis)
G = Intersect(j, xAxis)
d1, e, g_1, c = Polygon(G, C, E)
an = -1.4 (slider from -3.1 to 1.6, step 0.05)
H: (an, g(an))
l = OrthogonalLine(H, a_s)
I = Intersect(a_s, l)
q = Line(I, e)
r = Line(H, a_s)
J = Intersect(r, q)
d2, i_1, h_1, j_1 = Polygon(H, J, I)
α = Angle(E, C, G)
β = Angle(H, I, J)