Question

fortran如何计算大量数据的平均值

Answer 1

由于对于这个问题的数据来源你没有给清是自己手动输入还是直接通过读取文本数据，所以，我们在写程序的时候有两种程序思路：
最常用的是通过直接读取文本的数据，要用到open语句。
程序如下：
Program main4
integer n
real *8 sum,p
real *8 NUM(1000)
INTEGER C
PARAMETER ( C = 10 )
C *******************************************************************

OPEN ( UNIT = C, FILE = 'file.txt',
$ STATUS = 'OLD', FORM = 'UNFORMATTED' )
READ ( C ) NUM
p=sum(NUM)/size(NUM)
CLOSE ( UNIT = C )

write(*,*) '得到的总数',sum(NUM)
write(*,*) '求得的平均值',p
end
而对于直接输入再求平均的相对比较简单，程序如下：
Program main4
integer n
real *8 sum,p
read(*,*) u(1:1000)

sum=0.d0
p=0.d0
DO 10,i=1,1000
sum=sum+u(i)
10 continue
p=real(sum/1000)

write(*,*) '得到的总数',sum
write(*,*) '求得的平均值',p
end
希望对你有点帮助！

Answer 2

sum(A)/size(A)