| 24小時(shí)熱門(mén)版塊排行榜 |
| 5 | 1/1 | 返回列表 |
| 查看: 1451 | 回復(fù): 4 | ||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | ||
xuanyz木蟲(chóng) (小有名氣)
|
[求助]
fortran中如何創(chuàng)建由二維矩陣為元素的1維矩陣 已有1人參與
|
|
|
請(qǐng)問(wèn)高手 在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)的算法思想,有程序最好了 |
木蟲(chóng)之王 (文壇精英)
木蟲(chóng)之王 (文壇精英)
木蟲(chó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 |
銅蟲(chóng) (小有名氣)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 271求調(diào)劑 +15 | 勒布朗@ 2026-03-31 | 20/1000 |
|
|---|---|---|---|---|
|
[考研] 367求調(diào)劑 +8 | 芋泥啵! 2026-03-28 | 8/400 |
|
|
[考研] 0817化工學(xué)碩調(diào)劑 +11 | 努力上岸中! 2026-03-31 | 11/550 |
|
|
[考研] 化學(xué)308分調(diào)劑 +13 | 你好明天你好 2026-03-30 | 14/700 |
|
|
[考研] 311求調(diào)劑 +10 | 李芷新1 2026-03-31 | 10/500 |
|
|
[考研] 0710生物學(xué)求調(diào)劑! +6 | 敘述文 2026-03-31 | 6/300 |
|
|
[考研] 318求調(diào)劑 +3 | 篤行致遠(yuǎn). 2026-03-31 | 3/150 |
|
|
[考研] 一志愿華東師范大學(xué)有機(jī)化學(xué)專(zhuān)業(yè),初試351分,復(fù)試被刷求調(diào)劑! +9 | 真名有冰 2026-03-29 | 10/500 |
|
|
[考研] 315求調(diào)劑 +6 | akie... 2026-03-28 | 7/350 |
|
|
[考研] 277跪求調(diào)劑 +8 | 1915668 2026-03-27 | 13/650 |
|
|
[考研] 276求調(diào)劑 +3 | 趙久華 2026-03-29 | 3/150 |
|
|
[考研] 293分求調(diào)劑,外語(yǔ)為俄語(yǔ) +5 | 加一一九 2026-03-31 | 5/250 |
|
|
[考研] 298求調(diào)劑 +4 | 種圣賜 2026-03-28 | 4/200 |
|
|
[碩博家園] 招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑 +4 | IceGuo 2026-03-26 | 5/250 |
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +6 | 崔wj 2026-03-26 | 6/300 |
|
|
[考研] 11408軟件工程求調(diào)劑 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|
|
[考研] 求佛 +7 | 迷人的哈哈 2026-03-28 | 7/350 |
|
|
[考研] 085405 考的11408求各位老師帶走 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|
|
[考研] 305求調(diào)劑 +5 | 哇盧卡庫(kù) 2026-03-26 | 5/250 |
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|