计算卷积f1(t)*f2(t)_det矩阵计算

计算卷积的物理意义与公式网上与书上很多，这里不再赘述。 下面是计算两个向量u和v的fortran代码 program test_conv !// 计算向量u和v的卷积 implicit none integer :: i, k integer, parameter :: m = 3, n = 8 !// 向量u和向量v的长度 real :: u(0:m-1) = [1, 1, 1], v(0:n-1) = [1, 1, 0, 0, 0, 1, 1, 1] real :: conv(0:m+n-2) real :: s1, s2 conv = 0. do i = 0, m+n-2 do k = 0, m+n-2 if (k >= 0 .and. k <= m-1) then s1 = u(k) else s1 = 0. end if if (i-k >=0 .and. i-k <= n-1) then s2 = v(i-k) else s2 = 0. end if conv(i) = conv(i) + s1*s2 end do end do print*, conv end program test_conv

版权声明：

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！

转载请注明出处，原文链接：https://www.xkablog.com/fortranbc/2239.html