Mit n kannst du die Potenzfunktion einstellen, diese mit orthogonale
 Affinität an der x-Achse und k abbilden und schließlich mit dem 
Vektor u verschieben. Wenn du an einem Ende von u ziehst verändert 
du den Verschiebungsvektor.

a = 0.5 (slider from -5 to 5, step 0.1)
n = -2 (slider from -7 to 7, step 1)
A = (4, 4)
B = (5.199483647999999, 4.246292992)
u = Vector(A, B)
f(x) = x^(n)
f'(x) = a * f(x)
f'' = Translate(f', u)