1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#include <testu01/unif01.h>
#include <testu01/utaus.h>
#include <stdio.h>
int main (void)
{
unif01_Gen *gen1, *gen2, *gen3;
long I[3] = { 3, 7, 9 };
int i, n = 20;
double x;
gen1 = utaus_CreateTaus (31, 3, 12, 12345);
for (i = 0; i < n; i++)
printf ("%f\n", unif01_StripD (gen1, 0));
utaus_DeleteGen (gen1);
printf ("\n");
gen1 = utaus_CreateTaus (31, 3, 12, 12345);
gen2 = unif01_CreateLacGen (gen1, 3, I);
for (i = 0; i < n; i++)
printf ("%f\n", unif01_StripD (gen2, 0));
gen3 = unif01_CreateDoubleGen (gen2, 24);
for (i = 0; i < n; i++)
x = unif01_StripD (gen3, 0);
unif01_DeleteDoubleGen (gen3);
unif01_DeleteLacGen (gen2);
gen2 = utaus_CreateTaus (28, 7, 14, 12345);
gen3 = unif01_CreateCombXor2 (gen1, gen2, "A Combined Tausworthe Gener.");
for (i = 0; i < n; i++)
x = unif01_StripD (gen3, 0);
unif01_DeleteCombGen (gen3);
utaus_DeleteGen (gen2);
utaus_DeleteGen (gen1);
return 0;
}
|
