版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗(yàn)證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

duhb655

金蟲 (著名寫手)

應(yīng)助: 23 (小學(xué)生)
金幣: 1371.3
散金: 4117
紅花: 11
帖子: 1438
在線: 700.2小時
蟲號: 1123253
注冊: 2010-10-15
性別: GG
專業(yè): 自然地理學(xué)

[求助] fortran 怎么按行讀取數(shù)據(jù)（有小例子）已有3人參與

深度             溫度             電導(dǎo)率
50.00000       28.30186       54.27303
51.00000       28.28920       54.27039
52.00000       28.27396       54.26752
53.00000       28.25474       54.27453
54.00000       28.23691       54.28119
55.00000       28.23033       54.29279
56.00000       28.22947       54.30813
57.00000       28.21856       54.30784
58.00000       28.20773       54.31368
59.00000       28.19656       54.32171
60.00000       28.15063       54.28722
我用的是網(wǎng)上的一個數(shù)據(jù)，我寫的程序?yàn)椋?fieldset>CODE:

PROGRAM TE

REAL::A(11,3)

INTEGER ::I,J

CHARACTER C

OPEN(13,FILE='Result.txt')

DO J=1,1

   READ(13,*)C

ENDDO

OPEN(12,FILE='result1.TXT')

DO I=1,11

   READ(13,*) A(I,1:3)

ENDDO

WRITE(12,"(3f10.5)") A

CLOSE(13)

CLOSE(12)

END

得到的結(jié)果是：
50.00000  51.00000  52.00000
  53.00000  54.00000  55.00000
  56.00000  57.00000  58.00000
  59.00000  60.00000  28.30186
  28.28920  28.27396  28.25474
  28.23691  28.23033  28.22947
  28.21856  28.20773  28.19656
  28.15063  54.27303  54.27039
  54.26752  54.27453  54.28119
  54.29279  54.30813  54.30784
  54.31368  54.32171  54.28722
我想得到原來一樣的數(shù)據(jù)，我看結(jié)果意思是按列讀取，怎么能按行讀取啊，或怎么能得到和原來一樣的矩陣，如果可能的話，不要用A1,A2,A3三列來做，因?yàn)槲业臄?shù)據(jù)有很多列，謝謝了！

[ Last edited by jjdg on 2014-2-9 at 10:07 ]

回復(fù)此樓

» 收錄本帖的淘帖專輯推薦

經(jīng)驗(yàn)

» 猜你喜歡

求材料調(diào)劑已經(jīng)有7人回復(fù)
一志愿天大材料與化工（085600）總分338 已經(jīng)有3人回復(fù)
085600材料與化工已經(jīng)有5人回復(fù)
085600材料與化工調(diào)劑 324分已經(jīng)有6人回復(fù)
286求調(diào)劑已經(jīng)有9人回復(fù)
焦慮已經(jīng)有12人回復(fù)
344求調(diào)劑已經(jīng)有6人回復(fù)
266求調(diào)劑已經(jīng)有9人回復(fù)
化學(xué)工程321分求調(diào)劑已經(jīng)有18人回復(fù)
314求調(diào)劑已經(jīng)有8人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

Matlab讀取多個文件中某一列的最大值然后輸出到一個txt中已經(jīng)有8人回復(fù)
Fortran輸出二進(jìn)制數(shù)據(jù)，用matlab讀出，結(jié)果出錯，求助問題何在？已經(jīng)有4人回復(fù)
用fortran怎么讀.CSV文件已經(jīng)有11人回復(fù)
一下的數(shù)據(jù)如何通過C++讀取已經(jīng)有20人回復(fù)
fortran文件操作，接著寫不覆蓋已經(jīng)有3人回復(fù)
FORTRAN中如何實(shí)現(xiàn)重復(fù)讀取一行？已經(jīng)有24人回復(fù)
fortran，帶字符的數(shù)據(jù)讀取與存儲！已經(jīng)有11人回復(fù)
求助 Matlab 讀取圖上數(shù)據(jù)點(diǎn) Data Cursor 顯示數(shù)據(jù)問題已經(jīng)有6人回復(fù)
FORTRAN 讀取文件數(shù)據(jù)出錯已經(jīng)有6人回復(fù)
又來求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值�。� 已經(jīng)有3人回復(fù)
求問fortran中”-.“數(shù)據(jù)，這種格式的數(shù)據(jù)是一個負(fù)的XX數(shù)么已經(jīng)有5人回復(fù)
Fortran的格式化輸入輸出問題已經(jīng)有14人回復(fù)
fortran兩個問題，文件中的空格，屏幕同一行覆蓋輸出已經(jīng)有23人回復(fù)
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離已經(jīng)有34人回復(fù)
【求助】FORTRAN寫文件時每行開頭都多了一個空格？已經(jīng)有6人回復(fù)
【討論】怎么從文件的最后一行讀數(shù)據(jù)？已經(jīng)有4人回復(fù)
【求助】VB如何讀取txt文件~~ 已經(jīng)有12人回復(fù)
【求助】fortran中怎么存儲不確定長度的數(shù)據(jù)【已完結(jié)】已經(jīng)有6人回復(fù)
【求助】Fortran 如何讀取文件中特定行的內(nèi)容已經(jīng)有16人回復(fù)
【求助】有關(guān)fortran進(jìn)行數(shù)值模擬已經(jīng)有10人回復(fù)
【交流】Fortran語言答疑專帖已經(jīng)有157人回復(fù)

1樓 2014-02-09 09:50:37

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

回帖支持 ( 顯示支持度最高的前 50 名 )

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★
jjdg: 金幣+1, 辛苦了 2014-02-13 11:52:05

引用回帖:

7樓: Originally posted by duhb655 at 2014-02-09 23:47:30
zhao老師，要不您幫幫忙，我給出一個小例子，然后我說出想要做什么（很簡單），然后您幫我寫一下主要的句子我學(xué)習(xí)學(xué)習(xí)，行不。TXT數(shù)據(jù)如下：
50 40 28.30186 54.27303
51 41 28.28920 ...

一個 A 是沒有辦法既存整弄，又存實(shí)型的。分成兩個可以：

CODE:

PROGRAM test

   IMPLICIT NONE

   INTEGER :: i, ios

   INTEGER, DIMENSION(11,2) :: c1_2

   REAL, DIMENSION(11,2) :: c3_4

   OPEN(UNIT = 12, FILE = 'aa.txt')

   DO i=1,11

      READ(12,'(I2,TR5,I2,TR5,F8.5,TR10,F8.5)') c1_2(i,:), c3_4(i,:)

   END DO

   DO i=1,11

      WRITE(*, '(2(TR2,I2),2(TR2,F8.5))') c1_2(i,:), c3_4(i,:)

   END DO

END PROGRAM test

贊一下(1人)

回復(fù)此樓

14樓2014-02-10 02:45:07

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

普通回帖

jjdg

版主 (知名作家)

程序強(qiáng)帖: 9
應(yīng)助: 223 (大學(xué)生)
貴賓: 3.926
金幣: 51005.2
紅花: 238
帖子: 7227
在線: 474.2小時
蟲號: 27000
注冊: 2003-10-21
專業(yè): 藥物代謝與藥物動力學(xué)
管轄: 程序語言

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

你想用CHARACTER, INTEGER 還是什么讀入??
如果用CHARACTER..
character(len=100):: dummy
read(1,'(a)') dummy
這樣就可以了.
或者
比如你要將12 3445 345 3809 97 87賦給a b c d e f五個變量
read(1,*)a,b,c,d,e
如果你在read后面只跟了一個變量名，那么就只能讀取一個；你有多少個就把1:3改了即可

贊一下

回復(fù)此樓

努力學(xué)習(xí)！以正當(dāng)途徑！獲得需要的知識！

2樓2014-02-09 10:13:53

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

duhb655

金蟲 (著名寫手)

應(yīng)助: 23 (小學(xué)生)
金幣: 1371.3
散金: 4117
紅花: 11
帖子: 1438
在線: 700.2小時
蟲號: 1123253
注冊: 2010-10-15
性別: GG
專業(yè): 自然地理學(xué)

引用回帖:

2樓: Originally posted by jjdg at 2014-02-09 10:13:53
你想用CHARACTER, INTEGER 還是什么讀入??
如果用CHARACTER..
character(len=100):: dummy
read(1,'(a)') dummy
這樣就可以了.
或者
比如你要將12 3445 345 3809 97 87賦給a b c d e f五個變量
read(1,*)a,b ...

謝謝版主，
1，第一個C只是不想要第一行，只要后面的數(shù)據(jù)；
2，是原始數(shù)據(jù)有幾列就得用幾個變量嗎？不會吧，我剛接觸F，不懂。我在提問前也上網(wǎng)到處找了的，我看好多也都是這樣做啊，但為什么我的得出來的結(jié)果不對啊？
3，我用三個變量REAL（11）：：A1，A2，A3得出的結(jié)果和我之前的結(jié)果是一樣的，錯的啊？
求指教！

贊一下

回復(fù)此樓

3樓2014-02-09 10:25:30

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
duhb655: 金幣+10, ★★★很有幫助 2014-02-09 23:49:27
xzhdty: 金幣+1, 謝謝參與 2014-02-10 08:48:22
jjdg: 編輯內(nèi)容 2014-02-13 11:49

讀的并沒有錯，也是按行讀的，F(xiàn)ortran 還沒有高級到可以按列來讀入數(shù)據(jù)的

錯的在于你打印的那句話：
WRITE(12,"(3f10.5)" ) A
這句話只是告訴程序把 A 這個矩陣中的數(shù)據(jù)打出來，每行三個實(shí)數(shù)

但你要清楚的是 Fortran 內(nèi)部的矩陣存貯是列優(yōu)先的，所以，它先把第一列拿出來打印，打印完了打印第二列，再打印第三列

你要想按讀的方式打印，就要顯示地寫成循環(huán)或者使用 WRITE 支持的隱式循環(huán)……

[ Last edited by jjdg on 2014-2-13 at 11:49 ]

贊一下

回復(fù)此樓

4樓2014-02-09 13:21:38

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

polypro

木蟲 (正式寫手)

應(yīng)助: 197 (高中生)
金幣: 3921.3
散金: 160
紅花: 22
帖子: 512
在線: 62.6小時
蟲號: 1809438
注冊: 2012-05-11
性別: GG
專業(yè): 理論和計(jì)算化學(xué)

【答案】應(yīng)助回帖

★
感謝參與，應(yīng)助指數(shù) +1
xzhdty: 金幣+1, 謝謝參與 2014-02-10 08:48:33

接3L，將write那一句替換就行了
DO I=1,11
write(13,*) A(I,1:3)
ENDDO

贊一下

回復(fù)此樓

» 本帖已獲得的紅花（最新10朵）

duhb655

泉涸,魚相與處于陸,相呴以濕,相濡以沫,不如相忘于江湖。

5樓2014-02-09 15:07:37

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

physliebe

新蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 16.3
散金: 40
紅花: 1
帖子: 148
在線: 215.6小時
蟲號: 1933844
注冊: 2012-08-11
性別: GG
專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

jjdg: 編輯內(nèi)容 2014-02-13 11:50

引用回帖:

4樓: Originally posted by snoopyzhao at 2014-02-09 13:21:38
讀的并沒有錯，也是按行讀的，F(xiàn)ortran 還沒有高級到可以按列來讀入數(shù)據(jù)的

錯的在于你打印的那句話：
WRITE(12,"(3f10.5)" ) A
這句話只是告訴程序把 A 這個矩陣中的數(shù)據(jù)打出來，每行三個實(shí)數(shù)

但你 ...

WRITE(12,"(3f10.5)"; ) A，這種輸出矩陣的方法試了一下，報(bào)錯

[ Last edited by jjdg on 2014-2-13 at 11:50 ]

贊一下

回復(fù)此樓

Whenever you feel like criticizing any one,just remember that all the people in this world haven’t had the advantages that you’ve had.

6樓2014-02-09 19:33:13

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

duhb655

金蟲 (著名寫手)

應(yīng)助: 23 (小學(xué)生)
金幣: 1371.3
散金: 4117
紅花: 11
帖子: 1438
在線: 700.2小時
蟲號: 1123253
注冊: 2010-10-15
性別: GG
專業(yè): 自然地理學(xué)

引用回帖:

4樓: Originally posted by snoopyzhao at 2014-02-09 13:21:38
讀的并沒有錯，也是按行讀的，F(xiàn)ortran 還沒有高級到可以按列來讀入數(shù)據(jù)的

錯的在于你打印的那句話：
WRITE(12,"(3f10.5)"

A
這句話只是告訴程序把 A 這個矩陣中的數(shù)據(jù)打出來，每行三個實(shí)數(shù)

但你 ...

zhao老師，要不您幫幫忙，我給出一個小例子，然后我說出想要做什么（很簡單），然后您幫我寫一下主要的句子我學(xué)習(xí)學(xué)習(xí)，行不。TXT數(shù)據(jù)如下：
50    40    28.30186       54.27303
51    41    28.28920       54.27039
52    42    28.27396       54.26752
53    43    28.25474       54.27453
54    44    28.23691       54.28119
55    45    28.23033       54.29279
56    46    28.22947       54.30813
57    47    28.21856       54.30784
58    48    28.20773       54.31368
59    49    28.19656       54.32171
60    50    28.15063       54.28722
四列數(shù)據(jù)，前兩列為整型，后倆為實(shí)型，把這個TXT數(shù)據(jù)讀取存在A中，然后再把A導(dǎo)出為另一個TXT，謝謝您！

贊一下

回復(fù)此樓

7樓2014-02-09 23:47:30

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

duhb655

金蟲 (著名寫手)

應(yīng)助: 23 (小學(xué)生)
金幣: 1371.3
散金: 4117
紅花: 11
帖子: 1438
在線: 700.2小時
蟲號: 1123253
注冊: 2010-10-15
性別: GG
專業(yè): 自然地理學(xué)

送紅花一朵

引用回帖:

5樓: Originally posted by polypro at 2014-02-09 15:07:37
接3L，將write那一句替換就行了
DO I=1,11
write(13,*) A(I,1:3)
ENDDO

不好意思，BB沒了，就送紅花一朵。這個我好像解決了，但有個問題，原TXT中有的列是整型有的是實(shí)型，我這樣一下全給別人弄成實(shí)型了，麻煩您看一下7樓，不知道您能不能給點(diǎn)意見，謝謝啦！

贊一下

回復(fù)此樓

8樓2014-02-09 23:52:07

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

duhb655

金蟲 (著名寫手)

應(yīng)助: 23 (小學(xué)生)
金幣: 1371.3
散金: 4117
紅花: 11
帖子: 1438
在線: 700.2小時
蟲號: 1123253
注冊: 2010-10-15
性別: GG
專業(yè): 自然地理學(xué)

jjdg: 編輯內(nèi)容 2014-02-13 11:51

引用回帖:

6樓: Originally posted by physliebe at 2014-02-09 19:33:13
WRITE(12,"(3f10.5)"; ) A，這種輸出矩陣的方法試了一下，報(bào)錯...

謝謝您，不過是：
WRITE(12,"(3f10.5)" ) A

[ Last edited by jjdg on 2014-2-13 at 11:51 ]

贊一下

回復(fù)此樓

9樓2014-02-09 23:52:57

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

duhb655

金蟲 (著名寫手)

應(yīng)助: 23 (小學(xué)生)
金幣: 1371.3
散金: 4117
紅花: 11
帖子: 1438
在線: 700.2小時
蟲號: 1123253
注冊: 2010-10-15
性別: GG
專業(yè): 自然地理學(xué)

引用回帖:

6樓: Originally posted by physliebe at 2014-02-09 19:33:13
WRITE(12,"(3f10.5)"; ) A，這種輸出矩陣的方法試了一下，報(bào)錯...

我暈怎么又變成了笑臉，不是；）而只是）

贊一下

回復(fù)此樓

10樓2014-02-09 23:54:11

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 duhb655 的主題更新

返回列表

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

[考研] 一志愿天大材料與化工（085600）總分338 +3	蔡大美女 2026-03-13	3/150	2026-03-18 15:53 by jhhcooi
[考研] 085600材料與化工調(diào)劑 324分 +6	llllkkkhh 2026-03-18	6/300	2026-03-18 15:32 by cmz0325
[考研] 288求調(diào)劑，一志愿華南理工大學(xué)071005 +4	ioodiiij 2026-03-17	4/200	2026-03-18 12:36 by Linda Hu
[考研] 生物學(xué)071000 329分求調(diào)劑 +3	我愛生物生物愛?/a> 2026-03-17	3/150	2026-03-18 10:12 by macy2011
[考研] 307求調(diào)劑 +3	冷笙123 2026-03-17	3/150	2026-03-18 09:55 by macy2011
[考研] 334求調(diào)劑 +3	志存高遠(yuǎn)意在機(jī)?/a> 2026-03-16	3/150	2026-03-18 08:34 by lm4875102
[考研] 材料與化工求調(diào)劑 +6	為學(xué)666 2026-03-16	6/300	2026-03-17 20:15 by peike
[考研] 材料工程專碩調(diào)劑 +5	204818@lcx 2026-03-17	5/250	2026-03-17 17:27 by Little-xue
[考研] 290求調(diào)劑 +3	p asserby. 2026-03-15	4/200	2026-03-17 16:35 by wangkm
[考研] 求調(diào)劑，總分315，考的生物醫(yī)藥，一志愿湖南師范大學(xué)。調(diào)劑到任何專業(yè)都可以 +4	小丁想進(jìn)步 2026-03-11	5/250	2026-03-17 16:05 by 外星文明
[考研] [導(dǎo)師推薦]西南科技大學(xué)國防/材料導(dǎo)師推薦 +3	尖角小荷 2026-03-16	6/300	2026-03-16 23:21 by 尖角小荷
[考研] 一志愿211 0703方向310分求調(diào)劑 +3	努力奮斗112 2026-03-15	3/150	2026-03-16 16:44 by houyaoxu
[考研] 304求調(diào)劑 +3	曼殊2266 2026-03-14	3/150	2026-03-16 16:39 by houyaoxu
[考研] 070303 總分349求調(diào)劑 +3	LJY9966 2026-03-15	5/250	2026-03-16 14:24 by xwxstudy
[考研] 復(fù)試調(diào)劑 +3	呼呼？~+123456 2026-03-14	3/150	2026-03-14 16:53 by WTUChen
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 材料080500調(diào)劑求收留 +3	一顆meteor 2026-03-13	3/150	2026-03-14 10:54 by peike
[考研] 304求調(diào)劑 +7	7712b 2026-03-13	7/350	2026-03-13 21:42 by peike
[考研] 290求調(diào)劑 +7	ADT 2026-03-12	7/350	2026-03-13 15:17 by JourneyLucky
[考研] 290求調(diào)劑 +3	ADT 2026-03-13	3/150	2026-03-13 10:19 by peike

24小時熱門版塊排行榜

[求助] fortran 怎么按行讀取數(shù)據(jù)（有小例子） 已有3人參與

» 收錄本帖的淘帖專輯推薦

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本帖已獲得的紅花（最新10朵）

[求助] fortran 怎么按行讀取數(shù)據(jù)（有小例子）已有3人參與