Move A

$x^3 + mx^2 + nx + p=0$


-2, -1, 2
0, 0, -2

The slope is a real root of the equation.

tempValue = 5
m = 0 (slider from -10 to 10, step 0.1)
n = 0 (slider from -10 to 10, step 0.1)
p = -2 (slider from -10 to 10, step 0.1)
A_1 = (0, -1)
c = Parabola(A_1, d_1)
A_2: (m - p, -n)
d_2: x - p - m = 0
d = Parabola(A_2, d_2)
tempLine: y = tempValue
A = Point(tempLine)
a, b = Tangent(A, c)
e, f = Tangent(A, d)
slopeParabol1Tang1 = Slope(a)
slopeParabol1Tang2 = Slope(b)
slopeParabol2Tang1 = Slope(e)
slopeParabol2Tang2 = Slope(f)
threshold = 0.01