cannam@127: /*
cannam@127:  * Copyright (c) 2001 Matteo Frigo
cannam@127:  * Copyright (c) 2001 Massachusetts Institute of Technology
cannam@127:  *
cannam@127:  * This program is free software; you can redistribute it and/or modify
cannam@127:  * it under the terms of the GNU General Public License as published by
cannam@127:  * the Free Software Foundation; either version 2 of the License, or
cannam@127:  * (at your option) any later version.
cannam@127:  *
cannam@127:  * This program is distributed in the hope that it will be useful,
cannam@127:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
cannam@127:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
cannam@127:  * GNU General Public License for more details.
cannam@127:  *
cannam@127:  * You should have received a copy of the GNU General Public License
cannam@127:  * along with this program; if not, write to the Free Software
cannam@127:  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
cannam@127:  *
cannam@127:  */
cannam@127: 
cannam@127: 
cannam@127: #include "bench.h"
cannam@127: #include <stdio.h>
cannam@127: #include <stdlib.h>
cannam@127: #include <math.h>
cannam@127: 
cannam@127: void (*report)(const bench_problem *p, double *t, int st);
cannam@127: 
cannam@127: #undef min
cannam@127: #undef max /* you never know */
cannam@127: 
cannam@127: struct stats {
cannam@127:      double min;
cannam@127:      double max;
cannam@127:      double avg;
cannam@127:      double median;
cannam@127: };
cannam@127: 
cannam@127: static void mkstat(double *t, int st, struct stats *a)
cannam@127: {
cannam@127:      int i, j;
cannam@127:      
cannam@127:      a->min = t[0];
cannam@127:      a->max = t[0];
cannam@127:      a->avg = 0.0;
cannam@127: 
cannam@127:      for (i = 0; i < st; ++i) {
cannam@127: 	  if (t[i] < a->min)
cannam@127: 	       a->min = t[i];
cannam@127: 	  if (t[i] > a->max)
cannam@127: 	       a->max = t[i];
cannam@127: 	  a->avg += t[i];
cannam@127:      }
cannam@127:      a->avg /= (double)st;
cannam@127: 
cannam@127:      /* compute median --- silly bubblesort algorithm */
cannam@127:      for (i = st - 1; i > 1; --i) {
cannam@127: 	  for (j = 0; j < i - 1; ++j) {
cannam@127: 	       double t0, t1;
cannam@127: 	       if ((t0 = t[j]) > (t1 = t[j + 1])) {
cannam@127: 		    t[j] = t1;
cannam@127: 		    t[j + 1] = t0;
cannam@127: 	       }
cannam@127: 	  } 
cannam@127:      }
cannam@127:      a->median = t[st / 2];
cannam@127: }
cannam@127: 
cannam@127: void report_mflops(const bench_problem *p, double *t, int st)
cannam@127: {
cannam@127:      struct stats s;
cannam@127:      mkstat(t, st, &s);
cannam@127:      ovtpvt("(%g %g %g %g)\n", 
cannam@127: 	    mflops(p, s.max), mflops(p, s.avg), 
cannam@127: 	    mflops(p, s.min), mflops(p, s.median));
cannam@127: }
cannam@127: 
cannam@127: void report_time(const bench_problem *p, double *t, int st)
cannam@127: {
cannam@127:      struct stats s;
cannam@127:      UNUSED(p);
cannam@127:      mkstat(t, st, &s);
cannam@127:      ovtpvt("(%g %g %g %g)\n", s.min, s.avg, s.max, s.median);
cannam@127: }
cannam@127: 
cannam@127: void report_benchmark(const bench_problem *p, double *t, int st)
cannam@127: {
cannam@127:      struct stats s;
cannam@127:      mkstat(t, st, &s);
cannam@127:      ovtpvt("%.5g %.8g %g\n", mflops(p, s.min), s.min, p->setup_time);
cannam@127: }
cannam@127: 
cannam@127: static void sprintf_time(double x, char *buf, int buflen)
cannam@127: {
cannam@127: #ifdef HAVE_SNPRINTF
cannam@127: #  define MY_SPRINTF(a, b) snprintf(buf, buflen, a, b)
cannam@127: #else
cannam@127: #  define MY_SPRINTF(a, b) sprintf(buf, a, b)
cannam@127: #endif
cannam@127:      if (x < 1.0E-6)
cannam@127: 	  MY_SPRINTF("%.2f ns", x * 1.0E9);
cannam@127:      else if (x < 1.0E-3)
cannam@127: 	  MY_SPRINTF("%.2f us", x * 1.0E6);
cannam@127:      else if (x < 1.0)
cannam@127: 	  MY_SPRINTF("%.2f ms", x * 1.0E3);
cannam@127:      else
cannam@127: 	  MY_SPRINTF("%.2f s", x);
cannam@127: #undef MY_SPRINTF
cannam@127: }
cannam@127: 
cannam@127: void report_verbose(const bench_problem *p, double *t, int st)
cannam@127: {
cannam@127:      struct stats s;
cannam@127:      char bmin[64], bmax[64], bavg[64], bmedian[64], btmin[64];
cannam@127:      char bsetup[64];
cannam@127:      int copyp = tensor_sz(p->sz) == 1;
cannam@127: 
cannam@127:      mkstat(t, st, &s);
cannam@127: 
cannam@127:      sprintf_time(s.min, bmin, 64);
cannam@127:      sprintf_time(s.max, bmax, 64);
cannam@127:      sprintf_time(s.avg, bavg, 64);
cannam@127:      sprintf_time(s.median, bmedian, 64);
cannam@127:      sprintf_time(time_min, btmin, 64);
cannam@127:      sprintf_time(p->setup_time, bsetup, 64);
cannam@127: 
cannam@127:      ovtpvt("Problem: %s, setup: %s, time: %s, %s: %.5g\n",
cannam@127: 	    p->pstring, bsetup, bmin, 
cannam@127: 	    copyp ? "fp-move/us" : "``mflops''",
cannam@127: 	    mflops(p, s.min));
cannam@127: 
cannam@127:      if (verbose) {
cannam@127: 	  ovtpvt("Took %d measurements for at least %s each.\n", st, btmin);
cannam@127: 	  ovtpvt("Time: min %s, max %s, avg %s, median %s\n",
cannam@127: 		 bmin, bmax, bavg, bmedian);
cannam@127:      }
cannam@127: }