8 |
|
extern "C" { |
9 |
|
#endif |
10 |
|
|
11 |
– |
#ifdef NORANDOM |
12 |
– |
|
13 |
– |
#undef random |
14 |
– |
#define random() 1073741820 |
15 |
– |
#undef srandom |
16 |
– |
#define srandom(s) (s) |
17 |
– |
#define frandom() 0.5 |
18 |
– |
#define urand(i) 0.5 |
19 |
– |
#define initurand(n) (n) |
20 |
– |
|
21 |
– |
#else /* ! NORANDOM */ |
22 |
– |
|
11 |
|
#ifdef _WIN32 |
12 |
|
|
13 |
+ |
#include <stdlib.h> |
14 |
+ |
|
15 |
|
#if (RAND_MAX <= 65536) |
16 |
|
#define random() ((long)rand()<<16^(long)rand()<<6^(long)rand()>>4) |
17 |
|
#else |
19 |
|
#endif |
20 |
|
#define srandom(s) srand((unsigned)(s)) |
21 |
|
|
22 |
< |
#define frandom() (rand()*(1./RAND_MAX)) |
22 |
> |
#define frandom() (rand()*(1./(RAND_MAX+.5))) |
23 |
|
|
24 |
|
#else |
25 |
|
#ifdef BSD |
40 |
|
#endif |
41 |
|
#endif |
42 |
|
|
53 |
– |
#ifdef MC |
54 |
– |
|
55 |
– |
#define urand(i) frandom() |
56 |
– |
#define initurand(n) (n) |
57 |
– |
|
58 |
– |
#else /* ! MC */ |
59 |
– |
|
43 |
|
extern unsigned short *urperm; |
44 |
|
extern int urmask; |
45 |
|
|
46 |
< |
#define urand(i) ((urperm[(i)&urmask]+frandom())/(urmask+1)) |
46 |
> |
#define urand(i) (urmask ? (urperm[(i)&urmask]+frandom())/(urmask+1) \ |
47 |
> |
: frandom()) |
48 |
|
|
49 |
|
extern int initurand(int size); |
66 |
– |
|
67 |
– |
#endif /* ! MC */ |
68 |
– |
|
69 |
– |
#endif /* ! NORANDOM */ |
50 |
|
|
51 |
|
/* defined in urand.c */ |
52 |
|
extern int ilhash(int *d, int n); |