perfboth revision 264fa531
1264fa531Smrg#!/bin/sh
2264fa531Smrgawk '
3264fa531Smrg/^     1/ && READY == 0 {	printf ("    1   ");
4264fa531Smrg		for (i = 2; i < NF; i++)
5264fa531Smrg			printf ("          %2d        ", i);
6264fa531Smrg		printf ("   Operation\n");
7264fa531Smrg		next;
8264fa531Smrg	}
9264fa531Smrg/^---/	{ 	printf ("--------");
10264fa531Smrg		for (i = 2; i <= NF; i++)
11264fa531Smrg			printf ("   -----------------");
12264fa531Smrg		printf ("\n");
13264fa531Smrg		READY=1; next;
14264fa531Smrg 	}
15264fa531SmrgREADY==1 {
16264fa531Smrg		base=$1;
17264fa531Smrg		printf ("%8.1f", base);
18264fa531Smrg		for (i = 2; i < '$1'; i++) {
19264fa531Smrg			if (base == 0)
20264fa531Smrg				printf ("   %8.1f         ", $i);
21264fa531Smrg			else {
22264fa531Smrg				rate=$i/base;
23264fa531Smrg				if (rate < .1)
24264fa531Smrg					printf ("   %8.1f (%6.3f)", $i, rate);
25264fa531Smrg				else if (rate < 1000)
26264fa531Smrg					printf ("   %8.1f (%6.2f)", $i, rate);
27264fa531Smrg				else
28264fa531Smrg					printf ("   %8.1f (%6.0f)", $i, rate);
29264fa531Smrg			}
30264fa531Smrg		}
31264fa531Smrg		printf ("   ");
32264fa531Smrg		for (; i <= NF; i++)
33264fa531Smrg		{
34264fa531Smrg			printf ("%s ", $i);
35264fa531Smrg		}
36264fa531Smrg		printf ("\n");
37264fa531Smrg		next;
38264fa531Smrg	   }
39264fa531Smrg	   { print $0; }
40264fa531Smrg'
41