File: ex1.c

package info (click to toggle)
testu01 1.2.3%2Bds1-3
  • links: PTS, VCS
  • area: non-free
  • in suites: sid, trixie
  • size: 17,748 kB
  • sloc: ansic: 52,357; makefile: 248; sh: 53
file content (29 lines) | stat: -rw-r--r-- 652 bytes parent folder | download | duplicates (4)
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
#include <testu01/unif01.h>
#include <testu01/ulcg.h>
#include <testu01/ulec.h>
#include <stdio.h>

int main (void)
{
   int i;
   double x;
   unsigned long z;
   unif01_Gen *gen;

   gen = ulcg_CreateLCG (2147483647, 16807, 0, 12345);
   x = 0.0;
   for (i = 0; i < 50; i++)
      x += gen->GetU01(gen->param, gen->state);
   for (i = 0; i < 50; i++)
      x += unif01_StripD (gen, 0);
   printf ("Sum = %14.10f\n\n", x);
   ulcg_DeleteGen (gen);

   gen = ulec_Createlfsr113 (12345, 12345, 12345, 12345);
   for (i = 0; i < 5; i++) {
      z = unif01_StripB (gen, 4, 10);
      printf ("%10lu\n", z);
      }
   ulec_DeleteGen (gen);
   return 0;
}