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