The R Project SVN R

Rev

Rev 3076 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3076 Rev 3609
Line 1... Line 1...
1 
/* Is basically only used by ../main/random.c  & ../nmath/sunif.c
 1 
/* only used by ../main/random.c  & ../nmath/sunif.c
2 
 */
 2 
 */
3 
#ifndef RANDOM_H
 3 
#ifndef RANDOM_H
4 
#define RANDOM_H
 4 
#define RANDOM_H
5 
 
 5 
 
6 
typedef unsigned long Int32;/* how is this done on 64-bit archtictures? */
 6 
typedef unsigned long Int32;/* how is this done on 64-bit archtictures? */
Line 11... Line 11...
11 
    SUPER_DUPER,
 11 
    SUPER_DUPER,
12 
    RAND,
 12 
    RAND,
13 
    MERSENNE_TWISTER,
 13 
    MERSENNE_TWISTER,
14 
} RNGtype;
 14 
} RNGtype;
15 
 
 15 
 
- 
 
 16 
/* Different kind of "N(0,1)" generators :*/
- 
 
 17 
typedef enum {
- 
 
 18 
    AHRENS_DIETER,
- 
 
 19 
    KINDERMAN_RAMAGE,
- 
 
 20 
} N01type;
- 
 
 21 
 
16 
typedef struct {
 22 
typedef struct {
17 
    RNGtype kind; /* above enum: 0,1,2... */
 23 
    RNGtype kind; /* above enum: 0,1,2... */
- 
 
 24 
    N01type Nkind;
18 
    char *name; /* print name */
 25 
    char *name; /* print name */
19 
    int is_seeded; /* False(0), True(1) */
 26 
    int is_seeded; /* False(0), True(1) */
20 
    int n_seed; /* length of seed vector */
 27 
    int n_seed; /* length of seed vector */
21 
    Int32 i1_seed;
 28 
    Int32 i1_seed;
22 
    Int32 *i_seed;
 29 
    Int32 *i_seed;