1.完整项目描述和程序获取
>面包多安全交易平台:https://mbd.pub/o/bread/ZJWYlpxw
>如果链接失效，可以直接打开本站店铺搜索相关店铺：
>如果链接失效，程序调试报错或者项目合作也可以加微信或者QQ联系。
2.部分仿真图预览
3.算法概述
车载自组织网络(Vehicular Ad-hoc Network VANET)的通信，简单来说 就是车与车之间的通信 – communications among vehicles。为车载自组织网络和一般的无线网络不一样, 车子作为节点是一直在移动的, 所以需要一个很好的模型来仿真车子的移动序列, 即我需要在现有的mobility model上进行修改 设计出一个针对此VANET的mobility model来仿真车子的移动简单来说, 上面的mobility model只能展示出车子的移动pattern,而在整个交通系统中,会有 比如 交通信号灯 会导致车子的密度(density) 进行改变。
4.部分源码
...........................................................................
%分析Kjam和流量的关系；
q1 = zeros(1,length(Kjam));
q2 = zeros(1,length(Kjam));
q3 = zeros(1,length(Kjam));
for i = 1:length(Kjam)
n = 1;
V0 = c*Kjam(i)^((n+1)/2)/(n+1)/(n+1);
q1(i) = V0*k*(1-(k/Kjam(i))^((n+1)/2));
n =-0.5;
V0 = c*Kjam(i)^((n+1)/2)/(n+1)/(n+1);
q2(i) = V0*k*(1-(k/Kjam(i))^((n+1)/2));
n =-1;
q3(i) = c*k*log(Kjam(i)/k);
end
figure;
plot(Kjam,q1,'b-s',...
'LineWidth',1,...
'MarkerSize',6,...
'MarkerEdgeColor','k',...
'MarkerFaceColor',[0.0,0.9,0.0]);
hold on;
plot(Kjam,q2,'r-o',...
'LineWidth',1,...
'MarkerSize',6,...
'MarkerEdgeColor','k',...
'MarkerFaceColor',[0.9,0.0,0.0]);
hold on;
plot(Kjam,q3,'k-^',...
'LineWidth',1,...
'MarkerSize',6,...
'MarkerEdgeColor','k',...
'MarkerFaceColor',[0.0,0.0,0.9]);
hold off;
grid on
xlabel('Kjam');
ylabel('Q');
legend('Greenshield','Drew','Greenberg');
%%
%步骤二
T = [0:1:7500];%全部为绿灯的情况
V1 = zeros(1,length(T));
V2 = zeros(1,length(T));
Vsafe= zeros(1,length(T));
Videa= zeros(1,length(T));
dsafe= zeros(1,length(T));%车辆之间的安全距离
Dxd = zeros(1,length(T));
V01 = 50000/3600;%前一辆车子的初始速度
V02 = 50000/3600;%前一辆车子的初始速度
a1 = 0;%前一个车子加速度
a2 = 0.01;%后一个车子加速度
Vmax = 80000/3600;%公里最大限速
d1 = 0;
d2 = 0;
............................................................................
figure;
subplot(211);
plot(T,V1,'g','linewidth',4);
hold on
plot(T,V2,'r--');
hold on
xlabel('Times(s)');
ylabel('V');
legend('real V of car1','real V of car2');
subplot(212);
plot(T,Dxd,'g','linewidth',2);
xlabel('Times(s)');
ylabel('the distance between 2 cars');
%出现红灯，减速
T = [0:0.01:60];%全部为绿灯的情况
V1 = zeros(1,length(T));
V2 = zeros(1,length(T));
Vsafe= zeros(1,length(T));
Videa= zeros(1,length(T));
dsafe= zeros(1,length(T));%车辆之间的安全距离
Dxd = zeros(1,length(T));
V01 = 50000/3600;%前一辆车子的初始速度
V02 = 50000/3600;%前一辆车子的初始速度
a1 = -0.5;%前一个车子加速度
a2 = -0.47;%后一个车子加速度
Vmax = 80000/3600;%公里最大限速
d1 = 0;
d2 = 0;
..............................................................................
figure;
subplot(211);
plot(T,V1,'b','linewidth',2);
hold on
plot(T,V2,'r--');
hold on
xlabel('Times(s)');
ylabel('V');
legend('real V of car1','real V of car2');
subplot(212);
plot(T,Dxd,'b','linewidth',2);
xlabel('Times(s)');
ylabel('the distance between 2 cars');
12_017_m
