%**********************************************************
%**            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');