mlxyzzz 2019-10-26 21:33
浏览 200

用Fortran语言计算矩阵的卷积程序运行出现弹框怎样解决?

图片说明
利用vs2013编写程序,源代码如下,请问应该ru'he修改

program work
implicit none
real N(0:9,0:9),M(0:2,0:2),V(0:9,0:9),s(0:9,0:9),t
integer i,j,K,L
open(1,file='N矩阵.txt',status='old')
do K=0,9
do L=0,9
read(1,100)N(K,L)
enddo
enddo
100 format(100f5.2)
open(2,file='M矩阵.txt',status='old')
do i=0,2
do j=0,2
read(2,9)M(i,j)
enddo
enddo
9 format(9f4.2)
open(3,file='V.txt',form='formatted')
do K=0,9
do L=0,9
s(K,L)=0
t=0
do i=0,2
do j=0,2
if((K-i-19).or.(L-j-1>9))then
M(i,j)=0
endif
s(K,L)=s(K,L)+M(i,j)*N(K-i-1,L-j-1)
t=t+M(i,j)
enddo
enddo
V(K,L)=s(K,L)/t
write(3,200) V(K,L)
enddo
enddo
200 format(100f5.2)
close(1)
close(2)
close(3)
end program

  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥15 maple软件,用solve求反函数出现rootof,怎么办?
    • ¥50 汇编语言除法溢出问题
    • ¥65 C++实现删除N个数据列表共有的元素
    • ¥15 Visual Studio问题
    • ¥15 state显示变量是字符串形式,但是仍然红色,无法引用,并显示类型不匹配
    • ¥20 求一个html代码,有偿
    • ¥100 关于使用MATLAB中copularnd函数的问题
    • ¥20 在虚拟机的pycharm上
    • ¥15 jupyterthemes 设置完毕后没有效果
    • ¥15 matlab图像高斯低通滤波