初学，求助‘有一组数据，统计各个区间内数据个数’的...

likm1110

如 ：： 一组数据：1.3；4.3；3；5.1；6.；7.6；8.；0.6；8.4；12.5；11.；。
希望统计[0,2)，[2,4)，[4,6)，[6,8)，[8,10)，[10,12)，[12,14)各个区间内的数据个数。
尝试三天了一直失败.....求帮助T T谢谢指教！
PS.实际的数据有上千个，希望给出一个通用的统计方法，谢谢！

fcode

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  real :: a(11) = (/1.3,4.3,3.,5.1,6.,7.6,8.,0.6,8.4,12.5,11./)
  write(*,*) '[0,2)区间共有：', count( (a>=0.and.a<2) ) , '个数'
  !// 其他请参考本句修改
End Program www_fcode_cn

likm1110

fcode 发表于 2015-3-7 11:53
[mw_shl_code=fortran,true]Program www_fcode_cn
  Implicit None
  real :: a(11) = (/1.3,4.3,3.,5.1,6. ...

成功了，感谢！

vvt

写在文件里，然后读入。

likm1110

vvt 发表于 2015-3-7 21:16
写在文件里，然后读入。

.......1000多个数据分段统计......普通读取文件还是会的.......难道文件操作可以直接统计？？谢谢......

vvt

第一步. 把数据写在文件里。
第二步，定义一个1000的数组。
第三步，从文件里读入这个数组。
第四步，count 函数统计。

likm1110

vvt 发表于 2015-3-7 23:31
第一步. 把数据写在文件里。
第二步，定义一个1000的数组。
第三步，从文件里读入这个数组。

已经成功，谢谢！

li913

1、如果统计区间是等间距的，可用如下代码

[Fortran] 纯文本查看 复制代码

program test
real a(1000) !假设有1000个数据
integer i, j, num(7) !假设7个统计区间[0,2)，[2,4)，[4,6)，[6,8)，[8,10)，[10,12)，[12,14)

open(10,file='1.txt')
num = 0 
do i = 1, 1000
read(10,*) a(i)
j = a(i)/2.0 + 1
num(j) = num(j) + 1
end do 
end program 

2、如果统计区间不是等间距，且区间个数较多，应先对数据进行排序，然后统计各区间数据量。

likm1110

基本成功了，正确性还得对数据，但是已经可行，谢谢各位指点！

vvt

1000个数据做统计， count 函数一瞬间就能完成。不需要做额外的工作来优化。

倘若数据上了百万，再考虑优化。