矩阵的变换

Botton · 发表于 2020-6-21 11:14:53

三个4*4的方阵，利用每一个方阵进行耦合，最后成为三个6*6的方阵，求大佬帮忙看看应该怎么弄

necrohan · 发表于 2020-6-21 17:40:52

[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

Botton · 发表于 2020-6-21 16:58:21

麻烦大佬帮忙看一下

Botton · 发表于 2020-6-21 16:57:41

就是重叠部分相加

li913 · 发表于 2020-6-21 16:41:57

请详细描述如何进行耦合

[数值问题] 矩阵的变换

评分

规矩勋章