%**********************************************************
%**            Výpocet obrazu - Walshova báze            **
%**                Diskrétní transformace                **
%**       Leos Marsalek  Leos.Marsalek@tiscali.cz        **
%**       Jan Skapa Jeniczek.s@seznam.cz (c) 2003        **
%**********************************************************
Gen_obr;
prepocet256x256;

ypic=rgb2ycbcr(pic1);
Y=walsh_tr2(ypic(:,:,1));
imwrite(Y.*2,'pic1_walsh.tif','tif');

ypic=rgb2ycbcr(pic2);
Y=walsh_tr2(ypic(:,:,1));
imwrite(Y.*2,'pic2_walsh.tif','tif');

ypic=rgb2ycbcr(pic3);
Y=walsh_tr2(ypic(:,:,1));
imwrite(Y.*2,'pic3_walsh.tif','tif');

ypic=rgb2ycbcr(pic4);
Y=walsh_tr2(ypic(:,:,1));
imwrite(Y.*2,'pic4_walsh.tif','tif');

ypic=rgb2ycbcr(pic5);
Y=walsh_tr2(ypic(:,:,1));
imwrite(Y.*2,'pic5_walsh.tif','tif');