You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
1 n = rows[w] 2 ci= 0 3 fori = 1 ton CLUSTERING-COEFFICIENT(w)<br />
do neighbor[i]= 0 5 fori = 1 ton 6 do k = 0 7 forj = 1 ton 4<br />
do ifW[i][j] = 1 9 thenneighbor[k]= j 10 k = k + 1 8<br />
12 realedges= 0 13 forp = 0 tok − 2 14 do forq = p + 1 tok − 1 11<br />
do ifw[neighbor[p]][neighbor[q]] = 1 16 thenrealedges= realedges+ 1 17 18 15<br />
totaledges= k(k− 1)/2 20 ci= ci+ realedges/totaledges 21 ci= ci/n 19<br />
22 returnci