directriz de P_{ac}

directriz de P_{ab}

(6,9,13)-busqueda de P:
-3.347657323661916 

\mathcal P_{ab}

\mathcal P_{ac}

A = (22.018474242631193, 1.7957487536766386)
B = (15.466669377227063, -0.6724534253244119)
C = (23.591924704196014, -0.9197438048408613)
polígono1, c, a, b = Polygon(A, B, C)
B' = Mirror(B, b)
C' = Mirror(C, c)
d = Line(B, C')
e = Line(C, B')
P_{ac} = Parabola(C, d)
P_{ab} = Parabola(B, e)
i = Polar(B', P_{ac})
D_{ab} = Intersect(d, i)
j = Polar(C', P_{ab})
D_{ac} = Intersect(e, j)
A' = Mirror(A, a)
h = Line(D_{ab}, D_{ac})
k, D_{bc}, D_{ba} = Herramienta1(B, C, A)
l, D_{ca}, D_{cb} = Herramienta1(C, A, B)
A'_2 = Intersect(k, l)
B'_2 = Intersect(h, l)
C'_2 = Intersect(h, k)
m = Line(A'_2, A)
n = Line(B'_2, B)
p = Line(C, C'_2)
P = Intersect(n, p)
f = Line(C, A')
g = Line(C', D_{ba})
q = Line(B', A)
r = Line(B, A')
polígono2, c', a', b' = Polygon(A', B', C')
polígono3, c'_2, a'_2, b'_2 = Polygon(A'_2, B'_2, C'_2)

Tool: Herramienta1
Input: A, B, C
Output: h, D, E

polígono1, c, a, b = Polygon(A, B, C)
B' = Mirror(B, b)
C' = Mirror(C, c)
d = Line(B, C')
e = Line(C, B')
f = Parabola(C, d)
g = Parabola(B, e)
i = Polar(B', f)
D = Intersect(d, i)
j = Polar(C', g)
E = Intersect(e, j)
h = Line(D, E)

Tool: Triangulo Reflexion (command TrianguloReflexion)
Dar ABC
Input: A, B, C
Output: polígono2, A', B', C'

polígono1, c, a, b = Polygon(A, B, C)
B' = Mirror(B, b)
C' = Mirror(C, c)
A' = Mirror(A, a)
polígono2, c', a', b' = Polygon(A', B', C')