%**********************************************************
%**                DCT spektra ala JPEG                  **
%**               Diskrétní transformace                 **
%**        Leos Marsalek Leos.Marsalek@tiscali.cz        **
%**       Jan Skapa Jeniczek.s@seznam.cz   (c) 2003      **
%**********************************************************
Gen_obr;  % www.sendme.cz/goro moznost stahnout
pic=pic1;
ypic=rgb2ycbcr(pic);
obr=ypic(:,:,1);
velikost=size(obr);
OBR=zeros(velikost);
for k=1:8:velikost(1)-8
    for l=1:8:velikost(2)-8
        q=obr(k:k+8,l:l+8);
        Q=dct2(q);
        OBR(k:k+8,l:l+8)=Q;
    end;
end;
imwrite(OBR,'obr.tif','tif');