f'

f

f'

g(x) = (1 / 216 * x^(4)) - (5 / 54 * x^(3)) + (4 / 9 * x^(2)) + 1
P1 = Point(g)
P2 = Point(g)
x1: x(P1)
x2: x(P2)
f0(x) = If[x < x1, g(x)]
f1(x) = If[x1 ≤ x < x2, g(x)]
g1(x) = g'(x)
gl1: x = x1
gl2: x = x2
a = false
f2(x) = If[x2 ≤ x, g(x)]
L = -2 (slider from -5 to 5, step 0.1)
R = 13 (slider from -5 to 20, step 0.1)