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 = -1 (slider from -7 to 7, step 1)
A = (5.413941333333334, 3.309312)
B = (7.645621333333333, 3.9382399999999995)
u = Vector(A, B)
f(x) = x^(n)
f'(x) = a * f(x)
f'' = Translate(f', u)