C = (0, 4)
E = (7.7126363636363635, 2.4013818181818185)
C' = Mirror(C, xAxis)
P = Point(xAxis)
poly1, e, c, p_1 = Polygon(C, P, E)
perímetropoly1 = Perimeter(poly1)
Textopoly1: "Distância " + (Name[C]) + (Name[P]) + (Name[E]) + " = " + (e + c)
d = Segment(C', E)
b = Distance(xAxis, d)
A = Intersect(d, xAxis)