Example #1
0
int main (int argc, char **argv)
{
    unif01_Gen *gen;
    int testsize = 0;
    int flags = 0;
    int err;

    err = read_opts(argc, argv, &flags, &testsize);

    if (err) {
	exit(EXIT_FAILURE);
    } 

    gretl_rand_init();

    if (flags & BOX_MULLER) {
	gretl_rand_set_box_muller(1);
    }    

    if (flags & NORMAL_RNG) {
	gen = unif01_CreateExternGen01("libgretl", u01_from_normal);
    } else {
	gen = unif01_CreateExternGen01("libgretl", u01_direct);
    }	

    /* select the test battery */
    if (testsize == 0) {
	bbattery_SmallCrush(gen);
    } else if (testsize == 1) {
	bbattery_Crush(gen);
    } else if (testsize == 2) {
	bbattery_BigCrush(gen);
    }

    unif01_DeleteExternGen01(gen); 
    gretl_rand_free();

    return 0;
}
Example #2
0
int main (void) 
{
   unif01_Gen *gen;

   gen = unif01_CreateExternGen01 ("MRG32k3a", MRG32k3a);
   bbattery_SmallCrush (gen);
   unif01_DeleteExternGen01 (gen);

   gen = unif01_CreateExternGenBits ("xorshift", xorshift);
   bbattery_SmallCrush (gen);
   unif01_DeleteExternGenBits (gen);

   return 0;
}
Example #3
0
int main( int argc, const char* argv[] ) {
	unif01_Gen *gen;
	gen = unif01_CreateExternGen01("RANDGAMMA", rgamma_inv);

	if(argc < 2 || argv[1][0] == 's')
		bbattery_SmallCrush(gen);
	else if(argv[1][0] == 'm')
		bbattery_Crush(gen);
	else if(argv[1][0] == 'b')
		bbattery_BigCrush(gen);
	else {
		std::cerr << "Unknown Test" << std::endl;
		unif01_DeleteExternGen01(gen);
		return 1;
	}

	unif01_DeleteExternGen01(gen);
	
	return 0;
}