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、动画效果。