| 5 | 1/1 | 返回列表 |
| 查看: 1452 | 回復(fù): 4 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | |||
xuanyz木蟲 (小有名氣)
|
[求助]
fortran中如何創(chuàng)建由二維矩陣為元素的1維矩陣 已有1人參與
|
||
|
請(qǐng)問高手 在fortran中如何創(chuàng)建由二維矩陣為元素的1維矩陣變量 例如有3個(gè)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個(gè)二維矩陣為元素構(gòu)造出新矩陣b=(a1,a2,a3) 最好給出相應(yīng)的算法思想,有程序最好了 |
木蟲之王 (文壇精英)
|
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 |
木蟲之王 (文壇精英)
木蟲之王 (文壇精英)
銅蟲 (小有名氣)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 材料調(diào)劑 +3 | 懶羊羊輕置玉臀 2026-04-02 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 272求調(diào)劑,接受跨專業(yè)調(diào)劑! +4 | 閑魚盧 2026-03-31 | 4/200 |
|
|
[考研] 322求調(diào)劑 +5 | 熹僖XX 2026-03-31 | 6/300 |
|
|
[考研] 354求調(diào)劑 +4 | lxb598 2026-03-31 | 5/250 |
|
|
[考研] 一志愿南昌大學(xué)324求調(diào)劑 +11 | hanamiko 2026-04-01 | 11/550 |
|
|
[考研] 265求調(diào)劑 +3 | 梁梁校校 2026-04-01 | 3/150 |
|
|
[考研] 267求調(diào)劑 +13 | uiybh 2026-03-31 | 13/650 |
|
|
[考研] 358求調(diào)劑 +3 | 王向陽花 2026-03-31 | 3/150 |
|
|
[考研] 土木304求調(diào)劑 +3 | 兔突突突, 2026-03-31 | 3/150 |
|
|
[考研] 一志愿華東師范大學(xué)有機(jī)化學(xué)專業(yè),初試351分,復(fù)試被刷求調(diào)劑! +9 | 真名有冰 2026-03-29 | 10/500 |
|
|
[考研] 本2一志愿C9-333分,材料科學(xué)與工程,求調(diào)劑 +9 | 升升不降 2026-03-31 | 9/450 |
|
|
[考研] 080500-315分復(fù)試調(diào)劑 +9 | 上岸3821 2026-03-31 | 9/450 |
|
|
[基金申請(qǐng)] 面上5B能上會(huì)嗎? +8 | redcom 2026-03-29 | 8/400 |
|
|
[考研] 一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分 +13 | 辰沐5211314 2026-03-26 | 13/650 |
|
|
[考研] 08工科,295,接受跨專業(yè)調(diào)劑 +6 | lmnlzy 2026-03-30 | 6/300 |
|
|
[考研] 293分求調(diào)劑,外語為俄語 +5 | 加一一九 2026-03-31 | 5/250 |
|
|
[考研] 一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑 +5 | 兔兔兔111223314 2026-03-29 | 7/350 |
|
|
[考研] 085600,材料與化工321分求調(diào)劑 +10 | 大饞小子 2026-03-28 | 10/500 |
|
|
[碩博家園] 招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑 +4 | IceGuo 2026-03-26 | 5/250 |
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|