编程实现二维DCT变换

不用matlab自带函数，自己编程实现二维DCT变换

function out=wangdct2（in）
%没有输入
if nargin == 0    
	error（‘Not enough input arguments.‘）;
end
%输入1个变量
if nargin == 1    
[NN]=size（in）;
for i=1:N
    for j=1:N
        if i==1
            D（ij）=sqrt（0.5）;
        else
            D（ij）=cos（（i-1）*（2*j-1）*pi/2/N）;
        end
    end
end
D=sqrt（2/N）*D;
out=D*in*D‘;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        351  2010-01-06 13:17  wangdct2.m

----------- ---------  ---------- -----  ----

                  351                    1