Fortran Coder

标题: 矩阵的变换 [打印本页]

作者: Botton 时间: 2020-6-21 11:14
标题: 矩阵的变换
三个4*4的方阵，利用每一个方阵进行耦合，最后成为三个6*6的方阵，求大佬帮忙看看应该怎么弄

IMG_10241.JPG (17.14 KB, 下载次数: 220)

作者: li913 时间: 2020-6-21 16:41
请详细描述如何进行耦合

作者: Botton 时间: 2020-6-21 16:57
就是重叠部分相加

IMG_10261.JPG (23.82 KB, 下载次数: 220)

作者: Botton 时间: 2020-6-21 16:58
麻烦大佬帮忙看一下

作者: necrohan 时间: 2020-6-21 17:40

[Fortran] 纯文本查看 复制代码

integer::m4(4,4),m6(6,6)

! 初始化

m4=1

m4(:,2)=2

m4(:,4)=2

m6=0

! 耦合

m6(1:4,1:4)=m4

m6(3:6,3:6)=m4

m6(3:4,3:4)=m6(3:4,3:4)+m4(1:2,1:2)

! 显示

do i=1,6

write(*,*)m6(i,:)

enddo

end

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)