101 lines
5.4 KiB
C
101 lines
5.4 KiB
C
#include "macros.h"
|
|
#include "types.h"
|
|
|
|
#ifndef LIZFCM_H
|
|
#define LIZFCM_H
|
|
|
|
extern float smaceps();
|
|
extern double dmaceps();
|
|
|
|
extern double central_derivative_at(double (*f)(double), double a, double h);
|
|
extern double forward_derivative_at(double (*f)(double), double a, double h);
|
|
extern double backward_derivative_at(double (*f)(double), double a, double h);
|
|
|
|
extern double sum_v(Array_double *v);
|
|
extern Array_double *scale_v(Array_double *v1, double m);
|
|
extern Array_double *add_v(Array_double *v1, Array_double *v2);
|
|
extern Array_double *minus_v(Array_double *v1, Array_double *v2);
|
|
extern double v_dot_v(Array_double *v1, Array_double *v2);
|
|
extern double l2_norm(Array_double *v);
|
|
extern double l1_norm(Array_double *v);
|
|
extern double linf_norm(Array_double *v);
|
|
extern double vector_distance(Array_double *v1, Array_double *v2,
|
|
double (*norm)(Array_double *));
|
|
extern double l2_distance(Array_double *v1, Array_double *v2);
|
|
extern double l1_distance(Array_double *v1, Array_double *v2);
|
|
extern double linf_distance(Array_double *v1, Array_double *v2);
|
|
extern Array_double *copy_vector(Array_double *v1);
|
|
extern Array_double *add_element(Array_double *v, double x);
|
|
extern Array_double *slice_element(Array_double *v, size_t x);
|
|
extern void free_vector(Array_double *v);
|
|
extern void format_vector_into(Array_double *v, char *s);
|
|
extern int vector_equal(Array_double *a, Array_double *b);
|
|
|
|
extern Matrix_double *put_identity_diagonal(Matrix_double *m);
|
|
extern Matrix_double **lu_decomp(Matrix_double *m);
|
|
extern Array_double *bsubst(Matrix_double *u, Array_double *b);
|
|
extern Array_double *fsubst(Matrix_double *l, Array_double *b);
|
|
extern Array_double *solve_matrix_lu_bsubst(Matrix_double *m, Array_double *b);
|
|
extern Matrix_double *gaussian_elimination(Matrix_double *m);
|
|
extern Array_double *solve_matrix_gaussian(Matrix_double *m, Array_double *b);
|
|
extern Array_double *m_dot_v(Matrix_double *m, Array_double *v);
|
|
extern Matrix_double *m_dot_m(Matrix_double *a, Matrix_double *b);
|
|
extern Matrix_double *transpose(Matrix_double *m);
|
|
extern Array_double *col_v(Matrix_double *m, size_t x);
|
|
extern Matrix_double *copy_matrix(Matrix_double *m);
|
|
extern Matrix_double *add_column(Matrix_double *m, Array_double *col);
|
|
extern Matrix_double *slice_column(Matrix_double *m, size_t col);
|
|
extern void free_matrix(Matrix_double *m);
|
|
extern void format_matrix_into(Matrix_double *m, char *s);
|
|
extern int matrix_equal(Matrix_double *a, Matrix_double *b);
|
|
|
|
extern Line *least_squares_lin_reg(Array_double *x, Array_double *y);
|
|
|
|
extern Array_double *find_ivt_range(double (*f)(double), double start_x,
|
|
double delta, size_t max_steps);
|
|
extern Array_double *bisect_find_root(double (*f)(double), double a, double b,
|
|
double tolerance, size_t max_iterations);
|
|
extern double bisect_find_root_with_error_assumption(double (*f)(double),
|
|
double a, double b,
|
|
double tolerance);
|
|
extern double fixed_point_iteration_method(double (*f)(double),
|
|
double (*g)(double), double x_0,
|
|
double tolerance,
|
|
size_t max_iterations);
|
|
extern double fixed_point_newton_method(double (*f)(double),
|
|
double (*fprime)(double), double x_0,
|
|
double tolerance,
|
|
size_t max_iterations);
|
|
extern double fixed_point_secant_method(double (*f)(double), double x_0,
|
|
double x_1, double tolerance,
|
|
size_t max_iterations);
|
|
extern double fixed_point_secant_bisection_method(double (*f)(double),
|
|
double x_0, double x_1,
|
|
double tolerance,
|
|
size_t max_iterations);
|
|
|
|
extern double dominant_eigenvalue(Matrix_double *m, Array_double *v,
|
|
double tolerance, size_t max_iterations);
|
|
extern double shift_inverse_power_eigenvalue(Matrix_double *m, Array_double *v,
|
|
double shift, double tolerance,
|
|
size_t max_iterations);
|
|
extern double least_dominant_eigenvalue(Matrix_double *m, Array_double *v,
|
|
double tolerance,
|
|
size_t max_iterations);
|
|
extern Array_double *partition_find_eigenvalues(Matrix_double *m,
|
|
Matrix_double *guesses,
|
|
double tolerance,
|
|
size_t max_iterations);
|
|
extern Matrix_double *leslie_matrix(Array_double *age_class_surivor_ratio,
|
|
Array_double *age_class_offspring);
|
|
|
|
extern double rand_from(double min, double max);
|
|
|
|
extern Array_double *jacobi_solve(Matrix_double *m, Array_double *b,
|
|
double tolerance, size_t max_iterations);
|
|
extern Array_double *gauss_siedel_solve(Matrix_double *m, Array_double *b,
|
|
double l2_convergence_tolerance,
|
|
size_t max_iterations);
|
|
|
|
#endif // LIZFCM_H
|