%Evalisaattori "levittää" parametrina annetun kuvan kirkkaudeltaan alueelle 0...255
function kuva=Ekvalisaattori(I) %ekvalisoi eli tasoittaa uint8 kuvan koko kahdeksan bitin alueelle u8=uint8(I); Maksimi=max(max(u8));%haetaan suurin arvo kuvamatriisista Minimi=min(min(u8));%haetaan pienin arvo kuva=u8-Minimi;%otetaan alta tyhjät pois Kerroin=255/(Maksimi-Minimi); %muodostetaan "kirkastuskerroin" matriisille kuva=kuva .*Kerroin;%kerrotaan jokainen "pikseli" erikseen end