home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume5 / awkstats / stats2.awk < prev   
Text File  |  1989-02-03  |  221b  |  12 lines
  1. {
  2.     a[NR] = $1
  3.     sum += a[NR]
  4.     sumsq += (a[NR] * a[NR])
  5. }
  6. END {
  7.     mean = (sum / NR)
  8.     stddev = sqrt((sumsq / NR) - (mean * mean))
  9.     printf "sum is %1.2f, mean is %1.2f, n is %d, stddev is %1.3f\n", \
  10.         sum, mean, NR, stddev
  11. }
  12.