Marquer la position actuelle du point M

Effacer les traces du point M

B = (17.992839424141778, 4.754413289036554)
A = (5.2812735326688935, 4.858181173864904)
f = Segment(A, B)
l = OrthogonalLine(B, f)
C = Point(l)
E = Midpoint(A, C)
D = Mirror(B, E)
q1, a_1, d, c, b = Polygon(A, D, C, B)
cpt = 0
M = PointIn(q1)
i = LineBisector(A, B)
D_{1} = Midpoint(A, B)
j = Segment(A, D_{1})
k = Segment(D_{1}, B)
α = Angle(i, k)
a = 0 (slider from 0 to 3, step 1)
g = OrthogonalLine(M, b)
h = OrthogonalLine(M, c)
I, K = Intersect(g, q1)
J, L = Intersect(h, q1)
q2, m, n, p, q = Polygon(K, M, L, D)
q3, r, s, t, e = Polygon(M, I, B, J)
texte3_1: "Aire \; de \; LMKD = " + (LaTeX[q2]) + "\; cm²"
texte1: "Aire \; de \; MIBJ \; = " + (LaTeX[q3]) + "\; cm²"