求矩阵特征值算法及程序简介

求矩阵特征值算法及程序简介 1.幂法 1、幂法规范化算法 （1）输入矩阵A 、初始向量)0(，误差eps ； （2）1k； （3）计算)1()(kkAV； （4）)max(,)max()1(1)( kkkkVmVm； （5）kkkmV/)()(； （6）如果epsmmkk1,则显示特征值1 和对应的特征向量)1(x),终止； （7）1 kk,转（3） 注：如上算法中的符号)max(V 表示取向量V 中绝对值最大的分量。本算法使用了数据规范化处理技术以防止计算过程中出现益出错误。 2、规范化幂法程序 Clear[a,u,x]; a=Input["系数矩阵A="]; u=Input["初始迭代向量u(0)="]; n=Length[u]; eps=Input["误差精度eps ="]; nmax=Input["迭代允许最大次数nmax="]; fmax[x_]:=Module[{m=0,m1,m2}, Do[m1=Abs[x[[k]]]; If[m1>m,m2=x[[k]];m=m1], {k,1,Length[x]}]; m2] v=a.u; m0=fmax[u]; m1=fmax[v]; t=Abs[m1-m0]//N; k=0; While[t>eps&&k