求解逆矩阵源代码:＃include 〈stdio
h>＃include 〈stdlib
h〉#include #define TINY 1
0e—20void inverse（double＊*，int);void ludcmp（double**， int, int＊， double*)；void lubksb(double＊*, int， int*, double＊）；double *＊matrix(int，int,int,int);double *vector(int,int);void free_matrix（double＊*,int，int，int，int);void free_vector（double＊,int，int）；void inverse（double **mat, int dim){ int i，j，*indx； double ＊＊y,d,＊col; y = matrix(0,dim—1，0,dim—1)； indx = （int *）malloc((unsigned）(dim＊sizeof(int))）; col = vector（0,dim—1)； ludcmp（mat，dim，indx,＆d)； for (j=0;j〈dim；j++） ｛ for （i=0;i
