You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
132 lines
4.6 KiB
132 lines
4.6 KiB
/*
|
|
* [The "BSD licence"]
|
|
* Copyright (c) 2005-2008 Terence Parr
|
|
* All rights reserved.
|
|
*
|
|
* Conversion to C#:
|
|
* Copyright (c) 2008-2009 Sam Harwell, Pixel Mine, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. The name of the author may not be used to endorse or promote products
|
|
* derived from this software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
namespace Antlr.Runtime.Misc
|
|
{
|
|
using System.Collections.Generic;
|
|
|
|
using Directory = System.IO.Directory;
|
|
using Environment = System.Environment;
|
|
using File = System.IO.File;
|
|
using Math = System.Math;
|
|
using Path = System.IO.Path;
|
|
|
|
/** <summary>Stats routines needed by profiler etc...</summary>
|
|
*
|
|
* <remarks>
|
|
* note that these routines return 0.0 if no values exist in the X[]
|
|
* which is not "correct", but it is useful so I don't generate NaN
|
|
* in my output
|
|
* </remarks>
|
|
*/
|
|
public class Stats
|
|
{
|
|
public const string ANTLRWORKS_DIR = "antlrworks";
|
|
|
|
/** <summary>Compute the sample (unbiased estimator) standard deviation following:</summary>
|
|
*
|
|
* <remarks>
|
|
* Computing Deviations: Standard Accuracy
|
|
* Tony F. Chan and John Gregg Lewis
|
|
* Stanford University
|
|
* Communications of ACM September 1979 of Volume 22 the ACM Number 9
|
|
*
|
|
* The "two-pass" method from the paper; supposed to have better
|
|
* numerical properties than the textbook summation/sqrt. To me
|
|
* this looks like the textbook method, but I ain't no numerical
|
|
* methods guy.
|
|
* </remarks>
|
|
*/
|
|
public static double Stddev( int[] X )
|
|
{
|
|
int m = X.Length;
|
|
if ( m <= 1 )
|
|
{
|
|
return 0;
|
|
}
|
|
double xbar = Average(X);
|
|
double s2 = 0.0;
|
|
for ( int i = 0; i < m; i++ )
|
|
{
|
|
s2 += ( X[i] - xbar ) * ( X[i] - xbar );
|
|
}
|
|
s2 = s2 / ( m - 1 );
|
|
return Math.Sqrt( s2 );
|
|
}
|
|
public static double Stddev( List<int> X )
|
|
{
|
|
int m = X.Count;
|
|
if ( m <= 1 )
|
|
{
|
|
return 0;
|
|
}
|
|
double xbar = Average(X);
|
|
double s2 = 0.0;
|
|
for ( int i = 0; i < m; i++ )
|
|
{
|
|
s2 += ( X[i] - xbar ) * ( X[i] - xbar );
|
|
}
|
|
s2 = s2 / ( m - 1 );
|
|
return Math.Sqrt( s2 );
|
|
}
|
|
|
|
/** <summary>Compute the sample mean</summary> */
|
|
public static double Average(ICollection<int> X)
|
|
{
|
|
if (X.Count == 0)
|
|
return 0.0;
|
|
|
|
double sum = 0.0;
|
|
foreach (int i in X)
|
|
sum += i;
|
|
|
|
return sum / X.Count;
|
|
}
|
|
|
|
public static void WriteReport( string filename, string data )
|
|
{
|
|
string absoluteFilename = GetAbsoluteFileName( filename );
|
|
|
|
Directory.CreateDirectory( Path.GetDirectoryName( absoluteFilename ) );
|
|
File.AppendAllText( absoluteFilename, data );
|
|
}
|
|
|
|
public static string GetAbsoluteFileName( string filename )
|
|
{
|
|
string personalFolder = Environment.GetFolderPath( Environment.SpecialFolder.Personal );
|
|
return personalFolder + Path.DirectorySeparatorChar +
|
|
ANTLRWORKS_DIR + Path.DirectorySeparatorChar +
|
|
filename;
|
|
}
|
|
}
|
|
}
|