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
|
extern void FUNCTION (matrix, register) (lua_State *L);
extern TYPE (gsl_matrix) * FUNCTION (matrix, push) (lua_State *L,
int n1, int n2);
extern TYPE (gsl_matrix) * FUNCTION (matrix, push_raw) (lua_State *L,
int n1, int n2);
extern void FUNCTION (matrix, push_view) (lua_State *L,
TYPE (gsl_matrix) *m);
extern TYPE (gsl_matrix) * FUNCTION (matrix, check) (lua_State *L,
int index);
extern void FUNCTION (matrix, null_view) (lua_State *L,
int index);
extern void FUNCTION (matrix, check_size) (lua_State *L,
TYPE (gsl_matrix) *m,
size_t n1, size_t n2);
extern int FUNCTION (matrix, inverse_raw)(lua_State *L,
const TYPE (gsl_matrix) *a);
extern int FUNCTION (matrix, solve_raw) (lua_State *L,
const TYPE (gsl_matrix) *a,
const TYPE (gsl_matrix) *b);
/* matrix helper functions */
extern void
FUNCTION (matrix, set_view_and_push) (lua_State *L, int index, double *data,
size_t n1, size_t n2, const double *src);
extern void
FUNCTION (matrix, set_view) (lua_State *L, int index, double *data,
size_t n1, size_t n2, const double *src);
extern void
FUNCTION (matrix, jacob_copy_real_to_cmpl) (double *dest_cmpl, double *src_real,
size_t n, size_t p, size_t mult);
extern void
FUNCTION (matrix, jacob_copy_cmpl_to_real) (double *dest_real, double *src_cmpl,
size_t n, size_t p, size_t mult);
|