下载此文档

C语言解线性方程组.doc


文档分类:IT计算机 | 页数:约3页 举报非法文档有奖
1/3
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/3 下载此文档
文档列表 文档介绍
//求线性方程组的解,化成除对角线外其余的元素都为0#include<>intmain(){inti,j,n,m,r;floata[50][50],k,det=1;A:printf("输入方程组个数m=");scanf("%d",&m);printf("输入未知数个数n=");scanf("%d",&n);if(m==n){printf("输入线性方程组的系数和常数组成的矩阵\n"); //输入矩阵for(i=0;i<m;i++){ for(j=0;j<n+1;j++) scanf("%f",&a[i][j]);} printf("您输入的矩阵为:\n");for(i=0;i<m;i++){ for(j=0;j<n+1;j++) printf("%\t",a[i][j]); printf("\n"); } //用极小数代替矩阵中的0元素 for(i=0;i<m;i++) { for(j=0;j<n;j++) { if(a[i][j]==) a[i][j]=1e-10; } } //求解第一步化为下上角矩阵 for(i=1;i<m;i++) { for(j=0;j<i;j++) { k=-a[i][j]/a[j][j]; //printf("%\t",k); for(r=0;r<n+1;r++) { a[i][r]=k*a[j][r]+a[i][r]; } } } //求行列式 for(i=0;i<m;i++) det*=a[i][i]; printf("行列式:det=%\n",det); if(det!=0) { printf("上三角矩阵如下:\n"); for(i=0;i<m;i++) { for(j=0;j<n+1;j++) printf("%\t",a[i][j]); printf("\n"); } //求解第二步化为上三角矩阵 printf("消去右上角元素:\n"); for(i=m-2;i>=0;i--) { for(j=n-1;j>=i+1;j--) { k=-a[i][j]/a[j][j]; for(r=0;r<n+1;r++) { a[i][r]=k*a[j][r]+a[i][r]; } } } for(i=0;i<m;i++) { for(j=0;j<n+1;j++) { printf("

C语言解线性方程组 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数3
  • 收藏数0 收藏
  • 顶次数0
  • 上传人miaoshen1985
  • 文件大小16 KB
  • 时间2019-07-27