r = 1 (slider from 0.1 to 10, step 0.1)
f(x) = (x^(r) * log(x))
g(x) = If[0 ≤ x, f(x)]