最大、最小、平均

数値データの最大、最小、平均を求める

同等のperlプログラムへ

プログラム

プログラムは以下のように単純です。 エディタを開き以下をタイプして、適当な名前でセーブしてください。ここでは max.awk という名前でセーブしたことにして話を進めます。
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 );
}

入力データ

入力データは、数値データならなんでも大丈夫です。 以下のようなファイルが dat4.txt として存在するとします。
165.3
178.5
172.5
162.4

実行結果

ここでは、awk処理系としてgawk を利用し、 また、OSはWindowsを利用していると 仮定します。 DOS prompt 上で、
c:\awk> gawk -f max.awk dat4.txt
とタイプします。
MAX = 178.500000:MIN = 162.400000:AVERAGE = 169.675000
と出力されるはずです。
メニューに戻る
Tkensaku

TKENSAKU top へ

Copyright © 2004 TKEN