gssjdf6.c

来自「基本矩阵运算 : + - *, power, transpose, trace,」· C语言 代码 · 共 36 行

/* gaussjordan4.c                   free ware                  [e-mail]
*/

/* --------------------------------- INCLUDES ------------------------------- */
#include "x_ahfile.h"

/* --------------------------------- MAIN ----------------------------------- */
int main(void)
{
double pb[6][7*C2]=
{
1,1, 3,2,  3,2,  1,1, -4,1, -1,1, -3,1,
1,1, 1,1,  7,1,  1,2,  4,2, -2,1, -2,1,
2,3, 8,5,  1,1, -6,3,  4,3, -3,1, -1,1,
1,2, 1,5, -6,1,  1,1,  1,1, -1,1, -3,1,
1,2, 4,5, -1,1,  5,1,  1,4, -2,1, -2,1,
1,2, 4,5, -1,1,  1,1,  1,4, -2,1, -1,1,
};
mF m={6,7*C2,&pb[0][0]};

/*-------------------------------- PROGRAM ---------------------------------- */
    p_mF3(&m);
   printf("\n\n Gauss Jordan elimination of matrix m \n");

  gaussjordan_mF (&m);
           p_mF4(&m);

 printf("\n Press Return to continue");
 getchar();

 return 0;
}