C = Point(yAxis)
B = Point(xAxis)
A = Point(yAxis)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(A, C)
M = Point(b)
d = OrthogonalLine(M, a)
e = OrthogonalLine(M, c)
Q = Intersect(e, c)
D = Intersect(a, xAxis)
E = Intersect(a, xAxis)
P = Intersect(d, a)
f = Segment(Q, M)
g = Segment(M, P)
R, q, m, p, c_1 = Polygon(Q, M, P, A)
T1: "Aire (APMQ) = " + R
Z: (x(M), R)
loc1 = Locus(Z, M)