m = 2 (slider from -10 to 10, step 0.05)
b = 3 (slider from -10 to 10, step 0.05)
g(x) = (m * x) + b
P = Point(g)
Q = Point(g)
f = Line(P, yAxis)
h = Line(Q, xAxis)
H_1 = Intersect(f, h)
Vieleck1, Δx, Δy, h_1 = Polygon(Q, H_1, P)
Text1: "Differenzenquotient:

$m=\frac{{\Delta y}}{{\Delta x}} =\frac{{" + (LaTeX[Δy]) + "}}{{" + (LaTeX[Δx]) + "}} =" + (LaTeX[m]) + ""
Text2: "Δy =  " + (y(P) - y(Q)) + ""
x_{deltay}: x(P) - 0.8
y_{deltay}: (y(Q) + y(P)) / 2