%%
%% Listing 6.3 w książce "Obliczenia inżynierskie i naukowe", PWN 2011
%% (C) Piotr Krzyżanowski, 2011
%%
%% Możesz używać tego kodu zgodnie z licencją Creative Commons BY-SA, 
%% zob. http://creativecommons.org/licenses/by-sa/3.0/pl/
%%

function spyc(D)
if (nnz(D) < 10000) % wybór markera
	m ='*'; 
else
	m ='.';
end 
if nnz(D>0)
	spy(D>0, ['r',m]); % wizualizacja dodatnich elementów macierzy D 
	hold on;	
end
if nnz(D<0)
	spy(D<0, ['b',m]);	% wizualizacja ujemnych elementów macierzy D
end
hold off;
end
