leib-3-1-1

A = 2 (slider from -5 to 5)
α = 0.3 (slider from -5 to 5)
h1 = 4.6 (slider from 0 to 15)
f(x) = (A * x^(α))
PMT = Derivative(f)
ph = Point({h1, f(h1)})
g = Line(Point[{0, 0}], ph)
h2 = 4.5 (slider from 0 to 5)
h = Tangent(Point[{h2, f(h2)}], f)