Suites logistiques

u_{0}

\mathcal{C}_{f}

y=x

f(x) = If[floor(x / 2) - x / 2 ≟ 0, x / 2, (3 * x) + 1]
n = 96 (slider from 1 to 200, step 1)
A = 54 (slider from 0 to 100, step 1)
Valeurs = IterationList(f, A, n + 1)
PointsX = Sequence((k - 1, Element[Valeurs, k]), k, 1, Length[Valeurs] - 1)