function res=divergence(m,n,p)
	aux=mean(marche(m,n,p));
	res=aux(1,$)/n;
	plot(1:n,aux./(1:n))
	y=(2*p-1).*ones(1,n);
	plot(1:n,y,'red')
endfunction