求平均值的問題

nanshanjin

現(xiàn)在有m行n列的數(shù)值文件，如何每三行求一個平均值，格式文件例子如下：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行的平均值，以此列類推

jason680

http://72891.cn/thread-4289910-1-1.html

http://72891.cn/thread-4289642-1-1.html

Okelani

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. while (
   
6.     my $line1 = <DATA> ) {
   
7.     my $line2 = <DATA> || '';
   
8.     my $line3 = <DATA> || '';
   
9.     my $count = 0;
   
10.     my $sum   = 0;
    
11.     for my $line ( $line1, $line2, $line3 ) {
    
12.         my @value = split /\s+/, $line;
    
13.         $count += @value;
    
14.         $sum += $_ for @value;
    
15.     }
    
16.     printf "%.3f\n", $sum / $count;
    
17. }
    
18. 
    
19. __DATA__
    
20. 21.000  20.000  36.600  37.700  0.660   0.890   0.060
    
21. 20.000  21.000  37.400  38.300  0.680   0.900   0.090
    
22. 20.000  21.000  38.400  38.400  0.690   0.930   0.090
    
23. 19.000  21.000  39.900  45.300  0.540   0.740   0.040
    
24. 19.000  22.000  41.700  45.200  0.530   0.740   0.030
    
25. 19.000  23.000  39.500  45.100  0.510   0.730   0.040
    
26. 19.000  23.000  39.500  45.100  0.510   0.730   0.040
    

復(fù)制代碼

dahe_1984

perl這里感覺還有點人氣，python哪里根本沒人