[已答复] 索引超出范围

[复制链接]
Narvana 发表于 2017-12-11 09:33:19
% 主程序: NaSch_3.m程序代码
% 单车道最大速度 3 个元胞开口边界条件加速减速随机慢化
clf
clear
%build the GUI
%define the plot button
plotbutton=uicontrol('style','pushbutton',...
'string','Run', ...
'fontsize',12, ...
'position',[100,400,50,20], ...
'callback', 'run=1;');
%define the stop button
erasebutton=uicontrol('style','pushbutton',...
'string','Stop', ...
'fontsize',12, ...
'position',[100,500,50,20], ...
'callback','Stop=1;');
%define the Quit button
quitbutton=uicontrol('style','pushbutton',...
'string','Quit', ...
'fontsize',12, ...
'position',[100,600,50,20], ...
'callback','stop=1;close;');
number = uicontrol('style','text', ...
'string','1', ...
'fontsize',12, ...
'position',[20,400,50,20]);
%CA setup
n=1000; %数据初始化
z=zeros(1,n); %元胞个数
z=roadstart(z,200); %道路状态初始化,路段上随机分布 200 辆
cells=z;
vmax=5; %最大速度
v=speedstart(cells,vmax); %速度初始化
x=1; %记录速度和车辆位置
memor_cells=zeros(3600,n);
memor_v=zeros(3600,n);
imh=imshow(cells); %初始化图像白色有车,黑色空元胞
set(imh, 'erasemode', 'none')
axis equal
axis tight
stop=0; %wait for a quit button push
run=0; %wait for a drawfreeze=0; %wait for a freeze(冻结)
while (stop==0 && x<11502)
if(run==1)
%边界条件处理,搜素首末车,控制进出,使用开口条件
a=searchleadcar(cells);
b=searchlastcar(cells);
[cells,v]=border_control(cells,a,b,v,vmax);
i=searchleadcar(cells); %搜索首车位置
for j=1:i
if i-j+1==n
[z,v]=leadcarupdate(z,v);
continue;
else
%====================================== 加速、减速、随机慢化
if cells(i-j+1)==0; %判断当前位置是否非空
continue;
else v(i-j+1)=min(v(i-j+1)+1,vmax); %加速
%================================= 减速
k=searchfrontcar((i-j+1),cells); %搜素前方首个非空元胞位置
if k==0; %确定于前车之间的元胞数
d=n-(i-j+1);
else d=k-(i-j+1)-1;
end
v(i-j+1)=min(v(i-j+1),d);
%==============================% 减速
%随机慢化
v(i-j+1)=randslow(v(i-j+1));
new_v=v(i-j+1);
%====================================== 加速、减速、随机慢化
%更新车辆位置
z(i-j+1)=0;
z(i-j+1+new_v)=1;
%更新速度
v(i-j+1)=0;
v(i-j+1+new_v)=new_v;
end
end
end
cells=z;
memor_cells(x,:)=cells; %记录速度和车辆位置
memor_v(x,:)=v;
x=x+1;
set(imh,'cdata',cells) %更新图像
%update the step number diaplaypause(0.0001);
stepnumber = 1+str2double(get(number,'string'));
set(number,'string',num2str(stepnumber))
end
if (stop ==1)
run = 0;
stop = 0;
end
drawnow
end
figure(1)
for i=11001:1:11500
for k=1:1:1000
if memor_cells(i,k)>0;
plot(k,i,'k.');
hold on;
end
end
end
xlabel('空间位置 ')
ylabel('时间(s) ')
title(' 时空图 ')

for i=1:1:500;
density(i)=sum(memor_cells(i,:)>0)/1000;
flow(i)=sum(memor_v(i,:))/1000;
end
figure(2)
plot(density,flow,'k.');
title(' 流量密度图 ')
xlabel('density')
ylabel('flow')

试图访问 memor_cells(11001,1);由于 size(memor_cells)=[3600,1000],索引超出范围。
出错  if memor_cells(i,k)>0;
不知如何解决。。。

1 条回复


木木木林 发表于 2017-12-11 19:26:30
矩阵每个维度不能超过某个值,好像是3600.其他没有细看。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

相关帖子
热门教程
站长推荐
快速回复 返回顶部 返回列表