draw_circle.m

来自「复杂网络的基础」· M 代码 · 共 34 行

function Draw_Circle( note_of_information , x0 , y0 , R )
% 网络仿真图形
% 2006-12-20

% 输入：
%     note_of_information --- 节点的信息
%     x0,y0 --- 圆心坐标
%     R ---- 半径
% 输出：
%     作出网络仿真图形

if nargin < 4, R = 4 ; end  % 半径R=4
if nargin < 2, x0 = 5 ; y0 = 5 ; end  % 圆心坐标(5,5)

[ M , N ] = size( note_of_information ) ;

t = 1 : N ;
t = t * 2 * pi / N ;

x = x0 + R * sin(t) ;
y = y0 + R * cos(t) ;
figure(2) ; title('网络仿真图形') ;
for i = 1 : N
    plot( x(i) ,y(i) , 'r' ) ; axis( [ x0-R-1 x0+R+1 x0-R-1 x0+R+1 ] ) ; axis equal ;
    hold on;
end
for i = 1 : N
    for j = 1 : N
        if  note_of_information(i,j) == 1 
            line([x(i),x(j)],[y(i),y(j)],'LineWidth',0.1);
            hold on ;
        end
    end
end