dct8x8.m

来自「实现JPEG的压缩和编码 （1）首先通过DCT变换去除数据冗余； （2）使用」· M 代码 · 共 21 行

function dct8x8(I,m,s) %定义DCT量化子程序

T=inline('dctmtx(8)');

y=blkproc(I,[8 8],T);%进行DCT变换，求DCT变换系数
y=round(y./m);% DCT系数除以量化表中的值，并且进行四舍五入取整数

p=1;te=1;  
while(p<=64)   
    for q=1:te
    y1(s+p)=y(te-q+1,q);p=p+1;
    end

    for q=te:-1:1
    y1(s+p)=y(te-q+1,q);p=p+1;
     end
end

f=haffman(y1);
c(s:s+64,1)=f(:,1);c(s:s+64,2)=f(:,2);c(s:s+64,3)=f(:,3)