f(x) = -(x - 2.0)^(2.0) + 5.0
dx = 0.6 (slider from 0.1 to 1, step 0.1)
a_1 = BarChart(1.0, 3.0, Sequence[f(a), a, 1.0, 3.0, dx])