wysqh

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 4010
帖子: 250
在線: 28.4小時
蟲號: 884780

[交流] 【求助】matlab數(shù)據(jù)導入Fortran

目前有一個用matlab產(chǎn)生的一個128*128特定矩陣存為data.dat文件現(xiàn)在想要將這個矩陣導入到Fortran中存為eta(i,j) 行列要一一對應該如何實現(xiàn)呢？

回復此樓

» 猜你喜歡

材料，紡織，生物（0856、0710），化學招生啦已經(jīng)有8人回復
0703化學調(diào)劑，六級已過，有科研經(jīng)歷已經(jīng)有9人回復
工科材料085601 279求調(diào)劑已經(jīng)有6人回復
070300化學319求調(diào)劑已經(jīng)有5人回復
生物學071000 329分求調(diào)劑已經(jīng)有3人回復
0703化學調(diào)劑已經(jīng)有6人回復
304求調(diào)劑已經(jīng)有12人回復
288求調(diào)劑，一志愿華南理工大學071005 已經(jīng)有3人回復
307求調(diào)劑已經(jīng)有3人回復
312求調(diào)劑已經(jīng)有8人回復

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2011-04-11 10:31:09

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

★ ★
微塵、夢想(金幣+2): 謝謝回貼…… 2011-04-11 11:30:55

你的 data.dat 是個文本文件？

直接讀入不就可以了嗎？也不是啥難事兒……

行列對應無非就是循環(huán)的下標排列的問題。

給個列子說明要如何一一對應……

贊一下(1人)

回復此樓

2樓2011-04-11 10:57:13

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

如果沒有記錯，matlab 與 Fortran 的矩陣存貯格式是一致的。

贊一下

回復此樓

3樓2011-04-11 10:57:41

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wysqh

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 4010
帖子: 250
在線: 28.4小時
蟲號: 884780

引用回帖:

Originally posted by snoopyzhao at 2011-04-11 10:57:13:
你的 data.dat 是個文本文件？

直接讀入不就可以了嗎？也不是啥難事兒……

行列對應無非就是循環(huán)的下標排列的問題。

給個列子說明要如何一一對應……

data.dat文件是按照一行一行的存的如附件
就想實現(xiàn) eta(i,j) 每一行與文件里面的每一行相對應也是128*128排列
是采用read語句實現(xiàn)嗎？具體程序該怎么寫啊。。

[ Last edited by wysqh on 2011-4-11 at 11:34 ]

贊一下

回復此樓

4樓2011-04-11 11:33:08

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

dingxb

金蟲 (正式寫手)

應助: 12 (小學生)
金幣: 1674.5
帖子: 482
在線: 59.5小時
蟲號: 34085

wysqh(金幣+3): 多謝交流~ 2011-04-12 08:27:27

do i = 1, 128
do j = 1, 128
read(file, *) eta(i,j）
end do
end do

基本結(jié)構(gòu)如此，如果需要指定格式的話，替換read語句中的*為格式描述。

贊一下

回復此樓

5樓2011-04-11 14:17:55

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

dingxb

金蟲 (正式寫手)

應助: 12 (小學生)
金幣: 1674.5
帖子: 482
在線: 59.5小時
蟲號: 34085

為了確保讀的正確，一般我都是輸出進行比較。

贊一下

回復此樓

6樓2011-04-11 14:18:53

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

引用回帖:

Originally posted by dingxb at 2011-04-11 14:17:55:
do i = 1, 128
do j = 1, 128
read(file, *) eta(i,j）
end do
end do

基本結(jié)構(gòu)如此，如果需要指定格式的話，替換read語句中的*為格式描述。

其實一句話就夠了，呵呵……

CODE:

read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)

贊一下

回復此樓

7樓2011-04-11 17:50:29

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wysqh

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 4010
帖子: 250
在線: 28.4小時
蟲號: 884780

引用回帖:

我開始是這樣做的但是運行之后會出現(xiàn)下面的錯誤

贊一下

回復此樓

8樓2011-04-11 22:10:37

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wysqh

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 4010
帖子: 250
在線: 28.4小時
蟲號: 884780

引用回帖:

Originally posted by snoopyzhao at 2011-04-11 17:50:29:
其實一句話就夠了，呵呵……

CODE:

read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)

read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)
是不是少了一個括號？

贊一下

回復此樓

9樓2011-04-11 22:14:10

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

wysqh(金幣+7): 謝謝你的建議~因為不是專門搞這個的很多東西不懂 2011-04-12 08:27:11

引用回帖:

Originally posted by wysqh at 2011-04-11 22:14:10:
read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)
是不是少了一個括號？

數(shù)括號我還是會的，我不知道你咋看出來少了一個括號，呵呵……

下面是我測試過的代碼：

CODE:

program readata

real(kind=kind(1.0d0)), dimension(128,128) :: mat

integer :: i,j

read(unit=5,fmt=*) ((mat(i,j), j = 1,128),i=1,128)

!do i=1,128

!   write(*,*) (mat(i,j), j = 1,128)

!end do

end program readata

贊一下

回復此樓

10樓2011-04-11 23:16:05

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 材料專碩306英一數(shù)二 +9	z1z2z3879 2026-03-16	12/600	2026-03-18 08:53 by zhukairuo
[考研] 能源材料化學課題組招收碩士研究生8-10名 +3	脫穎而出 2026-03-16	6/300	2026-03-17 21:19 by z1z2z3879
[考研] 341求調(diào)劑 +5	搗蛋豬豬 2026-03-11	7/350	2026-03-17 19:09 by 搗蛋豬豬
[考研] 材料工程專碩調(diào)劑 +5	204818@lcx 2026-03-17	5/250	2026-03-17 17:27 by Little-xue
[考研] 302求調(diào)劑 +9	負心者當誅 2026-03-11	9/450	2026-03-17 17:13 by ruiyingmiao
[考研] 293求調(diào)劑 +6	世界首富 2026-03-11	6/300	2026-03-17 17:04 by ruiyingmiao
[考研] 332求調(diào)劑 +6	Zz版 2026-03-13	6/300	2026-03-17 17:03 by ruiyingmiao
[考研] 274求調(diào)劑0856材料化工 +13	z2839474511 2026-03-11	14/700	2026-03-17 16:51 by share_joy
[考研] 材料與化工專碩調(diào)劑 +5	heming3743 2026-03-16	5/250	2026-03-17 14:03 by 勇敢太監(jiān)王公公
[基金申請] 國自科面上基金字體 +6	iwuli 2026-03-12	7/350	2026-03-16 21:18 by sculhf
[考研] 304求調(diào)劑 +3	曼殊2266 2026-03-14	3/150	2026-03-16 16:39 by houyaoxu
[考研] 085600材料與化工求調(diào)劑 +13	enenenhui 2026-03-13	14/700	2026-03-16 15:19 by 了了了了。。
[考研] 材料與化工一志愿南昌大學327求調(diào)劑推薦 +7	Ncdx123456 2026-03-13	8/400	2026-03-16 12:15 by karry wen
[考研] 機械專碩調(diào)劑 +3	笨笨兔子 2026-03-12	3/150	2026-03-15 20:02 by 栗子粥?
[考研] 289求調(diào)劑 +4	這么名字咋樣 2026-03-14	6/300	2026-03-14 18:58 by userper
[考研] 材料080500調(diào)劑求收留 +3	一顆meteor 2026-03-13	3/150	2026-03-14 10:54 by peike
[考研] 學碩285求調(diào)劑 +13	Wisjxn 2026-03-12	46/2300	2026-03-14 10:33 by JourneyLucky
[考研] 求調(diào)劑 +5	一定有學上- 2026-03-12	5/250	2026-03-13 18:31 by ms629
[考研] 307求調(diào)劑 +5	超級伊昂大王 2026-03-12	5/250	2026-03-13 15:56 by 棒棒球手
[考研] 283求調(diào)劑，材料、化工皆可 +8	蘇打水7777 2026-03-11	10/500	2026-03-13 09:06 by Linda Hu