r = 4 (slider from 0.1 to 20, step 0.1)
f(x) = x^(r) / ℯ^(x)
g(x) = If[0 ≤ x, f]