24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

duhb655

金虫 (著名写手)

应助: 23 (小学生)
金币: 1371.3
散金: 4117
红花: 11
帖子: 1438
在线: 700.2小时
虫号: 1123253
注册: 2010-10-15
性别: GG
专业: 自然地理学

[求助] fortran 怎么按行读取数据（有小例子）已有3人参与

深度             温度             电导率
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
我用的是网上的一个数据，我写的程序为：

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

得到的结果是：
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
我想得到原来一样的数据，我看结果意思是按列读取，怎么能按行读取啊，或怎么能得到和原来一样的矩阵，如果可能的话，不要用A1,A2,A3三列来做，因为我的数据有很多列，谢谢了！

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

回复此楼

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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

physliebe

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 16.3
散金: 40
红花: 1
帖子: 148
在线: 215.6小时
虫号: 1933844
注册: 2012-08-11
性别: GG
专业: 计算数学与科学工程计算

jjdg: 编辑内容 2014-02-13 11:50

引用回帖:

4楼: Originally posted by snoopyzhao at 2014-02-09 13:21:38
读的并没有错，也是按行读的，Fortran 还没有高级到可以按列来读入数据的

错的在于你打印的那句话：
WRITE(12,"(3f10.5)" ) A
这句话只是告诉程序把 A 这个矩阵中的数据打出来，每行三个实数

但你 ...

WRITE(12,"(3f10.5)"; ) A，这种输出矩阵的方法试了一下，报错

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

赞一下

回复此楼

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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 duhb655 的主题更新

返回列表

24小时热门版块排行榜

duhb655

[求助] fortran 怎么按行读取数据（有小例子） 已有3人参与

» 收录本帖的淘帖专辑推荐

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

physliebe

[求助] fortran 怎么按行读取数据（有小例子）已有3人参与