忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT 徽章 文库 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 861 | 回复: 3

求平均值的问题 [复制链接]

论坛徽章:
0
发表于 2018-01-09 09:00 |显示全部楼层
10可用积分
现在有m行n列的数值文件,如何每三行求一个平均值,格式文件例子如下:21.000  20.000  36.600  37.700  0.660   0.890   0.060
20.000  21.000  37.400  38.300  0.680   0.900   0.090
20.000  21.000  38.400  38.400  0.690   0.930   0.090
19.000  21.000  39.900  45.300  0.540   0.740   0.040
19.000  22.000  41.700  45.200  0.530   0.740   0.030
19.000  23.000  39.500  45.100  0.510   0.730   0.040
即求1、2、3行的平均值,4、5、6行的平均值,以此列类推

论坛徽章:
128
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07巳蛇
日期:2014-05-09 16:43:18巨蟹座
日期:2014-10-23 17:48:38子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59
发表于 2018-01-09 13:49 |显示全部楼层

论坛徽章:
0
发表于 2018-01-09 17:49 |显示全部楼层
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;

  4. while (
  5.     my $line1 = <DATA> ) {
  6.     my $line2 = <DATA> || '';
  7.     my $line3 = <DATA> || '';
  8.     my $count = 0;
  9.     my $sum   = 0;
  10.     for my $line ( $line1, $line2, $line3 ) {
  11.         my @value = split /\s+/, $line;
  12.         $count += @value;
  13.         $sum += $_ for @value;
  14.     }
  15.     printf "%.3f\n", $sum / $count;
  16. }

  17. __DATA__
  18. 21.000  20.000  36.600  37.700  0.660   0.890   0.060
  19. 20.000  21.000  37.400  38.300  0.680   0.900   0.090
  20. 20.000  21.000  38.400  38.400  0.690   0.930   0.090
  21. 19.000  21.000  39.900  45.300  0.540   0.740   0.040
  22. 19.000  22.000  41.700  45.200  0.530   0.740   0.030
  23. 19.000  23.000  39.500  45.100  0.510   0.730   0.040
  24. 19.000  23.000  39.500  45.100  0.510   0.730   0.040
复制代码

论坛徽章:
0
发表于 2018-01-10 16:58 |显示全部楼层
perl这里感觉还有点人气,python哪里根本没人
您需要登录后才可以回帖 登录 | 注册

本版积分规则

DTCC2018购票6.8折优惠进行时

中国数据库技术大会是国内数据库及大数据领域规模最大、最受欢迎的技术交流盛会。 2018年5月10-12日,第九届中国数据库技术大会将如约而至。本届大会以“数领先机•智赢未来”为主题,设定2大主会场及20个技术专场,邀请来自国内外互联网、金融、教育等行业百余位技术专家,共同探讨Oracle、MySQL、NoSQL、大数据等领域的前瞻性热点话题与技术。
----------------------------------------
优惠时间:2018年2月13日前

报名链接>>
  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP