function b=unif(a,w);
[r,c]= size(a);
sum=0;
	for i1=1:2*w+1; sum=sum+a(i1);end;
	for i1=1:w+1; b(i1)=sum; end;
	for i1=w+2:c-w
		sum=sum+a(i1+w)-a(i1-w-1);
		b(i1)=sum;
	end
	for i1=c-w+1:c; b(i1)=sum; end;
end
