文档介绍:该【数值分析实验报告 】是由【莫比乌斯】上传分享,文档一共【40】页,该文档可以免费在线阅读,需要了解更多关于【数值分析实验报告 】的内容,可以使用淘豆网的站内搜索功能,选择自己适合的文档,以下文字是截取该文章内的部分文字,如需要获得完整电子版,请下载此文档到您的设备,方便您编辑和打印。实验五解线性方程组的直接方法
实验.(主元的选取与算法的稳定性)
问题提出:Gauss消去法是我们在线性代数中已经熟悉的。但由于计算机的数值运算是在一个有限的浮点数集合上进行的,如何才能确保Gauss消去法作为数值算法的稳定性呢?Gauss消去法从理论算法到数值算法,其关键是主元的选择。主元的选择从数学理论上看起来平凡,它却是数值分析中十分典型的问题。
实验内容:考虑线性方程组
编制一个能自动选取主元,又能手动选取主元的求解线性方程组的Gauss消去过程。
实验要求:
()取矩阵,则方程有解。取n=计算矩阵的条件数。让程序自动选取主元,结果如何?
()现选择程序中手动选取主元的功能。每步消去过程总选取按模最小或按模尽可能小的元素作为主元,观察并记录计算结果。若每步消去过程总选取按模最大的元素作为主元,结果又如何?分析实验的结果。
()取矩阵阶数n=或者更大,重复上述实验过程,观察记录并分析不同的问题及消去过程中选择不同的主元时计算结果的差异,说明主元素的选取在消去过程中的作用。
()选取其他你感兴趣的问题或者随机生成矩阵,计算其条件数。重复上述实验,观察记录并分析实验结果。
思考题一:(Vadermonde矩阵)设
,
其中,,
()对n=,,,计算A的条件数;随n增大,矩阵性态如何变化?
()对n=,解方程组Ax=b;设A的最后一个元素有扰动-,再求解Ax=b
()计算()扰动相对误差与解的相对偏差,分析它们与条件数的关系。
()你能由此解释为什么不用插值函数存在定理直接求插值函数而要用拉格朗日或牛顿插值法的原因吗?
相关MATLAB函数提示:
zeros(m,n)生成m行,n列的零矩阵
ones(m,n)生成m行,n列的元素全为的矩阵
eye(n)生成n阶单位矩阵
rand(m,n)生成m行,n列(,)上均匀分布的随机矩阵
diag(x)返回由向量x的元素构成的对角矩阵
tril(A)提取矩阵A的下三角部分生成下三角矩阵
triu(A)提取矩阵A的上三角部分生成上三角矩阵
rank(A)返回矩阵A的秩
det(A)返回方阵A的行列式
inv(A)返回可逆方阵A的逆矩阵
[V,D]=eig(A)返回方阵A的特征值和特征向量
norm(A,p)矩阵或向量的p范数
cond(A,p)矩阵的条件数
[L,U,P]=lu(A)选列主元LU分解
R=chol(X)平方根分解
Hi=hilb(n)生成n阶Hilbert矩阵
.实验过程:
..程序:
functionx=gauss(n,r)
n=input('请输入矩阵A的阶数:n=')
A=diag(*ones(,n))+diag(ones(,n-),)+diag(*ones(,n-),-)
b=A*ones(n,)
fori=:
p=input('条件数对应的范数是p-范数:p=')
pp=cond(A,p)
end
pause
[m,n]=size(A);
nb=n+;Ab=[Ab]
r=input('请输入是否为手动,手动输入,自动输入:r=')
fori=:n-
ifr==
[pivot,p]=max(abs(Ab(i:n,i)));
ip=p+i-;
ifip~=i
Ab([iip],:)=Ab([ipi],:);disp(Ab);pause
end
end
ifr==
i=i
ip=input('输入i列所选元素所处的行数:ip=');
Ab([iip],:)=Ab([ipi],:);disp(Ab);pause
end
pivot=Ab(i,i);
fork=i+:n
Ab(k,i:nb)=Ab(k,i:nb)-(Ab(k,i)/pivot)*Ab(i,i:nb);
end
disp(Ab);pause
end
x=zeros(n,);x(n)=Ab(n,nb)/Ab(n,n);
fori=n-:-:
x(i)=(Ab(i,nb)-Ab(i,i+:n)*x(i+:n))/Ab(i,i);
end
..实验结果如下:
.按照实验要求一:取矩阵A的阶数:n=且自动选取主元,程序结果运行如下:
现选择程序中手动选取主元的功能,观察并记录计算结果。
①选取绝对值最大的元素为主元:
程序运行开始如第一问的截图也是求范数故这里不在给出。
Theansweris:
②选取绝对值最小的元素为主元:
Theansweris:
.e+*(INF..-.-...-.-..)
⑶取矩阵A的阶数:n=,手动选取主元:
选取绝对值最大的元素为主元:
Theansweris:
选取绝对值最小的元素为主元:
Theansweris:
.e+*(-Inf..-.-...-.-...-.-...-.-...-.)
⑷修改程序如下:
functionx=gaussong(n,r)
n=input('请输入矩阵A的阶数:n=')
A=hilb(n)
b=A*ones(n,)
fori=:
p=input('条件数对应的范数是p-范数:p=')
pp=cond(A,p)
end
pause
[m,n]=size(A);
nb=n+;Ab=[Ab]
r=input('请输入是否为手动,手动输入,自动输入:r=')
fori=:n-
ifr==
[pivot,p]=max(abs(Ab(i:n,i)));
ip=p+i-;
ifip~=i
Ab([iip],:)=Ab([ipi],:);disp(Ab);pause
end
end
ifr==
i=i
ip=input('输入i列所选元素所处的行数:ip=');
Ab([iip],:)=Ab([ipi],:);disp(Ab);pause
end
pivot=Ab(i,i);
fork=i+:n
Ab(k,i:nb)=Ab(k,i:nb)-(Ab(k,i)/pivot)*Ab(i,i:nb);
end
disp(Ab);pause
end
x=zeros(n,);x(n)=Ab(n,nb)/Ab(n,n);
fori=n-:-:
x(i)=(Ab(i,nb)-Ab(i,i+:n)*x(i+:n))/Ab(i,i);
end
①所求范数为:
自动输入结果为:
ans=
..........
②选取绝对值最大的元素为主元结果为:
Theansweris:
NaNNaNNaNNaNNaNInf-Inf-Inf.-.
③选取绝对值最小的元素为主元结果为:
Theansweris:
NaNNaNNaN-Inf-.-.-.-..-.
..对实验结果进行分析:
...对实验要求一的结果进行分析:对于Gauss消去法就是用行的初等变换将原线性方程组系数矩阵转化为简单形式,从而进行求解,缺点是迭代次数可能较多,效率不高,且在消去过程中不可以将主元素很小的做除数,否则将导致其他元素数量级的严重增长和舍入误差的扩散,使得计算解不可靠。
...对实验要求二的结果进行分析:通过每次选取最大或最小的主元可以发现取绝对值大的元素作为主元比取绝对值小的元素作为主元时产生的结果比较准确,即选取绝对值小的主元时结果产生了较大的误差,条件数越大产生的误差就越大。所以应尽量避免很小的数作为除数。
...对实验要求三的结果进行分析:此要求是对要求一和要求二的一个延续,通过实验结果可以看出若采用很小的数作为主元迭代次数越多导致的结果越不可靠,甚至出现错误。
...对实验要求四的结果进行分析:对新矩阵进行实验发现依然符合上述规律,可以知道,在进行迭代时主元的选择与算法的稳定性有密切的联系选取绝对值大的元素作为主元比绝对值小的元素作为主元时对结果产生的误差较小。条件数越大对用gauss消去法解线性方程组时,对结果产生的误差就越大。
..实验总结:
在用gauss消去法解线性方程组时,主元的选取与算法的稳定性有密切的联系,选取适当的主元有利于得出稳定的算法,
在算法的过程中,选取绝对值较大的主元比选取绝对值较小的主元更有利于算法的稳定,选取绝对值最大的元素作为主元时,得出的结果相对较准确较稳定。
条件数越小,对用这种方法得出的结果更准确。
在算除法的过程中要尽量避免使用较小的数做为除数,以免发生结果数量级加大,使大数吃掉小数,产生舍入误差。
实验.(线性代数方程组的性态与条件数的估计)
问题提出:理论上,线性代数方程组的摄动满足
矩阵的条件数确实是对矩阵病态性的刻画,但在实际应用中直接计算它显然不现实,因为计算通常要比求解方程还困难。
实验内容:Matlab中提供有函数“condest”可以用来估计矩阵的条件数,它给出的是按-范数的条件数。首先构造非奇异矩阵A和右端,使得方程是可以精确求解的。再人为地引进系数矩阵和右端的摄动
,使得充分小。
实验要求:
()假设方程Ax=b的解为x,求解方程,以-范数,给出的计算结果。
()选择一系列维数递增的矩阵(可以是随机生成的),比较函数“condest”,借助函数“eig”很容易给出cond(A)的数值。将它与函数“cond(A,)”所得到的结果进行比较。
()利用“condest”给出矩阵A条件数的估计,针对()中的结果给出的理论估计,并将它与()给出的计算结果进行比较,分析所得结果。注意,如果给出了cond(A)和的估计,马上就可以给出的估计。
()估计著名的Hilbert矩阵的条件数。
.实验过程如下:
...实验要求一的程序如下:
functionn=jisuan(n)
a=fix(*rand(n))+
x=ones(n,)
b=a*x
data=rand(n)*.
datb=rand(n,)*.
A=a+data
B=b+datb
x=get(A,B)
x=norm(x-x,)/norm(x,)
functionx=get(A,B)
[m,n]=size(A);
nb=n+;AB=[AB];
fori=:n-
pivot=AB(i,i);
fork=i+:n
AB(k,i:nb)=AB(k,i:nb)-(AB(k,i)/pivot)*AB(i,i:nb);
end
end
x=zeros(n,);
x(n)=AB(n,nb)/AB(n,n);
fori=n-:-:
x(i)=(AB(i,nb)-AB(i,i+:n)*x(i+:n))/AB(i,i);
End
...实验要求一程序运行结果如下:
系数矩阵a为:
加扰动后的系数矩阵A为:
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.