O = Intersect(xAxis, yAxis)
a = -100 (slider from -150 to 0, step 0.1)
b = 36.8 (slider from -10 to 50, step 0.1)
f = 49.4 (slider from 0 to 500, step 0.1)
F: (-f, 0)
F': (f, 0)
A: (a, 0)
B: (a, b)
Objet = Vector(A, B)
a_1 = Line(B, O)
b_1 = Line(B, F)
C = Intersect(yAxis, b_1)
c = Line(C, xAxis)
B' = Intersect(a_1, c)
A': (x(B'), 0)
image = Vector(A', B')
d = Ray(C, B)
e = Ray(C, B')
D = Point(yAxis)
D' = Mirror(D, O)
Lentille = Vector(O, D)
v = Vector(O, D')
distanceOA = Distance(O, A)
TexteOA: Name[O] + (Name[A]) + " , = , " + distanceOA
texte3: "OA =" + distanceOA + ""
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " , = , " + distanceAB
distanceA'B' = Distance(A', B')
TexteA'B': Name[A'] + (Name[B']) + " , = , " + distanceA'B'
distanceOA' = Distance(O, A')
TexteOA': Name[O] + (Name[A']) + " , = , " + distanceOA'
texte5: "A'B'=" + distanceA'B' + ""
texte4: "AB=" + distanceAB + ""
texte6: "OA'=" + distanceOA' + ""