fixed point

r = 0 (slider from 0 to 4, step 0.005)
f(x) = (r * (x * (1 - x)))
A: (r, Iteration[f, random(), 222])
g(x) = (x - 1) / x
a = false