19 lines
633 B
Mathematica
19 lines
633 B
Mathematica
|
function diffInCliqCounts = computeDiffInCliqCounts(cliques, inds)
|
|||
|
|
% Laskee muutoksen CLIQCOUNTS:ssa (tai SEPCOUNTS:ssa, jos sy<EFBFBD>tteen?
|
|||
|
|
% separators) kun yksil<EFBFBD>t inds siirret<EFBFBD><EFBFBD>n.
|
|||
|
|
% diffInCliqcounts on ncliq*1 taulu, joka on CLIQCOUNTS:n sarakkeesta josta
|
|||
|
|
% yksil<EFBFBD>t inds siirret<EFBFBD><EFBFBD>n ja lis<EFBFBD>tt<EFBFBD>v?sarakkeeseen, johon yksil<EFBFBD>t
|
|||
|
|
% siirret<EFBFBD><EFBFBD>n.
|
|||
|
|
|
|||
|
|
% taken from spatial model of Jukka Siren's code
|
|||
|
|
% Lu Cheng
|
|||
|
|
% 15.12.2012
|
|||
|
|
|
|||
|
|
ncliq = size(cliques,1);
|
|||
|
|
diffInCliqCounts = zeros(ncliq,1);
|
|||
|
|
ninds = length(inds);
|
|||
|
|
for i = 1:ninds
|
|||
|
|
ind = inds(i);
|
|||
|
|
rivit = sum((cliques == ind),2);
|
|||
|
|
diffInCliqCounts = diffInCliqCounts + rivit;
|
|||
|
|
end
|