| 查看: 1629 | 回复: 4 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
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) 最好给出相应的算法思想，有程序最好了 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有5人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有7人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有6人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有9人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 病态矩阵的精确解求解
已经有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人回复
erghper
铜虫 (小有名气)
- 应助: 3 (幼儿园)
- 金币: 1419.8
- 红花: 1
- 帖子: 141
- 在线: 44.8小时
- 虫号: 1146544
- 注册: 2010-11-14
- 性别: GG
- 专业: 原子和分子物理
5楼2014-11-17 19:17:55
wlscj
木虫之王 (文坛精英)
- 应助: 170 (高中生)
- 金币: 211480
- 散金: 28056
- 红花: 321
- 帖子: 32582
- 在线: 1886.2小时
- 虫号: 601878
- 注册: 2008-09-13
- 专业: 应用地球物理学
2楼2014-11-03 19:50:14
wlscj
木虫之王 (文坛精英)
- 应助: 170 (高中生)
- 金币: 211480
- 散金: 28056
- 红花: 321
- 帖子: 32582
- 在线: 1886.2小时
- 虫号: 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
wlscj
木虫之王 (文坛精英)
- 应助: 170 (高中生)
- 金币: 211480
- 散金: 28056
- 红花: 321
- 帖子: 32582
- 在线: 1886.2小时
- 虫号: 601878
- 注册: 2008-09-13
- 专业: 应用地球物理学
4楼2014-11-03 21:12:56
40