1

2

Unités

Graduations

Faire glisser

Point M

A

M

subdivision_1 = 10 (slider from 0 to 100, step 1)
nbunités = 6 (slider from 0 to 20, step 1)
hauteur_1 = 0.108 (slider from 0 to 0.5, step 0.0010)
tiret_1 = Sequence(Segment[(i, -1 * hauteur_1 / 2), (i, hauteur_1 / 2)], i, 0, nbunités, 1 / subdivision_1)
hauteurU = 0.24 (slider from 0 to 0.5, step 0.02)
subdivision_2 = 100 (slider from 0 to 100, step 1)
hauteur_2 = 0.055 (slider from 0 to 0.5, step 0.0010)
a = true
b = true
tiret_0 = Sequence(Segment[(i, -1 * hauteurU / 2), (i, hauteurU / 2)], i, 0, nbunités)
B = (3.126043324387851, 0.9949158813881191)
Unites = 1 (slider from 0 to 20, step 1)
LégendeNbUnités: "nombre d'unités : " + nbunités
texte1: "Subdivision n° 1 :      " + subdivision_1
texte2: "Subdivision n° 2 :      " + subdivision_2
ListeUnites_0 = Sequence(Text[i, (i, -1 * hauteurU)], i, 0, nbunités)
c = true
t = 1 (slider from 0 to 1, step 0.01)
M = Point(xAxis)
d = true
e = Segment((0, 0), (x(M) * t, 0))
arret = If(t ≟ 1, 0, 1)
AM = Midpoint(e)
tiret_2 = Sequence(Segment[(i, -1 * hauteur_2 / 2), (i, hauteur_2 / 2)], i, 0, nbunités, 1 / subdivision_2)
A = (0, 0)
x_t: abs(x(M)) * t
texte4: If[x(M) < 0, "-", ""] + (floor(x_t)) + "," + (floor(10 * x_t - 10 * floor(x_t))) + (floor(100 * x_t - 10 * floor(10 * x_t)))
M_t: (x(M) * t, 0)
texte3: "L'abscisse du point M est : " + (If[x(M) < 0, "-", ""]) + "" + (floor(x_t)) + "," + (floor(10 * x_t - 10 * floor(x_t))) + "" + (floor(100 * x_t - 10 * floor(10 * x_t))) + ""