%**********************************************************
%**           Výpocet DCT spektrálnich obrazu            **
%**                 Diskrétní transformace               **
%**      Leos Marsalek Leos.Marsalek@tiscali.cz          **
%**           Jan Skapa     (c) 2003                     **
%**********************************************************
Gen_obr;
obr1=rgb2ycbcr(pic1);
obr2=rgb2ycbcr(pic2);
obr3=rgb2ycbcr(pic3);
obr4=rgb2ycbcr(pic4);
obr5=rgb2ycbcr(pic5);
OBR1=dct2(obr1(:,:,1));
OBR2=dct2(obr2(:,:,1));
OBR3=dct2(obr3(:,:,1));
OBR4=dct2(obr4(:,:,1));
OBR5=dct2(obr5(:,:,1));
imwrite(OBR1.*2,'Sobr1.tif','tif');
imwrite(OBR2.*2,'Sobr2.tif','tif');
imwrite(OBR3.*2,'Sobr3.tif','tif');
imwrite(OBR4.*2,'Sobr4.tif','tif');
imwrite(OBR5.*2,'Sobr5.tif','tif');