s = 0.1 (slider from 0 to 1, step 0.1)
h = -3 (slider from -3 to 3, step 1)
a: Random[2, 5] + 0 * s
b: Random[1, a - 1] + 0 * s
k = -2 (slider from -3 to 3, step 1)
A1: b^(2)
B1: a^(2)
C1: -2 * h * b^(2)
D1: -2 * k * a^(2)
E1: b^(2) * h^(2) + a^(2) * k^(2) - a^(2) * b^(2)
text1: "$ a=" + (LaTeX[a]) + ",b=" + (LaTeX[b]) + " $"
text3: "$ " + (LaTeX[If[A1 ≟ 1, "", If[A1 ≠ 1, A1]]]) + " x²" + (LaTeX[If[B1 ≟ -1, "+", If[B1 < 0, "-" * abs(B1), If[B1 ≟ 1, "-", If[B1 > 0, "-" * B1]]]]]) + "y²" + (LaTeX[If[C1 ≟ -1, "+", If[C1 < 0, "-" * abs(C1), If[C1 ≟ 1, "-", If[C1 > 0, "-" * C1]]]]]) + "x" + (LaTeX[If[D1 ≟ -1, "+", If[D1 < 0, "-" * abs(D1), If[D1 ≟ 1, "-", If[D1 > 0, "-" * D1]]]]]) + "y" + (LaTeX[If[E1 ≟ 0, "", If[E1 > 0, "+" * E1, "-" * abs(E1)]]]) + "=0$"