Chapitre 2 - Exercice 53

Déplacer le point M à la souris. 

Cliquer ici pour faire afficher la distance x parcourue par M depuis A

Cliquer ici pour afficher la distance OM

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
poly1, a, b, c, d, C, D = Polygon(A, B, 4.0)
O = Midpoint(D, B)
M = Point(poly1)
e = Segment(A, M)
f = Segment(B, M)
g = Segment(C, M)
h = Segment(D, M)
poly2, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
i = Segment(O, M)
dist = If(y(M) ≟ 0.0, Distance[A, M], If[x(M) ≟ 4.0, 4.0 + Distance[B, M], If[y(M) ≟ 4.0, 8.0 + Distance[C, M], 12.0 + Distance[D, M]]])
texte1: "x = " + dist
texte2: "OM = " + (Distance[O, M])
j = false
k = false