Иллюстрированный самоучитель по Mathematica 5

За гранью простого. Новый вид науки.

Вот как все это выглядит на графике.

Иллюстрированный самоучитель по Mathematica 5 › За гранью простого. Новый вид науки.

Вот теперь действительно есть чему удивиться! Численность популяции оказалась периодической функцией.

Конечно, здесь проведены вычисления только для 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. Вот что получается (конец опущен).

Иллюстрированный самоучитель по Mathematica 5 › За гранью простого. Новый вид науки.

Чтобы построить график, этот список нужно сделать плоским:

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).

Иллюстрированный самоучитель по Mathematica 5 › За гранью простого. Новый вид науки.

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

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.