function concentrazione(n)
%%Giallo
A=100*ones(n,n,3);
A(1:n,1:n,3)=0;
	for i=2:n
		for j=1:i-1
		z=sum(crivello(i+j)(i:i+j));
		w=sum(crivello(i)(i-j:i));
			if z>w
			%%Verde
			A(n-j+1,i,1)=0;
			A(n-j+1,i,2)=100;
			A(n-j+1,i,3)=0;
			else
			%%Bianco
			A(n-j+1,i,1)=255;
			A(n-j+1,i,2)=255;
			A(n-j+1,i,3)=255;
			end
		end
	end
imshow(A)
end
