✅作者简介:热爱科研的Matlab仿真开发者,修心和技术同步精进,matlab项目合作可私信。
🍎个人主页:Matlab科研工作室
🍊个人信条:格物致知。
更多Matlab仿真内容点击👇
⛄ 内容介绍
调查无人驾驶飞行器(UAV)以飞行基站(FBS)的形式辅助5G通信。所部署的技术包括评估、改进和开发优化方法,以引导携带飞行基站(FBS)的无人机增强地面5G网络基础设施。一种方法是通过视线(LoS)通信有效地收集和传输数据,以支持闪光的人群,机器类型的通信(IoT),分析能源消耗,和完成任务的总时间。
⛄ 部分代码
theta = 0; %initial angle
d=zeros(100,18)% to get cost of the 2opt for 100 which is the monte carlo iterations and 18 which is the number of time the angle is shifted
dist=zeros(100,1)%to get cost of the 2opt for 100 which is the monte carlo iterations at each iteration of kmean clustering
j=0
for mc= 1:100
j=j+1
n=50% n was tested to be 5 20 50 90 number of nodes
% number of points that you want
center = [2 ,2]; % center coordinates of the circle [x0,y0]
radius = 2; % radius of the circle
angle = 2*pi*rand(n,1);
rng(j)%fixing the point for the whole experiment in each generation
r = radius*sqrt(rand(n,1));
x = center(1)+r.*cos(angle) ;
y = center(2)+r.*sin(angle);
x(1)=2;
y(1)=2;
v=[x,y]
opts = statset('Display','final');
[cidx, ctrs,dis] = kmeans(v, 4, 'Distance','city', ...
'Replicates',5, 'Options',opts);
figure(1)
plot(v(cidx==1,1),v(cidx==1,2),'r.', ...
v(cidx==4,1),v(cidx==4,2),'y.', ...
v(cidx==3,1),v(cidx==3,2),'g.', ...
v(cidx==2,1),v(cidx==2,2),'b.', ctrs(:,1),ctrs(:,2),'kx');
legend('first cluster group','second cluster group ','third cluster group ','fourth cluster group ','centroid')
%running 2opt on the kmean clustering
X = v(cidx==1, :);
s = size(X,1);
[p,d11] = tspsearch(X,s);
figure(2)
tspplot(p,X,1)
legend('UAV route','cluster points ');
X = v(cidx==2, :);
s = size(X,1);
[p,d22] = tspsearch(X,s);
figure(3)
tspplot(p,X,1)
legend('UAV route','cluster points ');
X = v(cidx==3, :);
s = size(X,1);
[p,d33] = tspsearch(X,s);
figure(4)
tspplot(p,X,1)
legend('UAV route','cluster points ');
X = v(cidx==4, :);
s = size(X,1);
[p,d44] = tspsearch(X,s);
⛄ 运行结果
⛄ 参考文献
⛳️ 代码获取关注我
❤️部分理论引用网络文献,若有侵权联系博主删除
❤️ 关注我领取海量matlab电子书和数学建模资料