Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site ukma.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!ihnp4!cbosgd!ukma!david
From: david@ukma.UUCP (David Herron, NPR Lover)
Newsgroups: net.sources
Subject: An example awk script
Message-ID: <1263@ukma.UUCP>
Date: Mon, 11-Mar-85 16:17:29 EST
Article-I.D.: ukma.1263
Posted: Mon Mar 11 16:17:29 1985
Date-Received: Tue, 12-Mar-85 23:05:56 EST
Organization: Univ. of KY Mathematical Sciences
Lines: 30

# avg.awk - Average the columns of a table of numbers.  
# The table may have varying numbers of fields, any number of fields,
# or any number of records.  Missing fields are assumed to be 0.
#
# Usage:
#	awk -f avg.awk <table >out
#
# It prints a single line having one number per field, which is the
# average for that field over the whole table.
#
# Author:
#	David Herron	(ukma!david)
#	University of Kentucky
#

BEGIN	{
		maxnf = 0;
	}
	{
		for (i=1; i<=NF; i++) {
			tab[i] = tab[i] + $(i);
		}
		if (NF > maxnf) 
			maxnf = NF;
	}
END	{ 
		for (i=1; i<=maxnf; i++)
			printf " %d ",(tab[i]/NR);
		printf "\n";
	}