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; }
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; }
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; }