Affichage du calcul de la tangente

Représentation graphique d'une fonction affine
de coefficients a et b

Dépalcer les curseurs ou entrer directement
les valeurs dans la barre de saisie (a=... ou b=...)
(on peut aussi animer (click droit - animer) les curseurs et observer).

Affichage des "escaliers"

Affichage de b

a = 1.5 (slider from -5 to 5, step 0.1)
b = 3 (slider from -5 to 5, step 0.1)
c: y = a * x + b
A = Intersect(c, yAxis)
d = Line(A, xAxis)
B = Point(c)
e = OrthogonalLine(B, d)
C = Intersect(e, d)
AC = Segment(A, C)
BC = Segment(B, C)
f = If(a > 0, c)
g = If(a < 0, c)
Pente = Slope(c)
α = If(a > 0, Angle[C, A, B], Angle[B, A, C])
h = false
i = If(a ≟ 0, c)
texte4: "Fonction  f : y = " + a + "x +" + b
k = false
liste1 = Sequence(Segment[(x(A) + n, y(A) + n * a), (x(A) + 1 + n, y(A) + n * a)], n, -10, 10)
liste2 = Sequence(Segment[(x(A) + 1 + n, y(A) + n * a), (x(A) + 1 + n, y(A) + (n + 1) * a)], n, -10, 10)
D = Intersect(xAxis, yAxis)
j = Segment(D, A)
l = false
texte2: "Déplacer le point B et observer le rapport :
BC  =  " + BC + " ;  AC  =  " + AC + "
Rapport  =  " + (BC / AC) + ""