Homec4science
Diffusion ISFC clustering (master) Browse

ISFCClustering/2019_03_03_BCT/randmio_und_connected.m
3209cc2b0b1dmaster

Last Change
Raw File

randmio_und_connected.m
View Options

function [R,eff] = randmio_und_connected(R, ITER)
%RANDMIO_UND_CONNECTED Random graph with preserved degree distribution
%
% R = randmio_und_connected(W,ITER);
% [R eff] = randmio_und_connected(W, ITER);
%
% This function randomizes an undirected network, while preserving the
% degree distribution. The function does not preserve the strength
% distribution in weighted networks. The function also ensures that the
% randomized network maintains connectedness, the ability for every node
% to reach every other node in the network. The input network for this
% function must be connected.
%
% Input: W, undirected (binary/weighted) connection matrix
% ITER, rewiring parameter
% (each edge is rewired approximately ITER times)
%
% Output: R, randomized network
% eff, number of actual rewirings carried out
%
% References: Maslov and Sneppen (2002) Science 296:910
%
%
% 2007-2012
% Mika Rubinov, UNSW
% Jonathan Power, WUSTL
% Olaf Sporns, IU
% Modification History:
% Jun 2007: Original (Mika Rubinov)
% Apr 2008: Edge c-d is flipped with 50% probability, allowing to explore
% all potential rewirings (Jonathan Power)
% Mar 2012: Limit number of rewiring attempts, count number of successful
% rewirings (Olaf Sporns)
n=size(R,1);
[i,j]=find(tril(R));
K=length(i);
ITER=K*ITER;
% maximal number of rewiring attempts per 'iter'
maxAttempts= round(n*K/(n*(n-1)));
% actual number of successful rewirings
eff = 0;
for iter=1:ITER
att=0;
while (att<=maxAttempts) %while not rewired
rewire=1;
while 1
e1=ceil(K*rand);
e2=ceil(K*rand);
while (e2==e1)
e2=ceil(K*rand);
end
a=i(e1); b=j(e1);
c=i(e2); d=j(e2);
if all(a~=[c d]) && all(b~=[c d])
break %all four vertices must be different
end
end
if rand>0.5
i(e2)=d; j(e2)=c; %flip edge c-d with 50% probability
c=i(e2); d=j(e2); %to explore all potential rewirings
end
%rewiring condition
if ~(R(a,d) || R(c,b))
%connectedness condition
if ~(R(a,c) || R(b,d))
P=R([a d],:);
P(1,b)=0; P(2,c)=0;
PN=P;
PN(:,d)=1; PN(:,a)=1;
while 1
P(1,:)=any(R(P(1,:)~=0,:),1);
P(2,:)=any(R(P(2,:)~=0,:),1);
P=P.*(~PN);
if ~all(any(P,2))
rewire=0;
break
elseif any(any(P(:,[b c])))
break
end
PN=PN+P;
end
end %connectedness testing
if rewire %reassign edges
R(a,d)=R(a,b); R(a,b)=0;
R(d,a)=R(b,a); R(b,a)=0;
R(c,b)=R(c,d); R(c,d)=0;
R(b,c)=R(d,c); R(d,c)=0;
j(e1) = d; %reassign edge indices
j(e2) = b;
eff = eff+1;
break;
end %edge reassignment
end %rewiring condition
att=att+1;
end %while not rewired
end %iterations
c4science · Help