Déplacer le point P

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
a = Segment(A, B)
C = (8, 3)
b = Segment(B, C)
D = Point(yAxis)
c = Segment(C, D)
d = Segment(D, A)
E = Point(d)
e = Segment(C, E)
f = Segment(D, E)
P = Point(d)
g = Line(P, e)
N = Intersect(g, c)
h = Line(N, d)
M = Intersect(h, a)
poly1, a_1, m, n, p = Polygon(A, M, N, P)
α = Angle(B, A, E)
β = Angle(A, E, C)
γ = Angle(E, C, B)
δ = Angle(C, B, A)
ε = Angle(P, N, M)
η = Angle(A, P, N)
ζ = Angle(N, M, A)
Textepoly1: "Aire " + (Name[A]) + (Name[M]) + (Name[N]) + (Name[P]) + " = " + poly1
distanceAP = Distance(A, P)
TexteAP: Name[A] + (Name[P]) + " \, = \, " + distanceAP