作业帮 > 综合 > 作业

如何用mathematica对一幅图像进行二维傅立叶变换

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/17 04:00:52
如何用mathematica对一幅图像进行二维傅立叶变换
如题
请以代码形式给出结果
我基本不怎么会使用里面的傅立叶函数
如果方便请稍进行讲解
在此先谢过了
感谢每位回答的朋友
如何用mathematica对一幅图像进行二维傅立叶变换
费了不少功夫,不过也学了不少.助人利己吧,
找一个样例图片
转化成灰度格式
img2 = ColorConvert[img,"GrayLevel"];
ImageData可以得到矩阵格式的数据,然后直接Fourier命令得到复数矩阵,这就是结果了.为了可视化,Abs取模并使用对数函数进行“再分布”(不知道这个词合不合适~),然后画出来!
ArrayPlot[Log[1 + Abs[Fourier[ImageData[img2]]]]]