Comprobar

La resta no está bien. Grrr...revísala.

¡La resta está bien! Grrr... ¡Enhorabuena! 

b = Random(-5, 4)
c = Segment((-8, 0), (10, 0))
r = 1.74
C = Point(c)
lista1 = Sequence(Translate[rama, Vector[(0, 0), ((s * r), 0)]], s, -7, 8)
a = Random(-4, 5)
d = false
A = (-2.4799999999999955, 6.68)
C1: C
C2: C
C3: C
texto4: "\fgcolor{0000ff}{" + a + "}\,-\," + "\fgcolor{cc00cc}{" + (If[b  <  0, "(" + b + ")", b + ""]) + "}\,=\," + (If[x(C) > 0, "\fgcolor{00cb65}{", If[x(C) ≟ 0, "\fgcolor{aaaaaa}{", "\fgcolor{ff0000}{"]]) + (x(C)) + "}"