Оценить:
 Рейтинг: 0

Математические модели в естественнонаучном образовании. Том I

Год написания книги
2022
Теги
<< 1 ... 22 23 24 25 26 27 28 29 30 ... 50 >>
На страницу:
26 из 50
Настройки чтения
Размер шрифта
Высота строк
Поля

button=1;

% получаем начальное значение численности популяции от пользователя

disp(' ')

disp(' Щелкните левой кнопкой на начальном значении или правой, чтобы выйти.')

[p,x,button]=ginput(1);

%

while(button==1)

%

x=p;

for i=1:s;                                  % цикл для начала создания паутины

p=eval (next_p);

stephan(2*i-1)=plot([x;x],[x;p],'k','EraseMode','background');

pause(.1);

stephan(2*i)=plot([x;p],[p;p],'k','EraseMode','background');

pause(.1);

x=p;

end

%

for i=1:64;                                  % цикл удаления первого элемента

p=eval(next_p);                           % вычисляем следующий член

delete(stephan(1))                        % удаляем вертикальную линию

stephan(1:2*s-1)=stephan(2:2*s);          %     и указатель на неё

for k=1:2*s-1

set(stephan(k),'EraseMode','background');% перерисовываем линии

end;

set(curve,'Color','b');                   % перерисовываем кривые

set(diag,'Color','g');

stephan(2*s)=plot([x;x],[x;p],'k','EraseMode','background');% добавляем линию

pause(.1);

delete(stephan(1))                        % стираем горизонтальную линию

stephan(1:2*s-1)=stephan(2:2*s);          %      и указатель на неё

for k=1:2*s-1

set(stephan(k),'EraseMode','background');% перерисовываем линии

end;

set(curve,'Color','b');           % перерисовываем кривые

set(diag,'Color','g');

stephan(2*s)=plot([x;p],[p;p],'k','EraseMode','background');% добавляем линию

x=p;                                      % сохраняем новую популяцию

pause(.1);

end

% получаем начальную популяцию от пользователя

disp(' ')

disp('Щелкните левой кнопкой на начальной численности или правой, чтобы выйти.')

[p,x,button]=ginput(1);

if (button==1) delete(stephan); end;

%

end

Является ли обнаруженная динамика популяции интуитивно ожидаемой?

г. Какие особенности этого уравнения кажутся нереалистичными? Как можно улучшить модель?

Проектные работы:
<< 1 ... 22 23 24 25 26 27 28 29 30 ... 50 >>
На страницу:
26 из 50