matrix.h

Embedded magazine source code. this is the source code in the year 1989

#ifndef TRUE
#define TRUE -1
#endif
#ifndef FALSE
#define FALSE 0
#endif

typedef unsigned char BYTE;
typedef unsigned int USHORT;

typedef struct full_matrix_elem {
    double elem;
    BYTE   row;
    BYTE   col;
    struct full_matrix_elem *pNextRow;
    struct full_matrix_elem *pNextCol;
} FULL_MATRIX_ELEM;


typedef struct {
    BYTE    bRow;
    BYTE    bCol;
    BYTE    bType;
    FULL_MATRIX_ELEM *( *pFirstRow )[];
    FULL_MATRIX_ELEM *( *pFirstCol )[];
} FULL_MATRIX;


typedef struct matrix_elem {
    double elem;
    BYTE   index;
    struct matrix_elem *pNext;
} MATRIX_ELEM;


typedef struct {
    BYTE    bRow;
    BYTE    bCol;
    BYTE    bType;
    MATRIX_ELEM *( *pFirst )[];
} MATRIX;

/*
    Matrix type constants
*/
#define ROW 0x01
#define COL 0x02
#define FULL 0x04
#define LU 0x80
#define NOREMOVE 0x40
#define HIGH 0xF0
#define LOW  0x0F

/*
    Function prototypes
*/
MATRIX *dimension( BYTE, BYTE, BYTE );
int in_matrix( MATRIX *, BYTE, BYTE, double );
double out_matrix( MATRIX *, BYTE, BYTE, double * );
void insert_in_list( MATRIX_ELEM *, MATRIX_ELEM * );
MATRIX_ELEM *find_location( MATRIX_ELEM *, BYTE );
int remove_from_list( MATRIX_ELEM *, BYTE );
MATRIX_ELEM *make_elem( BYTE, double );
MATRIX *add_matrices( MATRIX *, MATRIX * );
MATRIX *sub_matrices( MATRIX *, MATRIX * );
MATRIX *const_mult_matrix( MATRIX *, double );
MATRIX *mult_matrices( MATRIX *, MATRIX * );
double mult_vector( MATRIX *, MATRIX * );
int row_to_full( MATRIX ** );
int col_to_full( MATRIX ** );
int change_rep( MATRIX ** );
int transpose( MATRIX ** );
MATRIX *solve( MATRIX *, MATRIX * );
MATRIX *decompose( MATRIX * );
void remove_matrix( MATRIX * );
void remove_chain( MATRIX_ELEM * );
int mat_print( MATRIX * );
MATRIX *copy_matrix( MATRIX *, BYTE );
MATRIX *forward_sub( MATRIX *, MATRIX * );
MATRIX *back_sub( MATRIX *, MATRIX * );