85 lines
1.9 KiB
C
85 lines
1.9 KiB
C
#ifndef MAT_H
|
|
#define MAT_H
|
|
|
|
#include <gmp.h>
|
|
#include <malloc.h>
|
|
|
|
#define LOOP(i,n) for(int i = 0; i < (n); i++)
|
|
|
|
// library for matrix computations in variable rings (based on GMP types)
|
|
|
|
#ifdef QEXT
|
|
|
|
#include "qext.h"
|
|
|
|
#define NUMBER qext_number
|
|
#define INIT qext_init
|
|
#define CLEAR qext_clear
|
|
#define SET qext_set
|
|
#define SET_INT qext_set_int
|
|
#define SET_Q qext_set_q
|
|
#define SET_ZERO(x) qext_set_int((x),0)
|
|
#define SET_ONE(x) qext_set_int((x),1)
|
|
#define ADD qext_add
|
|
#define SUB qext_sub
|
|
#define MUL qext_mul
|
|
// #define DIV qext_div
|
|
#define CMP qext_cmp
|
|
#define PRINT qext_print
|
|
#define SNPRINT qext_snprint
|
|
|
|
#endif
|
|
|
|
#ifdef QEXT_TRIVIAL
|
|
|
|
#define NUMBER mpq_t
|
|
#define INIT mpq_init
|
|
#define CLEAR mpq_clear
|
|
#define SET mpq_set
|
|
#define SET_INT(x,y) mpq_set_si(x,y,1)
|
|
#define SET_ZERO(x) SET_INT(x,0)
|
|
#define SET_ONE(x) SET_INT(x,1)
|
|
#define ADD mpq_add
|
|
#define SUB mpq_sub
|
|
#define MUL mpq_mul
|
|
#define DIV mpq_div
|
|
#define PRINT(x) gmp_printf("%Qd", x)
|
|
|
|
#endif
|
|
|
|
#define M(m,i,j) ((m)->x[(i)+(m)->n*(j)])
|
|
|
|
struct _mat{
|
|
int n;
|
|
NUMBER *x;
|
|
} ;
|
|
|
|
typedef struct _mat mat[1];
|
|
|
|
typedef struct _mat_workspace {
|
|
mat tmp_mat;
|
|
NUMBER tmp_num;
|
|
NUMBER tmp_num2;
|
|
} mat_workspace;
|
|
|
|
mat_workspace *mat_workspace_init(int n);
|
|
void mat_workspace_clear(mat_workspace *ws);
|
|
void mat_init(mat m, int n);
|
|
void mat_get(NUMBER out, mat m, int i, int j);
|
|
void mat_set(mat m, int i, int j, NUMBER x);
|
|
NUMBER *mat_ref(mat m, int i, int j);
|
|
void mat_zero(mat m);
|
|
void mat_identity(mat m);
|
|
void mat_copy(mat to, mat from);
|
|
void mat_clear(mat m);
|
|
int mat_same(mat m1, mat m2);
|
|
static void mat_multiply_outofplace(mat_workspace *ws, mat out, mat in1, mat in2);
|
|
void mat_multiply(mat_workspace *ws, mat out, mat in1, mat in2);
|
|
void mat_det(mat_workspace *ws, NUMBER out, mat in);
|
|
static void mat_pseudoinverse_outofplace(mat_workspace *ws, mat out, mat in);
|
|
void mat_pseudoinverse(mat_workspace *ws, mat out, mat in);
|
|
void mat_trace(NUMBER out, mat in);
|
|
void mat_print(mat in);
|
|
|
|
#endif
|