用Matlab模拟四人追逐问题
看到有人用mathematica模拟,我也写了一个Matlab的模拟程序:clear;clc;close all
rectangle('Position',,...
'Curvature',,...
'LineWidth',2,'LineStyle','-')
axis()
daspect()
x=;
y=;
n=10000;
axis off
hold on
h=zeros(length(x),1);
for i=1:4
h(i)=plot(x(i),y(i),'r.','markersize',10,'erasemode','none');
end
title('\copyright:qibbxxt')
t=0.001;
dirx=;
diry=;
for i=1:n
x=x+t*dirx*i/10;
y=y+t*diry*i/10;
dirx=diff();
diry=diff();
if dist(,)<15*t
break
end
arrayfun(@set,h,repmat({'xdata'},4,1),num2cell(x'),repmat({'ydata'},4,1),num2cell(y'));
pause(0.01);
end
mathematica程序见:http://forum.simwe.com/thread-949737-1-1.html
页:
[1]