ACE/apps/JAWS/clients/WebSTONE/src/statistics.c

   1 /**************************************************************************
   2  *
   3  *  Copyright (C) 1995 Silicon Graphics, Inc.
   4  *
   5  *  These coded instructions, statements, and computer programs were
   6  *  developed by SGI for public use.  If any changes are made to this code
   7  *  please try to get the changes back to the author.  Feel free to make
   8  *  modifications and changes to the code and release it.
   9  *
  10  **************************************************************************/
  11
  12 /* FUZZ: disable check_for_math_include */
  13 #include <math.h>
  14 #include <stdlib.h>
  15 #include "sysdep.h"
  16 #include "bench.h"
  17
  18
  19 double
  20 mean(const double sum, const int n)
  21 {
  22   if (n)
  23     {
  24       return(sum / n);
  25     }
  26   else
  27     {
  28       return(0);
  29     }
  30 }
  31
  32
  33 double
  34 variance(const double sum, const double sumofsquares, const int n)
  35 {
  36     double meanofsum;
  37
  38     meanofsum = mean(sum, n);
  39
  40     return (mean(sumofsquares,n) - (meanofsum * meanofsum));
  41 }
  42
  43
  44 double
  45 stddev(const double sum, const double sumofsquares, const int n)
  46 {
  47     return(sqrt(fabs(variance(sum, sumofsquares, n))));
  48 }