y = ln(x^2+2x+{\textcolor{#FF0000}{a})

Punto di minimo di ascissa x = -1

a = -5 (slider from -5 to 5, step 0.1)
f(x) = log(x^(2) + (2 * x) + a)
f'(x) = f'(x)
testo2: "y = " + (LaTeX[LaTeX[f, true, false]]) + ""
c: x = -1 - sqrt(1 - a)
e: x = -1 + sqrt(1 - a)
M = If(a > 1, (-1, f(-1)), (0, 0))
testo4: "\text{" + (LaTeX[If[a  <  1, "Asintoti verticali: ", If[a ≟ 1, "Asintoto verticale ", " "]]]) + " } " + (LaTeX[If[a  <  1, "x=-1\pm \sqrt{1-a}", If[a ≟ 1, "x = -1", " "]]]) + ""