Fortran Coder

查看: 75|回复: 4

[数值问题] 矩阵的变换

[复制链接]

8

帖子

3

主题

0

精华

入门

F 币
58 元
贡献
28 点

规矩勋章

发表于 2020-6-21 11:14:53 | 显示全部楼层 |阅读模式
三个4*4的方阵,利用每一个方阵进行耦合,最后成为三个6*6的方阵,求大佬帮忙看看应该怎么弄
IMG_10241.JPG
回复

使用道具 举报

531

帖子

1

主题

0

精华

大宗师

F 币
2639 元
贡献
1684 点
发表于 2020-6-21 16:41:57 | 显示全部楼层
请详细描述如何进行耦合

8

帖子

3

主题

0

精华

入门

F 币
58 元
贡献
28 点

规矩勋章

 楼主| 发表于 2020-6-21 16:57:41 | 显示全部楼层
就是重叠部分相加
IMG_10261.JPG

8

帖子

3

主题

0

精华

入门

F 币
58 元
贡献
28 点

规矩勋章

 楼主| 发表于 2020-6-21 16:58:21 | 显示全部楼层
麻烦大佬帮忙看一下

128

帖子

2

主题

0

精华

大师

F 币
769 元
贡献
400 点

规矩勋章

发表于 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

评分

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

查看全部评分

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-7-8 18:30

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表