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

矩阵的变换

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

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

请详细描述如何进行耦合

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

就是重叠部分相加

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

麻烦大佬帮忙看一下

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

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
页: [1]
查看完整版本: 矩阵的变换