1

2

Déplacer le point M à la souris.

Cliquer ici pour afficher l'aire de AMNP

Cliquer ici pour afficher la courbe

A = (-10, 0)
B = (-4, 0)
C = (-4, 2)
D = (-10, 8)
poly1, d, a, b, c = Polygon(D, A, B, C)
M = Point(a)
e = OrthogonalLine(M, a)
N = Intersect(e, c)
f = OrthogonalLine(N, e)
P = Intersect(f, d)
poly2, p, n, m, a_1 = Polygon(P, N, M, A)
I = (-1, 0)
J = (8, 0)
K = (0, -1)
L = (0, 10)
u = Vector(I, J)
v = Vector(K, L)
L_2 = Sequence((k, 0), k, 1, 6)
L_1 = Sequence((0, k), k, 1, 9)
O = (0, 0)
U = (1, 0)
texte2: "x = " + (Distance[A, M])
E = Midpoint(A, M)
g = Segment(A, M)
S_1: (g, 0)
S: (g, poly2 / 2)
S_2: (0, poly2 / 2)
h = Segment(S, S_1)
i = Segment(S, S_2)
texte3: "x = " + g
texte4: "Aire =" + poly2
V = (0, 1)
L_3 = Sequence(Segment[((-11) + k, -1), ((-11) + k, 9)], k, 0, 8)
L_4 = Sequence(Segment[((-11), k), ((-3), k)], k, -1, 9)
lieu1 = Locus(S, M)
texte7: "Aire de AMNP = " + poly2
j = false
k = false