版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
1、山西大学计算机与信息技术学院实验报告姓 名小 超 学 号11111111专业班级2013级 计算机科学与技术课程名称计算方法实验指导教师李实验日期2015/11/03成 绩实验名称用列主元高斯-约当法解方程组一、实验目的：用列主元高斯-约当法解线性方程组。式中，为阶非奇异方阵，式阶列向量，并分析选主元的重要性。二、实验内容：解下列方程组 三、实验程序：源代码#include <iostream>/ Hello.cpp : 定义控制台应用程序的入口点。#include "stdio.h"#include "stdlib.h"#include&q
2、uot;math.h"int main() double arr45= 1.1348,3.8326,1.1651,3.4017,9.5342,0.5301,1.7875,2.5330,1.5435,6.3941,3.4129,4.9317,8.7643,1.3142,18.4231,1.2371,4.9998,10.6721,0.0147,16.9237;for(int i=1; i<3; i+) /确定第一列列主元if(arr00<arri0)for(int j=0; j<5; j+) double temp = arr0j;arr0j =arrij;arrij
3、= temp;/输出矩阵printf("确定第一列列主元n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/将第一列除第一行外其他值变成0double olda;for(int i= 1; i<4; i+) olda = arri0;for(int j=0; j<5; j+) arrij=(arrij-(olda/arr00)*arr0j);/输出矩阵print
4、f("n");printf("n");printf("将第一列除第一行外其他值变成0n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第一行第一列值变为1for(int j=4; j>-1; j-) arr0j=arr0j/arr00;/输出矩阵printf("n");printf("n&quo
5、t;);printf("把第一行第一列值变为1n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/确定第二列列主元for(int i=2; i<4; i+) if(fabs(arr11)<fabs(arri1)for(int j=1; j<5; j+) double temp = arr1j;arr1j =arrij;arrij = temp;/输出矩阵p
6、rintf("n");printf("n");printf("确定第二列列主元n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第二列三四行变为0for(int i=2; i<4; i+) for(int j=4; j>0; j-) arrij=arrij-arri1/arr11*arr1j;/输出矩阵printf(&
7、quot;n");printf("n");printf("把第二列三四行变为0n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第二行第二列的值变为1for(int j=4; j>0; j-) arr1j=arr1j/arr11;/输出矩阵printf("n");printf("n");prin
8、tf("第二行第二列的值变为1n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第一行第二列值变为0for(int j=4; j>0; j-) arr0j=arr0j-arr1j*arr01;/输出矩阵printf("n");printf("n");printf("把第一行第二列值变为0n");for(i
9、nt i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/确定第三列列主元for(int i=3; i<4; i+) if(fabs(arr22)<fabs(arri2)for(int j=2; j<5; j+) double temp = arr2j;arr2j =arrij;arrij = temp;/输出矩阵printf("n");printf("n")
10、;printf("确定第三列列主元n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第四行第三列的值变为0for(int j=4; j>1; j-) arr3j=arr3j-arr32/arr22*arr2j;/输出矩阵printf("n");printf("n");printf("把第四行第三列的值变为0n&qu
11、ot;);for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第三行第三列的值变为1for(int j=4; j>1; j-) arr2j=arr2j/arr22;/输出矩阵printf("n");printf("n");printf("把第三行第三列的值变为1n");for(int i=0; i<4; i+) for(int
12、j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第一、二行的第三列元素变为0for(int i=0; i<2; i+) for(int j=4; j>1; j-) arrij=arrij-arri2*arr2j;/kk/输出矩阵printf("n");printf("n");printf("把第一、二行的第三列元素变为0n");for(int i=0; i<4; i+) for(in
13、t j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/把第四行第四列的值变为1for(int j=4; j>2; j-) arr3j=arr3j/arr33;/输出矩阵printf("n");printf("n");printf("把第四行第四列的值变为1n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f&quo
14、t;,arrij);printf("t");printf("n");/把第一、二、三行的第四列值变为0for(int i=0; i<3; i+) for(int j=4; j>2; j-) arrij=arrij-arri3*arr3j;/kk/输出矩阵printf("n");printf("n");printf("把第一、二、三行的第四列值变为0n");for(int i=0; i<4; i+) for(int j=0; j<5; j+) printf("%f",arrij);printf("t");printf("n");/double x1=arr04;double x2=arr14;double x3=arr24;double x4=arr34;printf("x1=%f",x1);printf("n");printf("x2=%f",x2);printf("n");printf(&quo
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论