Chapitre 2 - Exercice 53

Déplacer le point M à la souris. 

Pour effacer la courbe, choisir dans le menu Affichage, Rafraîchir l'affichage

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])
E = (-0.5, -6)
F = (17, -6)
u = Vector(E, F)
G = (-0.019682553040750787, -7.2819700241397385)
H = (0, -1.28079)
v = Vector(G, H)
S: (dist, -(6.0) + Distance[O, M])
S_1: (dist, -(6.0))
S_2: (0.0, -(6.0) + Distance[O, M])
j = Segment(S_2, S)
k = Segment(S, S_1)
O' = (0, -6)
l = Segment(O', S_1)
m = Segment(O', S_2)
lieu1 = Locus(S, M)
texte5: dist + ""
texte6: i + ""
L_2 = Sequence((0.0, -(6.0) + k), k, 1.0, 2.0)
L_1 = Sequence((k, -(6.0)), k, 1.0, 16.0)