За гранью простого. Новый вид науки.
Вот как все это выглядит на графике.

Вот теперь действительно есть чему удивиться! Численность популяции оказалась периодической функцией.
Конечно, здесь проведены вычисления только для r = 3.83, а нам нужно провести вычисления для разных r. Давайте проведем их для 250 значений г, равномерно распределенных между r = 2.8 и r = 4.0.
t1=Table[{r,x[r][n]},{r,2.8.4.1.2/249},{n,101.300}];Здесь для каждого из 250 значений г строится список хn для n – 101,…, 300. Вот что получается (конец опущен).

Чтобы построить график, этот список нужно сделать плоским:
toshow=Flatten[t1.1);Теперь список будет иметь вид (конец опущен):
{{2.8.0.642857},{2.8.0.642857},{2.8.0.642857},{2.8.0.642857}, {2.8.0.64 2857},{2.8.0.642857},{2.8.0.642857},{2.8.0.642857},И мы можем построить график, наглядно демонстрирующий поведение последовательности {*"} при различных значениях параметра г в отображении хn+1= rхn(1-хn).

Из графика видно, насколько сложно зависит поведение популяции от r.
