怎么对数据进行离散的Fourier变换

1、首先，给出一个离散的随机数据。a=Table[RandomInteger[9],10]

3、给出一幅图片：img=图片；

5、看看一个小区域上的数据，进行处理的结果。Fourier[data[[50;;53,60;;63]]]

7、把Fourier变换之后的图片数据，转化为图片：Fourier[data]//Image

9、看看Fourier[data]的实数部分：(Fourier[data]//Re)[[50挢旗扦渌;;53,60;;63]]发现不一样。

11、这是怎么回事呢？我糊涂了。(Abs[Fourier[data]]^2)[[50;;53,60;;63]]也不是。

13、(1-10*Fourier[data])//Image