fortran如何计算大量数据的平均值
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/08 12:07:26
fortran如何计算大量数据的平均值
由于对于这个问题的数据来源你没有给清是自己手动输入还是直接通过读取文本数据,所以,我们在写程序的时候有两种程序思路:
最常用的是通过直接读取文本的数据,要用到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
希望对你有点帮助!
最常用的是通过直接读取文本的数据,要用到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
希望对你有点帮助!
如何在excel里,将大量数据的平均值和标准差添加到一起?
在Excel中如何计算一组数据中后10%的数的平均值?
excel中如何计算某列数据的平均值(在某个区间范围内选择)?
用excel如何计算一列数据中全部相邻两数的平均值
用逐差法计算平均值后如何计算平均值的不确定度
如何用Excel求大量数据中每一组数据的平均值?
计算标准差已知一组数量非常庞大的数据服从正态分布.数据平均值为零.所有小于零的数据平均值为-0.01,大于零的数据平均值
EXCEL ,求一组数据的平均值计算公式.
excel表格中怎样计算某组数据的平均值?
这个平均值是如何计算的?
excel 表格如何计算时间的平均值
天气预报平均值如何计算