(*Prosty kod prezentujący zachowanie się odwzorowania logistycznego dla różnych "rozrodczości"*)
Manipulate[ListPlot[RecurrenceTable[{x[n+1]==x[n]*l*(1-x[n]),x[0]==0.01},x,{n,1,300}],Joined->True,ImageSize->Full,PlotRange->{0,1}],{l,2,4},ContentSize->Scaled[0.7]]