%**********************************************************
%**             generování Waveletových obrazu           **
%**                 Diskrétní transformace               **
%**         Leos Marsalek Leos.Marsalek@tiscali.cz       **
%**        Jan Skapa Jeniczek.s@seznam.cz (c) 2003       **
%**********************************************************
Gen_obr;
pic=rgb2ycbcr(pic4);
[CA CB CC CD]=DWT2(pic(:,:,1),'haar');
obraz=zeros(240,320);
obraz(1:120,1:160)=CA./2;
obraz(1:120,161:320)=CB.*2;
obraz(121:240,1:160)=CC.*2;
obraz(121:240,161:320)=CD.*2;
obraz3D(:,:,1)=obraz;
obraz3D(:,:,2)=obraz;
obraz3D(:,:,3)=obraz;
imwrite((obraz3D),'dwt_pic4.tif','tif');