123456789101112131415161718192021222324 |
- function plot_comunity(M)
- %n_comunity = length(unique(M));
- [~,idx_com] = unique(sort(M),'last');
- n_units_per_comunity = diff([0;idx_com]);
- idx = find(n_units_per_comunity>1);
- tmp = linspace(0.5,0.8,length(idx));
- colors = repmat(tmp,3,1);
- for i=1:length(idx)
- comunity_idx = find(M == idx(i));
- start = comunity_idx(1);
- finish = comunity_idx(end);
- x1 = start - 0.5;x2 = finish + 0.5;
- y1 = start - 0.5;y2 = finish + 0.5;
- x = [x1, x2, x2, x1, x1];
- y = [y1, y1, y2, y2, y1];
- hold all
- plot(x, y, '-','Color',colors(:,i),'LineWidth',2);
- end
- end
|