顾雪晴 发表于 2020-5-10 16:43:33

文件对齐输出

将文件的数据对齐输出，并求出每列的平均值和方差并输出
附件为文件
给个思路（详细些）或者代码都可啊，救救孩子！！

necrohan 发表于 2020-5-11 14:41:00

本帖最后由 necrohan 于 2020-5-11 14:43 编辑

把那个文件里的tab分隔用逗号替换，增加读入变量自己修改，计算方差自己增加，对齐输出没有考虑
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

顾雪晴 发表于 2020-5-16 22:35:59

文件中的tab键怎么替换呢？

necrohan 发表于 2020-5-17 12:11:30

在记事本里复制个tab字符，然后替换

顾雪晴 发表于 2020-5-17 13:11:31

necrohan 发表于 2020-5-17 12:11
在记事本里复制个tab字符，然后替换

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

顾雪晴 发表于 2020-5-17 13:12:16

necrohan 发表于 2020-5-17 12:11
在记事本里复制个tab字符，然后替换

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

necrohan 发表于 2020-5-18 08:26:46

顾雪晴 发表于 2020-5-17 13:12
想把时间和后面的数据分开放到两个文件里应该怎么做呢？

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

Zhuming 发表于 2020-5-18 10:34:23

顾雪晴 发表于 2020-5-17 13:11
想把时间和后面的数据分开放到两个文件里应该怎么做呢？

open 两个文件，读时间的变量写进一个变量中，读数据的变量写进另一个变量中。
页: [1]
查看完整版本: 文件对齐输出