%{
1.程序功能:计算二维数组的离散傅立叶变换
2.对应作业题:二.2
%}
% f=[1 2 2 1;1 2 2 1;1 2 2 1;1 2 2 1];
f=[1 1 1 1;1 1 1 1;1 1 1 1;1 1 1 1];
[m,n]=size(f);%得出二维数组的尺寸
t=1/m/n;%系数
for u=0:m-1%行
for v=0:n-1%列
%内部循环
%--------------------
sum=0;
for x=1:m
for y=1:n
sum=sum+f(x,y)*exp(-i*2*pi*(u*x/m+v*y/m));
end
end
F(u+1,v+1)=t*sum;%调整matlab内部矩阵和数组的下标
%------------------------
end
end
%输出计算结果
real(F)%单取实部
——2020.03.02——