云南大学资源环境与地球科学学院
《地震数字信号处理》课程实验报告
实验序号 实验名称 离散傅里叶变换 指导教师
请实验指导教师根据实验情况,自行选择以下内容进行填写并留适当空白
成绩
实验目的
实验原理
实验内容与数据来源
程序代码
实验结论
实验体会及建议、思考
实验目的
通过褶积定理来对已知数组进行卷积运算,最后得到时间域下的卷积和。
实验原理
褶积定理,二个函数在时间域中的卷积可求其相应的二个傅立叶变换乘积的
反变换而得。
实验内容与数据来源
题目课堂上给出,并用两种方法对这两个数组进行卷积。
程序代码
采用上次的方法,对两个数组进行卷积
program main
implicit none
real x(-6:11),h(-6:11),y(18),z
integer i,j
data x/0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0/
data h/0,0,0,0,0,0,1,2,3,4,5,0,0,0,0,0,0,0/
open(1,file='x1yantuo.dat')
do i=0,5
x(i-6)=x(i)
x(i+6)=x(i)
end do
do i=-6,11