-
大小: 334 Bytes文件類型: .rar金幣: 1下載: 0 次發(fā)布日期: 2024-12-19
- 語言: 其他
- 標(biāo)簽:
資源簡介
不用matlab自帶函數(shù),自己編程實(shí)現(xiàn)二維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
評論
共有 條評論