close all;
obr = imread('wom.jpg');

%zakladni jasova transformace
obr1 = jasova_transformace(50, obr);
figure(1)
subplot(121)
imshow(obr)
title('puvodni obrazek')
subplot(122)
imshow(obr1)
title('transformovany obrazek')

%po castech linearni transformace
obr2 = pocaslin(100,150,130, 250, obr);
figure(2)
subplot(121)
imshow(obr)
title('puvodni obrazek')
subplot(122)
imshow(obr2)
title('transformovany obrazek')

%ekvalizace obrazku
[eh, obr3] = equal_hist(obr);
figure(3)
subplot(121)
imshow(obr)
title('puvodni obrazek')
subplot(122)
imshow(obr3)
title('transformovany obrazek')

h = hist(obr(:),0:255);
figure(4);
subplot(121)
plot(h)
title('puvodni obrazek')
subplot(122)
plot(eh);
title('transformovany obrazek')