9. Bisectores interior y exterior distinto vértice
El siguiente applet muestra cuándo coincidirán dos bisectores (interior y exterior) de distintos vértices.
Los bisectores interiores son:
C1 = Distancia[A, Interseca[Bisectriz[B, A, B1], Recta[B1, B]]]
E1 = Distancia[B, Interseca[Bisectriz[B1, B, A], Recta[B1, A]]]
G1 = Distancia[B1, Interseca[Bisectriz[A, B1, B], Recta[A, B]]]
y los exteriores:
D1 = Distancia[A, Interseca[Perpendicular[A, Bisectriz[B, A, B1]], Recta[B1, B]]]
F1 = Distancia[B, Interseca[Perpendicular[B, Bisectriz[B1, B, A]], Recta[B1, A]]]
H1 = Distancia[B1, Interseca[Perpendicular[B1, Bisectriz[A, B1, B]], Recta[A, B]]]
Así que, en este caso, el código de color dinámico es:
R = e^(-Mínimo[{abs(D1 - E1), abs(D1 - G1)}])
G = e^(-Mínimo[{abs(F1 - C1), abs(F1 - G1)}])
B = e^(-Mínimo[{abs(H1 - C1), abs(H1 - E1)}])