Roméo et Juliette : Roméo doit aller cueillir une rose pour la porter à Juliette
Author: François Gonet
Date: Mai 2007

Faire varier le point M

A = (-10, 6)
B = (-10, 16)
Roméo = (-5, 16)
a = Segment(B, Roméo)
b = Segment(B, A)
Juliette = (-7, 6)
c = Segment(A, Juliette)
M = Point(b)
d = Segment(Roméo, M)
e = Segment(M, Juliette)
f = Segment(B, M)
L: d + e
M': (f, L)
T1: "Longueur du trajet : " + L
Curve(x) = NaN
distanceAM = Distance(A, M)
TexteAM: Name[A] + (Name[M]) + " = " + distanceAM
texte2: "Distance AM = " + distanceAM + ""