Fortran Coder

查看: 154|回复: 7

[文件读写] 文件对齐输出

[复制链接]

9

帖子

4

主题

0

精华

入门

F 币
20 元
贡献
27 点
发表于 2020-5-10 16:43:33 | 显示全部楼层 |阅读模式
将文件的数据对齐输出,并求出每列的平均值和方差并输出
附件为文件
给个思路(详细些)或者代码都可啊,救救孩子!!

wave P60597 181002 134510.txt

168.68 KB, 下载次数: 4

回复

使用道具 举报

107

帖子

2

主题

0

精华

大师

F 币
654 元
贡献
337 点

规矩勋章

发表于 2020-5-11 14:41:00 | 显示全部楼层
本帖最后由 necrohan 于 2020-5-11 14:43 编辑

把那个文件里的tab分隔用逗号替换,增加读入变量自己修改,计算方差自己增加,对齐输出没有考虑
[Fortran] 纯文本查看 复制代码
implicit none
integer, parameter ::nline = 2 ! 行数
integer::i
character*20::c
! 数据及平均值
real*8::h(nline),avg_h
real*8::hts(nline),avg_hts
real*8::ETAmax(nline),avg_ETAmax

open(10,file='wave.txt')
read(10,*)
do i=1,nline
  read(10,'(a18,f,f,f)')c,h(i),hts(i),ETAmax(i) ! 读入数据
  write(*,*)trim(c),h(i),hts(i),ETAmax(i)
end do
close(10)

! 计算平均值
avg_h=sum(h)/nline
avg_hts=sum(hts)/nline
avg_ETAmax=sum(ETAmax)/nline
write(*,*)avg_h,avg_hts,avg_ETAmax ! 输出

end

9

帖子

4

主题

0

精华

入门

F 币
20 元
贡献
27 点
 楼主| 发表于 2020-5-16 22:35:59 | 显示全部楼层
文件中的tab键怎么替换呢?

107

帖子

2

主题

0

精华

大师

F 币
654 元
贡献
337 点

规矩勋章

发表于 2020-5-17 12:11:30 | 显示全部楼层
在记事本里复制个tab字符,然后替换

9

帖子

4

主题

0

精华

入门

F 币
20 元
贡献
27 点
 楼主| 发表于 2020-5-17 13:11:31 | 显示全部楼层
necrohan 发表于 2020-5-17 12:11
在记事本里复制个tab字符,然后替换

想把时间和后面的数据分开放到两个文件里应该怎么做呢?

9

帖子

4

主题

0

精华

入门

F 币
20 元
贡献
27 点
 楼主| 发表于 2020-5-17 13:12:16 | 显示全部楼层
necrohan 发表于 2020-5-17 12:11
在记事本里复制个tab字符,然后替换

想把时间和后面的数据分开放到两个文件里应该怎么做呢?

107

帖子

2

主题

0

精华

大师

F 币
654 元
贡献
337 点

规矩勋章

发表于 2020-5-18 08:26:46 | 显示全部楼层
顾雪晴 发表于 2020-5-17 13:12
想把时间和后面的数据分开放到两个文件里应该怎么做呢?

先看看本论坛的视频教程吧:
http://v.fcode.cn

30

帖子

6

主题

0

精华

熟手

F 币
229 元
贡献
122 点

规矩勋章

发表于 2020-5-18 10:34:23 | 显示全部楼层
顾雪晴 发表于 2020-5-17 13:11
想把时间和后面的数据分开放到两个文件里应该怎么做呢?

open 两个文件,读时间的变量写进一个变量中,读数据的变量写进另一个变量中。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-6-5 07:04

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表