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
Является ли обнаруженная динамика популяции интуитивно ожидаемой?
г. Какие особенности этого уравнения кажутся нереалистичными? Как можно улучшить модель?
Проектные работы: