d13r12.cpp

C语言的编程合集！是我自己编的！很有用的！大家可以下载！有意见麻烦大家提出来以便本人及时修改！

#include "iostream.h"
#include "math.h"

double probks(double alam)
{
	double eps1 = 0.001;
    double eps2 = 0.00000001;
    double a2 = -2.0 * alam * alam;
    double fac = 2.0;
    double aaa,temp = 0.0;
    double term,termbf = 0.0;
    for (int j = 1; j<=100; j++)
	{
        term = fac * exp(a2 * j * j);
        temp = temp + term;
        aaa = fabs(term);
        if (aaa < eps1 * termbf || aaa < eps2 * temp)
		{
			return temp;
        }
        fac = -fac;
        termbf = fabs(term);
    }
    return 1.0;
}

void main()
{
    //program d13r12
    //driver for routine probks
    char text[51];
    cout<<endl;
    cout<<"Probability func. Kolmogorov-Smirnov statistic"<<endl;
    cout<<"Lambda:  Value:   Graph:"<<endl;
    int i,j,npts = 20;
    double alam,eps = 0.1;
    double value,scale1 = 40.0;
	cout.setf(ios::fixed|ios::left);
	cout.precision(4);
    for (i = 1; i<=npts; i++)
	{
        alam = i * eps;
        value = probks(alam);
        text[1] = '*';
        for (j = 1; j<=50; j++)
		{
            if (j <= int(scale1 * value))
			{
                text[j] = '*';
			}
            else
			{
                text[j] = ' ';
            }
        }
		cout.width(9);
        cout<<alam;
		cout.width(9);
        cout<<value;
        for (j = 1; j<=50; j++)
		{
            cout<< text[j];
        }
		cout<<endl;
    }
}