void moment(double data[], int n, double& ave, double& adev,
			double& sdev, double& var, double& skew, double& curt)
{
	int j;
    if (n <= 1)
	{
		cout<<" n must be at least 2";
		return;
    }
    double p,s = 0.0;
    for (j = 1; j<=n; j++)
	{
        s = s + data[j];
    }
    ave = s / n;
    adev = 0;
    var = 0;
    skew = 0;
    curt = 0;
    for (j = 1; j<=n; j++)
	{
        s = data[j] - ave;
        adev = adev + fabs(s);
        p = s * s;
        var = var + p;
        p = p * s;
        skew = skew + p;
        p = p * s;
        curt = curt + p;
    }
    adev = adev / n;
    var = var / (n - 1);
    sdev = sqrt(var);
    if (var != 0.0) 
	{
        skew = skew / (n * pow(sdev , 3));
        curt = curt / (n * var * var) - 3.0;
	}
    else
	{
        cout<<" no skew or kurtosis when zero variance"<<endl;
    }
}