实验五矩阵的LU分解法,雅可比迭代实验报告学院:计算机科学与软件学院班级:116班姓名:薛捷星学号:112547一、目的与要求:熟悉求解线性方程组的有关理论和方法;会编制列主元消去法、LU 分解法、雅可比及高斯—塞德尔迭代法德程序;通过实际计算,进一步了解各种方法的优缺点,选择合适的数值方法。
二、 实验内容:会编制列主元消去法、LU 分解法、雅可比及高斯—塞德尔迭代法德程序,进一步了解各种方法的优缺点。
三、 程序与实例列主元高斯消去法算法:将方程用增广矩阵[A ∣b ]=(ij a )1n (n )+⨯表示1) 消元过程对k=1,2,…,n-1①选主元,找{}n ,,1k ,k i k +∈使得k ,i k a =ik a ni k max ≤≤ ②如果0a k ,i k =,则矩阵A 奇异,程序结束;否则执行③。
③如果k i k ≠,则交换第k 行与第k i 行对应元素位置,j i kj k a a ↔ j=k,┅,n+1④消元,对i=k+1, ┅,n 计算kk ik ik a a l /=对j=l+1, ┅,n+1计算kj ik ij ij a l a a -=2) 回代过程①若0=nn a ,则矩阵A 奇异,程序结束;否则执行②。
②nn n n n a a x /1,+=;对i=n-1, ┅,2,1,计算ii ni j j ij n i i a x a a x /11,⎪⎪⎭⎫ ⎝⎛-=∑+=+程序与实例例1 解方程组⎪⎩⎪⎨⎧=++-=++-=++035.3643x .5072x .1835x .2137.2623x .43712x 347x .1 1.1833.555x 2.304x 0.101x 321321321输出结果如下:X[0]=-0.398234X[1]= 0.013795X[2]= 0.335144程序如下:#include<stdio.h>#include<math.h>main(){int i,j,p,o,l,q;doublea[3][4]={{0.101,2.304,3.555,1.183},{-1.347,3.712,4.623,2.137},{-2.835,1.072,5.643,3.035}};double x[3],z[4];printf("列主元消去法\n");for(j=0;j<2;j++){for(i=j+1;i<3;i++){if(fabs(a[j][j])<fabs(a[i][j])){for(p=0;p<4;p++){z[p]=a[j][p];a[j][p]=a[i][p];a[i][p]=z[p];}/*交换得最大主元*/}}for(l=j+1;l<3;l++){for(q=3;q>=j;q--){a[l][q]=(a[l][q]-(a[l][j]/a[j][j])*a[j][q]);}}printf("进行消去:\n");for(o=0;o<3;o++){for(p=0;p<4;p++){printf("%12.6f",a[o][p]);}printf("\n");}}x[2]=a[2][3]/a[2][2];x[1]=(a[1][3]-x[2]*a[1][2])/a[1][1];x[0]=(a[0][3]-x[2]*a[0][2]-x[1]*a[0][1])/a[0][0];printf("最后的解:\n");for(i=0;i<3;i++){printf("x[%d]=%12.6f\n",i,x[i]);}}结果如下:例2 解方程组⎪⎪⎪⎩⎪⎪⎪⎨⎧=++++=++++=++++=++++=++++-12.041.0F 1.02E 3.47D 1.04C 3.54B -6.301.0F2.01E 2.51D 4.04C 5.05B -8.531.0F 1.21E 2.92D 1.46C3.53B -20.071.0F 1.10E4.48D 1.21C 4.93B -32.041.0F 1.55E5.66D 2.40C 8.77B计算结果如下B=-1.161954C= 1.458125D=-6.004824E=-2.209018F= 14.719421程序如下:#include<stdio.h>#include<math.h>void main(void){int i,j,p,o,l,q;doublea[5][6]={{8.77,2.40,5.66,1.55,1.0,-32.04},{4.93,1.21,4.48,1.10,1.0,-20.07},{3.53,1.46,2.92,1.21,1.0,-8.53},{5.05,4.04,2.51,2.01,1.0,-6.30},{3.54,1.04,3.47,1.02,1.0,-12.04}};double x[5],z[6];printf("列主元消去法求五元一次方程组:\n");for(j=0;j<4;j++){for(i=j+1;i<5;i++){if(fabs(a[j][j])<fabs(a[i][j])){for(p=0;p<6;p++){z[p]=a[j][p];a[j][p]=a[i][p];a[i][p]=z[p];}/*交换得最大主元*/}}for(l=j+1;l<5;l++){for(q=5;q>=j;q--){a[l][q]=(a[l][q]-(a[l][j]/a[j][j])*a[j][q]);}}printf("消去一列:\n");for(o=0;o<5;o++){for(p=0;p<6;p++){printf("%12.6f",a[o][p]);}printf("\n");}}x[4]=a[4][5]/a[4][4];x[3]=(a[3][5]-x[4]*a[3][4])/a[3][3];x[2]=(a[2][5]-x[4]*a[2][4]-x[3]*a[2][3])/a[2][2];x[1]=(a[1][5]-x[4]*a[1][4]-x[3]*a[1][3]-x[2]*a[1][2])/a[1][1];x[0]=(a[0][5]-x[4]*a[0][4]-x[3]*a[0][3]-x[2]*a[0][2]-x[1]*a[0][1])/a[0][0];printf("方程组的解为:\n");for(i=0;i<5;i++){printf("x[%d]=%12.6f\n",i,x[i]);}}矩阵直接三角分解法算法:将方程组A x=b 中的A 分解为A =LU ,其中L 为单位下三角矩阵,U 为上三角矩阵,则方程组A x=b 化为解2个方程组Ly =b ,Ux =y ,具体算法如下:①对j=1,2,3,…,n 计算j j a u 11=对i=2,3,…,n 计算1111/a a l i i =②对k=1,2,3,…,n:a. 对j=k,k+1,…,n 计算∑-=-=11k q qj kq kj kj u l a ub. 对i=k+1,k+2,…,n 计算kk k q qk iq ik ik u u l a l /)(11∑-=-=③11b y =,对k=2,3,…,n 计算∑-=-=11k q q kq k k y l b y④nn n n u y x /=,对k=n-1,n-2,…,2,1计算kk n k q q kq k k u x u y x /)(1∑+=-=注:由于计算u 的公式于计算y 的公式形式上一样,故可直接对增广矩阵[A ∣b ]=⎥⎥⎥⎥⎦⎤⎢⎢⎢⎢⎣⎡+++1,211,2222211,111211n n nn n n n n n n a a a a a a a a a a a a施行算法②,③,此时U 的第n+1列元素即为y 。