作业帮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/06 13:54:08
![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,](/uploads/image/z/12352791-39-1.jpg?t=matlab%E5%AD%A6%E4%B9%A0%E4%B8%AD%2C%E8%A6%81%E6%B1%82%E4%B8%80%E4%B8%AAr%2C%E4%B8%A4%E7%82%B9%E4%B9%8B%E9%97%B4%E8%B7%9D%E7%A6%BB%E5%B0%8F%E4%BA%8Er%E6%97%B6%E4%B8%BA%E7%9B%B8%E9%82%BB%2C%E4%B8%94%E5%B9%B3%E5%9D%87%E5%BA%A6%E4%B8%BA12.%E5%9B%BE%E6%98%AF%E5%9C%A8%5B0%2C1%5D%5E2%E5%86%85%E7%9A%84%E9%9A%8F%E6%9C%BA%E7%82%B9%E4%BB%A5%E4%B8%8B%E6%98%AF%E7%BC%96%E7%A8%8Bfunction+suijirand%28%27seed%27%2C64%29%3B%25%E4%BB%A5%E5%AD%A6%E5%8F%B7%E4%B8%BA%E7%A7%8D%E5%AD%90%E4%BA%A7%E7%94%9F%E9%9A%8F%E6%9C%BA%E6%95%B0A%3Drand%28200%2C2%29%3Bx%3DA%28%3A%2C1%29%3By%3DA%28%3A%2C2%29%3Bsubplot%281%2C2%2C1%29%3Bplot%28x%2C)
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