Fortran Coder

标题: 文件对齐输出 [打印本页]

作者: 顾雪晴 时间: 2020-5-10 16:43
标题: 文件对齐输出
将文件的数据对齐输出，并求出每列的平均值和方差并输出
附件为文件
给个思路（详细些）或者代码都可啊，救救孩子！！

168.68 KB, 下载次数: 4

作者: necrohan 时间: 2020-5-11 14:41
本帖最后由 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

作者: 顾雪晴 时间: 2020-5-16 22:35
文件中的tab键怎么替换呢？

作者: necrohan 时间: 2020-5-17 12:11
在记事本里复制个tab字符，然后替换

作者: 顾雪晴 时间: 2020-5-17 13:11

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

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

作者: 顾雪晴 时间: 2020-5-17 13:12

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

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

作者: necrohan 时间: 2020-5-18 08:26

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

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

作者: Zhuming 时间: 2020-5-18 10:34

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

open 两个文件，读时间的变量写进一个变量中，读数据的变量写进另一个变量中。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)