如何用Matlab做出蜂窝网的网络拓扑？下面给出程序。

clear all;
close all;
clc
n = 6;
alpha = linspace(0,2*pi,n+1);
r=10;
x=r*cos(alpha);
y=r*sin(alpha);
axis equal
axis([-3*r-5 3*r+5 -3*r-5 3*r+5]);
axis off
hold on
plot(x,y,'linewidth',2)
theta = linspace(pi/2,5*pi/2,n+1);
x0=sqrt(3)*r*cos(theta);
y0=sqrt(3)*r*sin(theta);
for i=1:n
    x=x0(i)+r*cos(alpha);
    y=y0(i)+r*sin(alpha);
    plot(x,y,'linewidth',2)
    pause(1)
end
hold off

程序的效果：

http://s15/bmiddle/4c82872349a2ef948f16e&690

   本文是作者原创，转载必须保证文章的完整性并标明出处（blog.sina.com.cn/xywatersky），请尊重作者，支持原创。