列选主元矩阵求逆c源程序

上传人:j****9 文档编号:47745846 上传时间:2018-07-04 格式:PDF 页数:5 大小:87.25KB
返回 下载 相关 举报
列选主元矩阵求逆c源程序_第1页
第1页 / 共5页
列选主元矩阵求逆c源程序_第2页
第2页 / 共5页
列选主元矩阵求逆c源程序_第3页
第3页 / 共5页
列选主元矩阵求逆c源程序_第4页
第4页 / 共5页
列选主元矩阵求逆c源程序_第5页
第5页 / 共5页
亲,该文档总共5页,全部预览完了,如果喜欢就下载吧!
资源描述

《列选主元矩阵求逆c源程序》由会员分享,可在线阅读,更多相关《列选主元矩阵求逆c源程序(5页珍藏版)》请在金锄头文库上搜索。

1、列选主元矩阵求逆列选主元矩阵求逆 C C C C 源程序源程序列选主元矩阵求逆列选主元矩阵求逆 C C C C 源程序源程序/* * Copyright (C) 2011,北京航天时代激光导航技术有限责任公司 *All rights reserved. * * 程序功能:求矩阵的逆矩阵 * * 当前版本:V1.0 * 作者:谢页华 * * 手机:18611242620* * 邮箱:hitboy_ * 完成日期:2011-08-06 */#include “math.h“ #include “stdio.h“ #include “stdlib.h“int Matrix_Athwart(int n

2、,double *A) int i,j,k; double temp,*B;B=(double *)malloc(sizeof(double)*n*n);for (i=0;i=0;i-) for (k=i;k=0;k-) for (j=0;jn;j+) *(B+k*n+j)=*(B+k*n+j)-(*(A+k*n+i+1)/(*(A+(i+1)*n+i+1)*(*(B+(i+1)*n+j); for (i=0;in;i+) for (j=0;jn;j+) *(B+i*n+j)=*(B+i*n+j)/(*(A+i*n+i); for (i=0;in;i+) for (j=0;jn;j+) *(A

3、+i*n+j)=*(B+i*n+j); free(B);return(1);/矩阵可逆void Inverse_Matrix_Result_Output(int n,double *Matrix_A) int i,j;if (Matrix_Athwart(n,Matrix_A)!=1) printf(“矩阵不可逆!nn“);列选主元矩阵求逆列选主元矩阵求逆 C C C C 源程序源程序 else printf (“矩阵求逆的结果是:nn“);for (i=0;in;i+) for (j=0;jn;j+) printf(“%16.8f“,*(Matrix_A+i*n+j); printf(“nn

4、“); double *Parameter_Input(int n) int i,j; double *Matrix_A;Matrix_A=(double *)malloc(sizeof(double)*n*n);printf(“请输入待求逆矩阵:nn“);for (i=0;in;i+) for (j=0;jn;j+) scanf(“%lf“,Matrix_A+i*n+j); printf(“n“);return(Matrix_A);int main(void) int n;printf(“请输入矩阵维数 n:“); scanf(“%d“, printf(“n“);列选主元矩阵求逆列选主元矩阵求逆 C C C C 源程序源程序Inverse_Matrix_Result_Output(n,Parameter_Input(n);return(0);

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 中学教育 > 初中教育

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号