src_gen.m

H. Yang, A.P. Petropulu, X. Yang and T. Camp, ?ALLIANCES with Optimal Relay Selection,"IEEE Trans. o

function src_rly=src_gen(K,L)
src_rly=zeros(1,K);
%src_rly(2:K)=rand(1,K-1)<(K-1-L)/(K-1);% binomial, average K-1-L source relays

%following is a more accurate algorithm
for ii1 = 1:K-1-L
Loads(ii1) = floor(rand*(K-1))+2;
while find(Loads(1:(ii1-1)) == Loads(ii1))
   	Loads(ii1) = floor(rand*(K-1))+2;
end
end
for jj2= 1:K-1-L
    src_rly(Loads(jj2))=1;
end