%Funkcja generujaca macierz H. 
function H = genH(verts, edges)

	%Inicjowanie pustej macierzy H
	H = zeros(verts);
	
	%Wygenerowanie losowych połączeń pomiędzy wierzchołkami
	do
        	ind = unique(ceil(rand(1, edges)*verts*verts));
    	until (length(ind) == edges)

	%Zapisanie połączeń w macierzy H.
	for i=1:edges

		row = ceil(ind(i)/verts);
		col = mod(ind(i),verts);
		if col == 0
			col = verts;
		endif
		H(row, col) = 1;
		
	endfor	
	
	%Zapisanie liczby odnośników w macierzy H
	for i=1:verts
		a = find(H(:,i));
		if any(a) 
			H(a,i)=1/sum(H(:,i));
		endif
				
	endfor

endfunction


