f''(x)

f

f'

f''

f'

c = 0 (slider from -1 to 1, step 0.1)
r = 1 (slider from -5 to 5, step 1)
Q: (0, 0)
a = 5 (slider from 0.1 to 5, step 0.1)
h1(x) = (((a * 4) * r) * x^(abs(r)))
h0(x) = (((a * 4) * r / (abs(r) + 1)) * x^(abs(r) + 1))
f1(x) = If[-0.5 < x < 0.5, h1(x)]
f0(x) = If[-0.5 < x < 0.5, h0(x)] + c
L = -2 (slider from -5 to 5, step 0.1)
R = 2 (slider from -5 to 5, step 0.1)
O = 2 (slider from -5 to 5, step 0.1)
U = -2 (slider from -5 to 5, step 0.1)
gl1: x = 0