**fig10_54.txt**

/* 1*/	static const long int A = 16807;	// 7^5.
/* 2*/	static const long int M = 2147483647;	// 2^31 - 1.

/* 3*/	class Random
/* 4*/	{
/* 5*/	  private:
/* 6*/	    unsigned long int Seed;

/* 7*/	  public:
/* 8*/	    Random( unsigned long int Init_Val = 1 ) :
/* 9*/	        Seed( Init_Val ) { }

/*10*/	    ~Random( ) { }

/*11*/	    double Rand0_1( );
/*12*/	};

/*13*/	double
/*14*/	Random::Rand0_1( )
/*15*/	{
/*16*/	    Seed = ( A * Seed ) % M;
/*17*/	    return( double( Seed ) / M );
/*18*/	}