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