m

b

x

x

m = 0.5 (slider from -3 to 3, step 0.5)
b = 1.5 (slider from -3 to 3, step 0.5)
f(x) = (m * x) + b
Gx: x = -1
Gy: x = 1
P0: (-1.7, 0)
Q0: (1, 0)
P1: (-1.7, -1)
Q1: (1, -1)
iMin: -2
iMax: 4
dTabZeilen = 0.4 (slider from 0 to 1, step 0.1)
schrittweite = 1 (slider from 0 to 4, step 0.1)
dTabSpalten = 1.2 (slider from 1 to 4, step 0.1)
korrekturSpaltenx: -0.2
h(x) = floor(x / 1)
k(x) = If[x ≥ 0, If[h(x) ≟ x, -0.1, -0.2], If[h(x) ≟ x, -0.2, -0.4]]
xPunkteZeiger = Sequence((((i - iMin) * dTabSpalten) + (1.5 * dTabZeilen), dTabZeilen + 0.7), i, iMin, iMax, 1)
xPunkte = Sequence((((i - iMin) * dTabSpalten) + k(i), dTabZeilen), i, iMin, iMax, 1)
Zeiger = Point(xPunkteZeiger)
iC: IndexOf[Zeiger, xPunkte] - 11
Gw: x = -1.7
xWerte = Sequence((i * schrittweite), i, iMin, iMax, 1)
yWerte = Zip(f(i), i, xWerte)
K: (0.5, 0.2)
korrekturSpalteny: -0.3
yPunkte = Sequence((((i - iMin) * dTabSpalten) + k(f(i)), (-dTabZeilen)), i, iMin, iMax, 1)
zuwachs: (m * schrittweite)
C: Zeiger + (0.2, 0)
D: C + ((0.8 * dTabSpalten), 0)
w = Vector(C, D)
anzahlschritte = 1 (slider from -5 to 5, step 1)
gesamteschrittweite: (anzahlschritte * schrittweite)
TextSchrittweite = If(gesamteschrittweite > 0, "+" + (LaTeX[gesamteschrittweite]), "" + (LaTeX[gesamteschrittweite]))
gesamterzuwachs: (anzahlschritte * zuwachs)
TextZuwachs = If(gesamterzuwachs > 0, "+" + (LaTeX[gesamterzuwachs]), "" + (LaTeX[gesamterzuwachs]))
C1: C + (0, (-5.4 * dTabZeilen))
D1: D + (0, (-5.4 * dTabZeilen))
u = Vector(C1, D1)
StricheSenkrecht = Sequence(Segment[(((i - iMin) * dTabSpalten), (-2 * dTabZeilen)), (((i - iMin) * dTabSpalten), (2 * dTabZeilen))], i, iMin, iMax)
StrichLinks = Segment(((-dTabSpalten), (2 * dTabZeilen)), ((-dTabSpalten), (-2 * dTabZeilen)))
xWerteText = Append(Text["x", (-0.8, 0.6), true, true], Zip[Text[za, P + K, true, true], za, xWerte, P, xPunkte])
yAchsenabschnitt = Segment((0, 0), (0, b))
xZeiger: IndexOf[Zeiger, xPunkteZeiger] + iMin - 1
X: (xZeiger, 0)
x0: x(X)
P: (x0, f(x0))
x1: x0 + 1
Q: (x1, f(x1))
R: (x1, f(x0))
v = Vector(P, R)
a = Vector(R, Q)
TextSchrittweiteGraph = If(gesamteschrittweite > 0, "+" + (LaTeX[gesamteschrittweite]), "" + (LaTeX[gesamteschrittweite]))
TextZuwachsGraph = If(gesamterzuwachs > 0, "+" + (LaTeX[gesamterzuwachs]), "" + (LaTeX[gesamterzuwachs]))
KZuwachs = If(zuwachs > 0, (0.2, 0.2), If[zuwachs ≟ 0, (0.2, -0.1), (0.2, -0.4)])
mKlammer = If(m ≥ 0, LaTeX[m], "(" + (LaTeX[m]) + ")")
bKlammer = If(b ≥ 0, LaTeX[b], "(" + (LaTeX[b]) + ")")
xAnzeige: -6.5
v1, g, i, j, l = Polygon((xAnzeige, -10), (xAnzeige + 1, -10), (xAnzeige + 1, 10), (xAnzeige, 10))
v2, n, p, q, r = Polygon((xAnzeige, -10), (xAnzeige + 1, -10), (xAnzeige + 1, y(P)), (xAnzeige, y(P)))
v3, s, t, c, d = Polygon((xAnzeige - 1, -10), (xAnzeige + 2, -10), (xAnzeige + 2, 10), (xAnzeige - 1, 10))
Nullviveau = Segment((xAnzeige, 0), (xAnzeige + 1, 0))
v4, e, f_1, g_1, h_1 = Polygon((xAnzeige, y(P)), (xAnzeige + 1, y(P)), (xAnzeige + 1, y(Q)), (xAnzeige, y(Q)))
mschalter = true
bschalter = true
TextZuwachsGraphOhneFarbe = If(gesamterzuwachs > 0, "+" + (LaTeX[gesamterzuwachs]), "" + (LaTeX[gesamterzuwachs]))
TextZuwachsOhneFarbe = If(gesamterzuwachs > 0, "+" + (LaTeX[gesamterzuwachs]), "" + (LaTeX[gesamterzuwachs]))
iZeiger = IndexOf(Zeiger, xPunkteZeiger)
iZeiger0: (-iMin) + 1
StrichRechts = Segment((((iMax - iMin + 1) * dTabSpalten), (2 * dTabZeilen)), (((iMax - iMin + 1) * dTabSpalten), (-2 * dTabZeilen)))
StrichUnten = Segment(((-dTabSpalten), (-2 * dTabZeilen)), (((iMax - iMin + 1) * dTabSpalten), (-2 * dTabZeilen)))
StrichMitte = Segment(((-dTabSpalten), 0), (((iMax - iMin + 1) * dTabSpalten), 0))
StrichOben = Segment(((-dTabSpalten), (2 * dTabZeilen)), (((iMax - iMin + 1) * dTabSpalten), (2 * dTabZeilen)))
KSchrittweiteTabelle: (0, 0.5)
SchrittweiteTexte = If(iZeiger ≥ iZeiger0, Sequence[Text[TextSchrittweite, Element[xPunkteZeiger, i] + KSchrittweiteTabelle, true, true], i, iZeiger0, iZeiger - 1, 1], Sequence[Text[TextSchrittweite, Element[xPunkteZeiger, i] + KSchrittweiteTabelle, true, true], i, iZeiger0 - 1, iZeiger, -1])
KBreiteTabelle: (0, (-5.5 * dTabZeilen))
yPfeileTabelle = If(iZeiger ≥ iZeiger0, Sequence[Vector[Element[xPunkteZeiger, i] + KBreiteTabelle, Element[xPunkteZeiger, i + 1] + KBreiteTabelle], i, iZeiger0, iZeiger - 1, 1], Sequence[Vector[Element[xPunkteZeiger, i] + KBreiteTabelle, Element[xPunkteZeiger, i + 1] + KBreiteTabelle], i, iZeiger0 - 1, iZeiger, -1])
KZuwachsTabelle: (0, -2.3)
ZuwachsTexte = If(iZeiger ≥ iZeiger0, Sequence[Text[TextZuwachs, Element[xPunkteZeiger, i] + KZuwachsTabelle, true, true], i, iZeiger0, iZeiger - 1, 1], Sequence[Text[TextZuwachs, Element[xPunkteZeiger, i] + KZuwachsTabelle, true, true], i, iZeiger0 - 1, iZeiger, -1])
xPfeileGrafik = If(xZeiger ≥ 0, Sequence[Vector[(i, f(i)), (i + 1, f(i))], i, 0, xZeiger - 1, 1], Sequence[Vector[(i, f(i)), (i + 1, f(i))], i, -1, xZeiger, -1])
yPfeileGrafik = If(xZeiger ≥ 0, Sequence[Vector[(i + 1, f(i)), (i + 1, f(i + 1))], i, 0, xZeiger - 1, 1], Sequence[Vector[(i + 1, f(i)), (i + 1, f(i + 1))], i, -1, xZeiger, -1])
SchrittweiteTexteGrafik = If(xZeiger ≥ 0, Sequence[Text[TextSchrittweite, (i, f(i)) + If[m ≥ 0, (0.2, 0.3), (0.2, -0.1)], true, true], i, 0, xZeiger - 1, 1], Sequence[Text[TextSchrittweite, (i, f(i)) + If[m ≥ 0, (0.2, 0.3), (0.2, -0.1)], true, true], i, -1, xZeiger, -1])
ZuwachsTexteGrafik = If(xZeiger ≥ 0, Sequence[Text[TextZuwachs, (i + 1, f(i)) + If[m ≥ 0, (0, 0.4), (0, -0.1)], true, true], i, 0, xZeiger - 1, 1], Sequence[Text[TextZuwachs, (i + 1, f(i)) + If[m ≥ 0, (0, 0.4), (0, -0.1)], true, true], i, -1, xZeiger, -1])
yWerteText0 = Text(f(0), (2.9 + k(f(0)), -0.2), true, true)
yWerteText0ohneFarbe = Text(f(0), (2.9 + k(f(0)), -0.2), true, true)
yWerteText = Append(Text["f(x)", (-1, -0.2), true, true], Zip[If[IndexOf[za, yWerte] ≠ 3, Text[za, P + K, true, true]], za, yWerte, P, yPunkte])
xPfeileTabelle = If(iZeiger ≥ iZeiger0, Sequence[Vector[Element[xPunkteZeiger, i], Element[xPunkteZeiger, i + 1]], i, iZeiger0, iZeiger - 1, 1], Sequence[Vector[Element[xPunkteZeiger, i], Element[xPunkteZeiger, i + 1]], i, iZeiger0 - 1, iZeiger, -1])
PunkteGraph = Sequence((i, f(i)), i, iMin, iMax, 1)
Text1: "f(x) = \color{blue}{\underbrace{ " + (LaTeX[mKlammer]) + "}_{m}} \color{black}{\cdot x +} \color{#008000}{\underbrace{ " + (LaTeX[bKlammer]) + "}_{b}} "