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

likm1110 · 发表于 2015-3-7 09:11:47

本帖最后由 likm1110 于 2015-3-7 10:25 编辑

如：：一组数据：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 · 发表于 2015-3-7 11:53:30

[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 · 发表于 2015-3-7 18:52:00

本帖最后由 likm1110 于 2015-3-8 10:03 编辑

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 · 发表于 2015-3-7 21:16:14

写在文件里，然后读入。

likm1110 · 发表于 2015-3-7 22:38:45

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

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

vvt · 发表于 2015-3-7 23:31:13

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

likm1110 · 发表于 2015-3-8 08:10:22

本帖最后由 likm1110 于 2015-3-8 10:02 编辑

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

已经成功，谢谢！

li913 · 发表于 2015-3-8 09:01:16

本帖最后由 li913 于 2015-3-8 09:30 编辑

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 · 发表于 2015-3-8 10:02:21

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

vvt · 发表于 2015-3-8 10:52:15

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

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

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

规矩勋章

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

元老勋章

水王勋章