Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 矩阵的变换

矩阵的变换

查看数: 7016 | 评论数: 4 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

Botton

发布时间: 2020-6-21 11:14

正文摘要:

三个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

评分

参与人数 1	F 币 +6	收起理由
fcode	+ 6	很给力!

查看全部评分

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

麻烦大佬帮忙看一下

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

请详细描述如何进行耦合

矩阵的变换

正文摘要:

回复

评分