The Cubic Map
Author's Data: Housam Binous
Department of Chemical Engineering
National Institute of Applied Sciences and Technology
Tunis, TUNISIA
Email: binoushousam@yahoo.com

Reference :
Varma and Morbidelli, Mathematical Methods in Chemical Engineering, Oxford University Press, 1997.

Bifurcation diagram

(Subscript[f, r])_[x_] := r x (1 - x)^2

tbl[r_] := 
      Transpose[{Table[r, {102}], 
          Drop[NestList[(Subscript[f, r]), 0.1, 1001], 900]}]

plt1 = 
        ListPlot[Flatten[Table[tbl[r], {r, 0, 8,  .1}], 1], 
          PlotStyle -> {RGBColor[1, 0, 0], PointSize[0.02]}, 
          PlotRange ->  All];

A cycle of Period 3 appears at r≈6.05

ListPlot[Drop[NestList[(Subscript[f, 6.05]), 0.2, 200], 100], 
        PlotJoined -> False, 
        PlotStyle -> {RGBColor[1, 0, 0], PointSize[0.02]}];

Chaotic behavior appears at r>6.05

ListPlot[Drop[NestList[(Subscript[f, 6.8]), 0.2, 200], 100], 
        PlotJoined -> False, 
        PlotStyle -> {RGBColor[1, 0, 0], PointSize[0.02]}];