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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
/* Author: G. Jungman + modifications from O. Teytaud
*/
#ifndef __GSL_QRNG_H__
#define __GSL_QRNG_H__
#include <stdlib.h>
#include <gsl/gsl_types.h>
#include <gsl/gsl_errno.h>
#include <gsl/gsl_inline.h>
#undef __BEGIN_DECLS
#undef __END_DECLS
#ifdef __cplusplus
# define __BEGIN_DECLS extern "C" {
# define __END_DECLS }
#else
# define __BEGIN_DECLS /* empty */
# define __END_DECLS /* empty */
#endif
__BEGIN_DECLS
/* Once again, more inane C-style OOP... kill me now. */
/* Structure describing a type of generator.
*/
typedef struct
{
const char * name;
unsigned int max_dimension;
size_t (*state_size) (unsigned int dimension);
int (*init_state) (void * state, unsigned int dimension);
int (*get) (void * state, unsigned int dimension, double x[]);
}
gsl_qrng_type;
/* Structure describing a generator instance of a
* specified type, with generator-specific state info
* and dimension-specific info.
*/
typedef struct
{
const gsl_qrng_type * type;
unsigned int dimension;
size_t state_size;
void * state;
}
gsl_qrng;
/* Supported generator types.
*/
GSL_VAR const gsl_qrng_type * gsl_qrng_niederreiter_2;
GSL_VAR const gsl_qrng_type * gsl_qrng_sobol;
GSL_VAR const gsl_qrng_type * gsl_qrng_halton;
GSL_VAR const gsl_qrng_type * gsl_qrng_reversehalton;
/* Allocate and initialize a generator
* of the specified type, in the given
* space dimension.
*/
gsl_qrng * gsl_qrng_alloc (const gsl_qrng_type * T, unsigned int dimension);
/* Copy a generator. */
int gsl_qrng_memcpy (gsl_qrng * dest, const gsl_qrng * src);
/* Clone a generator. */
gsl_qrng * gsl_qrng_clone (const gsl_qrng * q);
/* Free a generator. */
void gsl_qrng_free (gsl_qrng * q);
/* Intialize a generator. */
void gsl_qrng_init (gsl_qrng * q);
/* Get the standardized name of the generator. */
const char * gsl_qrng_name (const gsl_qrng * q);
/* ISN'T THIS CONFUSING FOR PEOPLE?
WHAT IF SOMEBODY TRIES TO COPY WITH THIS ???
*/
size_t gsl_qrng_size (const gsl_qrng * q);
void * gsl_qrng_state (const gsl_qrng * q);
/* Retrieve next vector in sequence. */
INLINE_DECL int gsl_qrng_get (const gsl_qrng * q, double x[]);
#ifdef HAVE_INLINE
INLINE_FUN int gsl_qrng_get (const gsl_qrng * q, double x[])
{
return (q->type->get) (q->state, q->dimension, x);
}
#endif /* HAVE_INLINE */
__END_DECLS
#endif /* !__GSL_QRNG_H__ */
|
