数値データの最大、最小、平均を求める
同等のperlプログラムへ
BEGIN {
MIN = 0;
MAX = 0;
SUM = 0;
}
{
if ( NR == 1 ) {
MIN = $1;
MAX = $1;
}
SUM = SUM + $1;
if ( $1 < MIN ) {
MIN = $1;
}
if ( $1 > MAX ) {
MAX = $1;
}
}
END {
printf( "MAX = %f:MIN = %f:AVERAGE = %f\n", MAX, MIN, SUM / NR );
}
165.3 178.5 172.5 162.4
とタイプします。c:\awk> gawk -f max.awk dat4.txt
と出力されるはずです。MAX = 178.500000:MIN = 162.400000:AVERAGE = 169.675000
Copyright © 2004 TKEN