| 5 | 1/1 | 返回列表 |
| 查看: 1449 | 回復: 4 | ||
[求助]
fortran中如何創(chuàng)建由二維矩陣為元素的1維矩陣 已有1人參與
|
|
請問高手 在fortran中如何創(chuàng)建由二維矩陣為元素的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) 最好給出相應的算法思想,有程序最好了 |
木蟲之王 (文壇精英)
木蟲之王 (文壇精英)
|
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 |
木蟲之王 (文壇精英)
銅蟲 (小有名氣)
| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 282求調劑 +17 | ycy1201 2026-04-01 | 19/950 |
|
|---|---|---|---|---|
|
[考研] 342求調劑 +12 | Mary Keen 2026-03-28 | 13/650 |
|
|
[考研] 285求調劑 +7 | AZMK 2026-03-30 | 13/650 |
|
|
[考研]
|
y7czhao 2026-03-26 | 11/550 |
|
|
[基金申請] esi高被引論文是不是能對中標有所加分和幫助呢 +3 | redcom 2026-04-01 | 3/150 |
|
|
[考研] 求生物學調劑 +7 | 15172915737 2026-04-01 | 7/350 |
|
|
[考研] 生物學 296 求調劑 +9 | 朵朵- 2026-03-26 | 11/550 |
|
|
[考研] 安徽大學專碩生物與醫(yī)藥專業(yè)(086000)324分,英語已過四六級,六級521,求調劑 +10 | 美味可樂雞翅 2026-03-26 | 12/600 |
|
|
[考研] 358求調劑 +3 | 王向陽花 2026-03-31 | 3/150 |
|
|
[考研] 土木304求調劑 +5 | 兔突突突, 2026-03-31 | 6/300 |
|
|
[考研] 初試301,代碼085701環(huán)境工程,本碩一致,四六級已過,有二區(qū)一作,共發(fā)表5篇論文 +3 | axibli 2026-04-01 | 3/150 |
|
|
[考研] 335求調劑 +3 | 321* 2026-03-31 | 4/200 |
|
|
[考研] 08開頭看過來!。 +3 | wwwwffffff 2026-03-31 | 5/250 |
|
|
[考研] 262求調劑 +7 | ZZ..000 2026-03-30 | 8/400 |
|
|
[考研] 11408總分309,一志愿東南大學求調劑,不挑專業(yè) +5 | 天賦帶到THU 2026-03-29 | 6/300 |
|
|
[考研] 一志愿華中師范化學332分求調劑 +3 | Lyy930824@ 2026-03-29 | 3/150 |
|
|
[考研] 297求調劑 +17 | 田洪有 2026-03-26 | 18/900 |
|
|
[考研] 356求調劑 +3 | gysy?s?a 2026-03-28 | 3/150 |
|
|
[考研] 394求調劑 +3 | 好事多磨靜候佳?/a> 2026-03-26 | 5/250 |
|
|
[考研] 一志愿吉大071010,316分求調劑 +3 | xgbiknn 2026-03-27 | 3/150 |
|