calc-010-funciones-potenciales

p = 2 (slider from -5 to 5, step 1)
amenos: (-p)
k = 1 (slider from -5 to 5, step 0.05)
f = If(p > 0, (k * x^(p)), If[p ≟ 0, k, k / x^(amenos)])
texto1: "f(x)=" + (LaTeX[f]) + ""