Steigung

y-Achsenabschnitt

d = 0 (slider from -5 to 5, step 0.1)
m = 1 (slider from -5 to 5, step 0.1)
f(x) = m x + d
D = Intersect(f, yAxis)
a = OrthogonalLine(D, g)
D1 = Intersect(a, g)
Dm = Intersect(f, g)
poly1, dm, d_1, d1 = Polygon(D, D1, Dm)
b = Segment(D, D1)
c = Segment(D1, Dm)
h: y = m x
T3: "Geraden im Koordinatensystem:

y = m x + d 

y = " + m + " x + " + d
dy = Segment((0, 0), (0, d))