Verschieben von Graphen
Author: Patrick Nordmann (www.schulphysikwiki.de)

Man kann mit dem Schieberegler oben rechts vier verschiedene Funktionen wählen.
Mit den Schiebereglern für die Parameter a und b läßt sich die Funktion verschieben.

Parabel
Sinuskurve
Hyperbel
die Wilde

f5(x) = 1.0 / x^(2.0)
f2(x) = 0.05 * (x - 2.0)^(2.0) * x * (x + 3.0)^(3.0)
Regler = 4 (slider from 1 to 4, step 1)
f3(x) = sin(x)
f4(x) = (x - 3.0)^(2.0) - 3.0
a = 1 (slider from -6.3 to 6.3, step 0.05)
b = 2 (slider from -6.3 to 6.3, step 0.05)
f = If(Regler ≟ 1.0, f2, If[Regler ≟ 2.0, f5, If[Regler ≟ 3.0, f3, f4]])
text_f: "f(x) = " + f
g(x) = f(x - b) + a
P = If(Regler ≟ 1.0, (b, g(b)), If[Regler ≟ 2.0, (b + 1.0, g(b + 1.0)), If[Regler ≟ 4.0, (b + 3.0, g(b + 3.0)), (b, g(b))]])
O = If(Regler ≟ 1.0, (0.0, f(0.0)), If[Regler ≟ 2.0, (0.0 + 1.0, f(0.0 + 1.0)), If[Regler ≟ 4.0, (0.0 + 3.0, f(0.0 + 3.0)), (0.0, f(0.0))]])
text_g: "g(x) = f(x - b) + a" + " 
        = f(x -" + b + ")" + "+" + a