【图像处理】Mathematica与逆Fourier变换

1、原图如下。

2、经过Fourier变换之后，结果如下。

b = Fourier[a];

Log[Abs[b]*50] // Image

3、逆向Fourier变换：

c = InverseFourier[b];

c//Image

4、Abs[c]//Image

复原了。

5、对b进行共轭处理：

b = Conjugate[b];

c = InverseFourier[b];

Abs[c] // Image

图像旋转了180度，而且颜色也变了。

6、砍掉大部分低频信号，图像还原之后，还保留着主要信息。

b = Fourier[a]; n = 20;

b[[n ;; -n, n ;; -n]] = b[[n ;; -n, n ;; -n]]*0;

c = InverseFourier[b];

Abs[c] // Image

7、n=10的情形。

8、n=5的情形。