Cliquer pour afficher la courbe représentative

Déplacer le point M

A = (-8, 2)
B: A + (4, 0)
C: A + (0, 4)
c = CircleArc(A, B, C)
a = Segment(A, B)
b = Segment(A, C)
M = Point(a)
d = OrthogonalLine(M, a)
P = Intersect(c, d, 1)
e = OrthogonalLine(P, d)
N = Intersect(e, b)
poly1, p, n, m, a_1 = Polygon(N, P, M, A)
D = Midpoint(A, M)
texte1: "AM = " + m + ""
Q: (m, poly1)
lieu1 = Locus(Q, M)
f = false
texte2: "Aire(AMNP)  ≈  " + (LaTeX[poly1]) + ""