1、给出如下图片，记为a。
2、通过Fourier变换，可以得到图像的幅度谱：
Image[10*Abs[Fourier[ImageData[a]]]]
3、图像旋转90度，并一图片中心为原点，裁剪出一个和原图大小一致的图片。
b=ImageCrop[Rotate[a,Pi/2]//Rasterize,500]
4、此时的幅度谱图像如下。
Image[10*Abs[Fourier[ImageData[b]]]]
似乎，幅度谱也旋转了90度。
5、图像旋转30度，得到的图像和幅度谱如下：
b=ImageCrop[Rotate[a,30Degree]//Rasterize,500]
6、动画效果。
