求平均值de问题

hylinux

文件data
     1        90 92 95 96 95 93 99 99 85
     2        89 89 90 95 96 96 95 98 88
     3        89 80 95 86 98 85 96 85 96
     4        88 98 96 86 95 90 85 98 86
     5        80 80 95 96 96 86 86 95 76
     6        85 96 85 86 84 92 91 90 86
     7        85 86 86 88 92 91 90 92 86
     8        85 95 95 86 84 95 92 92 91
不知道怎么描述才好呢：
目的: 求出第1列的 123 234 345 456 567 678 行 各平均值.

[ 本帖最后由 hylinux 于 2008-3-18 14:52 编辑 ]

ly5066113

没看明白？行平均？列平均？还是其他？

ly5066113

try:

1. awk '{a[NR%3]=$1}NR>2{print (a[0]+a[1]+a[2])/3}' urfile

复制代码

7717060

try 没做测试
array=(
90 92 95 96 95 93 99 99 85
89 89 90 95 96 96 95 98 88
             89 80 95 86 98 85 96 85 96
             88 98 96 86 95 90 85 98 86
             80 80 95 96 96 86 86 95 76
             85 96 85 86 84 92 91 90 86
             85 86 86 88 92 91 90 92 86
             85 95 95 86 84 95 92 92 91

)
i='0'
sum='0'
while [ "$i" -le "$(expr ${#array[@]} - 1)" ]
do
sum=$((sum+ ${array[$i]}))
i=$((i+1))
done
echo `$sum / ${#array[@]} ) | bc `

[ 本帖最后由 7717060 于 2008-3-18 13:32 编辑 ]

nuclearxin

1. [root@myhost test]# cat d.awk
   
2. {for(i=1;i<=NF;i++)
   
3. {
   
4.         a[NR"-"i]=$i
   
5. }
   
6. }
   
7. END{
   
8. #       for(s in a){print s,a[s]}
   
9.         for(j=1;j<=6;j++){
   
10.                 c=a[j"-"v]+a[j+1"-"v]+a[j+2"-"v]
    
11.                 d=c/3
    
12.                 print j,j+1,j+2" avg is "d
    
13.         }
    
14. }
    
15. }

复制代码

1. awk -v v=4 -f d.awk filename

复制代码

v随便你添第几列了

[ 本帖最后由 nuclearxin 于 2008-3-18 16:35 编辑 ]

nuclearxin

原帖由 ly5066113 于 2008-3-18 14:57 发表
try:

awk '{a[NR%3]=$1}NR>2{print (a[0]+a[1]+a[2])/3}' urfile

好思路 横着算的  8错8错

mcolinc

ly的思路一直这么精辟

Juicy2008

90 92 95 96 95 93 99 99 85
89 89 90 95 96 96 95 98 88
89 80 95 86 98 85 96 85 96
88 98 96 86 95 90 85 98 86
80 80 95 96 96 86 86 95 76
85 96 85 86 84 92 91 90 86
85 86 86 88 92 91 90 92 86
85 95 95 86 84 95 92 92 91

如果只求列平均呢？比如说只求第一列？:wink:

hylinux

awk '{sum+=$1}END{print sum/NR}' urfile