Paramètres de la fonction affine

Calcul de la pente

m = \frac{Y_2 - Y_1}{X_2 - X_1} 

numérateur = -2 (slider from -10 to 10, step 1)
b = 1.9 (slider from -5 to 5, step 0.1)
dénominateur = 4 (slider from 0 to 10, step 1)
c: y = (numérateur / dénominateur * x) + b
A = Intersect(c, yAxis)
a = Line(A, xAxis)
B = Point(Circle[A, dénominateur])
d = Segment(A, B)
e = OrthogonalLine(B, d)
C = Intersect(c, e)
poly1, c_1, a_1, b_1 = Polygon(A, B, C)
c_2: y = (numérateur / dénominateur * x) + b
c_3: y = (numérateur / dénominateur * x) + b
c_4: y = (numérateur / dénominateur * x) + b
texte3: "m = \frac{" + (LaTeX[y(C)]) + "-" + (LaTeX[y(A)]) + "}{" + (LaTeX[x(C)]) + "-" + (LaTeX[x(A)]) + "}"
f: y(C) - y(A)
g: x(C) - x(A)
h: f / g
i = Mod(numérateur, dénominateur)
texte6: "y = " + h + "x + " + b + ""
texte7 = FractionText(h)
texte8: "m=" + (LaTeX[texte7]) + ""
texte1: "m = \frac{" + (LaTeX[f]) + "}" + (LaTeX[g]) + ""
texte9: "y=" + b + ""
j = GCD(f, g)
D = Point(Circle[A, g / j])
k = Segment(A, D)
l = OrthogonalLine(D, xAxis)
E = Intersect(c, l)
poly2, e_1, a_2, d_1 = Polygon(A, D, E)
texte2: "f(x) = " + (LaTeX[texte7]) + "x +  " + (LaTeX[b]) + ""

Tool: Outil1
Input: E, F, H
Output: γ

a = Segment(E, F)
G = Point(a)
α = Angle(E, G, H)
β = Angle(H, G, F)
γ: α + β