matlab学习中,要求一个r,两点之间距离小于r时为相邻,且平均度为12.图是在[0,1]^2内的随机点以下是编程function suijirand('seed',64);%以学号为种子产生随机数A=rand(200,2);x=A(:,1);y=A(:,2);subplot(1,2,1);plot(x,
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/23 06:02:12
matlab学习中,要求一个r,两点之间距离小于r时为相邻,且平均度为12.图是在[0,1]^2内的随机点以下是编程function suijirand('seed',64);%以学号为种子产生随机数A=rand(200,2);x=A(:,1);y=A(:,2);subplot(1,2,1);plot(x,
matlab学习中,要求一个r,两点之间距离小于r时为相邻,且平均度为12.图是在[0,1]^2内的随机点
以下是编程
function suiji
rand('seed',64);%以学号为种子产生随机数
A=rand(200,2);
x=A(:,1);
y=A(:,2);
subplot(1,2,1);
plot(x,y,'r.');
for r=0.01:0.01:1
N=200;
P=x+i*y; %随机布置N个顶点位于平面内
B=repmat(P,1,N)-repmat(P.',N,1); %计算顶点间的复向量
D=abs(B);
[Is,Js]=find(D=12) %通信半径为r时,平均度大于12
disp(r);
break
end
end
subplot(1,2,2);plot([P(Is) P(Js)].','o-'); % 打印这些连线
for k=1:200
text(x,y,num2str(k));%num2str() 函数转换数字到字符串,%给图形标点
end
1.if (ceil(m/200)>=12) 语句中的>换成=时图形打印错误
2.给图形里的每个点编号怎么编呀,总是出错
3.还要用Dijkstra算法计算出网络中最靠近中心的顶点到其它所有顶点之间的最短路,求指导……
matlab学习中,要求一个r,两点之间距离小于r时为相邻,且平均度为12.图是在[0,1]^2内的随机点以下是编程function suijirand('seed',64);%以学号为种子产生随机数A=rand(200,2);x=A(:,1);y=A(:,2);subplot(1,2,1);plot(x,
试试这个修改之后的
clear all;
clc
%
v=point;% 中心顶点v
A=Value;% 拓扑图路径权值对应矩阵A
n=length(A);%顶点个数
V=1:n;%顶点集合
s=v;%已经找到最短路的点集,初始为v
l=A(v,:);%当前v点到各个点的距离,初始为直接距离
Front=v.*ones(1,n);%当前距离时点的父顶点,初始都为v
ss=setdiff(V,s);nn=length(ss);%还没有找到最短路的点集
for j=1:n-1%一共进行n-1次迭代
k=ss(1);
for i=1:nn%对还没有找到最短路的点
if l(k)>l(ss(i))
k=ss(i);
l(k)=l(ss(i));%在当前一行距离中取最小值
end
end
if l(k)==inf%如果当前行最小值是无穷大,则结束
break;
else%否则k点的最短路找到
s=union(s,k); %把找到的最近点放入最小路径集合中
ss=setdiff(V,s);
nn=length(ss);
end
if length(s)==n%全部点的最短路都找到
break;
else
for i=1:nn%以k为生长点,如果通过k点会更短,则更改当前最短距离
if l(ss(i))>l(k)+A(k,ss(i))
l(ss(i))=l(k)+A(k,ss(i));
Front(ss(i))=k;
end
end
end
end
figure(2) %绘制Dijkstra算法最短路径图
plot(x,y,'r.');
hold on;
for i=1:200
plot([P(i),P(Front(i)).'], 'o-');
hold on;
end