% nacteni obrazku
im=double(imread('segmorph.tif'));
% zobrazeni poskozeneho obrazku
figure(1); imshow(im,[]);

% operace otevreni a uzavreni se zobrazenim obrazku
% s odstranenym sumem
b1=[1 0 1;0 1 0;1 0 1];
oim=opening(im,b1);
b2=ones(3);
cim=closing(oim,b2);
figure(2); imshow(cim,[]);

% odstraneni sumu pomoci filtru median (3x3)
med=medfilt2(im);
figure(3); imshow(med,[]);

% nalezeni svislych a vodorovnych pruhu
b3=ones(1,100);
vim=opening(cim,bh);
sim=opening(cim,bh');

% zobrazeni a ulozeni na disk
figure(4); imshow(vim,[]); imwrite(vim,'vodorovny.tif','tif');
figure(5); imshow(sim,[]); imwrite(sim,'svisly.tif','tif');