За гранью простого. Новый вид науки.
Вот как все это выглядит на графике.
Вот теперь действительно есть чему удивиться! Численность популяции оказалась периодической функцией.
Конечно, здесь проведены вычисления только для 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.