% Skript provede zvyseni kontrastu obrazku pomoci vyrovnani
% histogramu.

% Nacteni obrazku
obrazek = imread('vyrez.jpg');

% Funkce imhist vraci vektor s pocty hodnot jednotlivych jasu
[pocet, jas] = imhist(obrazek);

% Nalezení rozsahu histogramu -- nejmenší a nejvìtší zastoupená hodnota
min = 1;
while(pocet(min) == 0)
    min = min + 1;
end
min = min - 1; % hodnoty jasu 0 až 255

max = 256;
while(pocet(max) == 0)
    max = max - 1;
end;
max = max - 1; % hodnoty jasu 0 až 255

% Vyrovnání histogramu -- rozšíøení na všechny hodnoty
vyrovnany = round((obrazek - min)*(255/(max-min)));

figure; imshow(vyrovnany);

% konec
