matlab 画network，papa的儿子

最新推荐文章于 2023-04-25 09:06:45 发布

meatball1982

最新推荐文章于 2023-04-25 09:06:45 发布

阅读量903

点赞数

CC 4.0 BY-SA版权

分类专栏：我是学术骗子我是matlab菜鸟蛋文章标签： matlab

本文链接：https://blog.youkuaiyun.com/meatball1982/article/details/47344809

我是学术骗子同时被 2 个专栏收录

38 篇文章

订阅专栏

我是matlab菜鸟蛋

20 篇文章

订阅专栏

本文介绍了一种使用MATLAB绘制带权重的随机图形的方法。通过定义节点数量和连接方式，利用polar坐标转换为Cartesian坐标，并随机生成节点间的连接与权重。最终实现了图形的可视化展示，包括节点、连接线及权重的颜色变化。

clear all
clc
clf


%% 
n=18;
theta = linspace(0,2*pi,(n+1));
theta = theta(1:end-1);
[x,y] = pol2cart(theta,1);

links=triu(round(rand(length(theta))));%# this is a random list of connections
[ind1,ind2] = ind2sub(size(links),find(links(:)));

txt = cellstr(num2str((1:n)','%02d'));

% p_tm=symrcm(links);
% links_new=links(p_tm,p_tm);
% txt = txt(p_tm);

weig =rand(size(ind1));

col_mm = jet(length(ind1));

plot(x,y,'.k','markersize',20);
hold on
axis equal

arrayfun(@(p,q,r,colr,colg,colb)line([x(p),x(q)],[y(p),y(q)],...
    'linewidth',1+2*r,'color',[colr colg colb]),ind1,ind2,weig...
                                    ,col_mm(:,1),col_mm(:,2),col_mm(:,3));
axis equal off

h = text(x.*1.1, y.*1.1, txt, 'FontSize',14);

for i=1:n
set(h(i), 'Rotation',theta(i)*180/pi-90);
end

colorbar