24小时热门版块排行榜

返回列表

xuanyz

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 3002.5
红花: 1
帖子: 159
在线: 89.7小时
虫号: 1241869
注册: 2011-03-22
专业: 光学

[求助] fortran中如何创建由二维矩阵为元素的1维矩阵已有1人参与

请问高手在fortran中如何创建由二维矩阵为元素的1维矩阵变量
例如有3个2维矩阵
a1=[1 2 3    a2= [1 2 3          a3=[ 1 2 3
   2 3 4             4 5 6                4 5 6
   4 5 6]          7 8 9]                7 7 7]

如何以这3个二维矩阵为元素构造出新矩阵b=(a1,a2,a3)

最好给出相应的算法思想，有程序最好了

回复此楼

» 猜你喜欢

博士读完未来一定会好吗已经有21人回复
导师想让我从独立一作变成了共一第一已经有5人回复
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有11人回复
读博已经有4人回复
JMPT 期刊投稿流程已经有4人回复
心脉受损已经有5人回复
Springer期刊投稿求助已经有4人回复
小论文投稿已经有3人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有9人回复
申请2026年博士已经有6人回复

» 本主题相关价值贴推荐，对您同样有帮助:

病态矩阵的精确解求解已经有17人回复
在VB 中怎样只给一维数组的第一个元素赋值？已经有5人回复
矩阵计算的理论与方法已经有7人回复
稀疏矩阵的处理已经有12人回复
matlab求大型矩阵的逆（上万维矩阵）已经有11人回复
对角阵的-1/2怎么算已经有7人回复
怎么将此for循环改为矩阵形式？已经有5人回复
matlab循环计算转为矩阵 30金币求助已经有7人回复
fortran到底怎么弄稀疏矩阵啊？已经有8人回复
matlab如何实现矩阵多行数据的循环调用已经有5人回复
怎么读取Siesta输出的Hamiltonian and overlap矩阵(*.HSX文件)？已经有16人回复
求能得到跃迁矩阵元的程序已经有4人回复
fortran能求带字母矩阵的本征值吗？（矩阵元素带有字母，能得到形式解吗）已经有5人回复
如何用c++来求解矩阵的相关问题。已经有12人回复
fortran程序怎样调用lapack库进行矩阵对角化？已经有7人回复
【求助】fortran求解矩阵已经有7人回复
【讨论】PCA的协方差矩阵每一个特征值对应的单位特征向量是否唯一? 已经有4人回复
【求助】矩阵知识求助已经有13人回复
【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组? 已经有5人回复
【求助】关于matlab的高维数组已经有6人回复

1楼2014-10-25 21:51:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

wlscj

木虫之王 (文坛精英)

应助: 170 (高中生)
金币: 210529
散金: 28056
红花: 319
帖子: 32523
在线: 1883.6小时
虫号: 601878
注册: 2008-09-13
专业: 应用地球物理学

【答案】应助回帖

你是要构造多维数组?

赞一下

回复此楼

2楼2014-11-03 19:50:14

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

wlscj

木虫之王 (文坛精英)

应助: 170 (高中生)
金币: 210529
散金: 28056
红花: 319
帖子: 32523
在线: 1883.6小时
虫号: 601878
注册: 2008-09-13
专业: 应用地球物理学

【答案】应助回帖

program arrayb
implicit none
integer,dimension(9)::a10,a20,a30
integer,dimension(3,3)::a1,a2,a3
integer,dimension(3,9)::b

data a10/1,2,3,2,3,4,4,5,6/
data a20/1,2,3,4,5,6,7,8,9/
data a30/1,2,3,4,5,6,7,7,7/

a1(1,:)=a10(1:3)
a1(2,:)=a10(4:6)
a1(3,:)=a10(7:9)

a2(1,:)=a20(1:3)
a2(2,:)=a20(4:6)
a2(3,:)=a20(7:9)

a3(1,:)=a30(1:3)
a3(2,:)=a30(4:6)
a3(3,:)=a30(7:9)

b(1,1:3)=a1(1,:)
b(1,4:6)=a1(2,:)
b(1,7:9)=a1(3,:)
!that is b(1,:)=a10

b(2,1:3)=a2(1,:)
b(2,4:6)=a2(2,:)
b(2,7:9)=a2(3,:)

! that is b(2,:)=a20

b(3,1:3)=a3(1,:)
b(3,4:6)=a3(2,:)
b(3,7:9)=a3(3,:)
!that is b(3,:)=a30

end

赞一下

回复此楼

3楼2014-11-03 21:11:44

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖