反幂法20231226

一种求实矩阵 $A$ 的按模最小的特征值，及其对应的特征向量 $x_i$ 的方法，只能求一个。
要保证矩阵最小特征值只有一个，有 $n$ 个线性无关的特征向量，矩阵可逆。
可以通过求矩阵 $A^{-1}$ 的按模最大特征值和对应特征向量来求矩阵 $A$ 的按模最小特征值。
每次乘完之后要规范化，防止上溢或下溢。规范化可以用各种范数。
一般会使用结合原点平移的方法来求最靠近某个数的特征值和特征向量。
步骤：
$$\begin{array}{rl}1.& 求B矩阵B=A-pI\\ & \\ 2.& 求初始向量u_0模最大元素的编号id,初始特征值{\beta }_0=u_0(id),求归一化后的初始向量y_0\\ & \\ 3.& 迭代,k=0,1,\cdots \\ & \\ & u_{k+1}=B^{-1}{y}_k\\ & \\ & {\beta }_{k+1}=u_{k+1}(i{d}_k)\cdot \text{sign}(y_k(i{d}_k))这里要乘模最大元素的符号\\ & \\ & y_{k+1}=\frac{u_{k+1}}{||u_{k+1}|{|}_{\infty }}\\ & \\ & i{d}_{k+1}=u_{k+1}模最大元素的编号\\ & \\ 4.& 判断是否满足{\beta }_{k+1}-{\beta }_k<\text{eps},特征值=p+\frac{1}{{\beta }_{k+1}}\end{array}$$

[!example]-
$$A=\left[\begin{array}{cc}3& 2\\ 1& 0\end{array}\right],u_0=\left[\begin{array}{c}0.95\\ 0.25\end{array}\right]$$
求靠近 $3.5$ 的特征值及特征向量，两次迭代。特征真值 $(3+\sqrt{17})/2$
解：
$$A-3.5I=\left[\begin{array}{cc}-0.5& 2\\ 1& -3.5\end{array}\right]$$
$$y_0=\frac{u_0}{||u_0|{|}_{\infty }}=\left[\begin{array}{c}1.0000\\ 0.2632\end{array}\right]$$
$$(A-3.5I)u_1=y_0\to u_1=\left[\begin{array}{c}16.1053\\ 4.5263\end{array}\right]$$
$u_1$ 看 $y_0$ ， $1$ 在上面， ${\beta }_1$ 第一个值为 $u_1$ 第一个值，符号与 $y_0$ 中的 $1$ 相同。
$${\beta }_1=16.1053$$
$$y_1=\frac{u_1}{||u_1|{|}_{\infty }}=\left[\begin{array}{c}1.0000\\ 0.2810\end{array}\right]$$
$$(A-3.5I)u_2=y_1\to u_2=\left[\begin{array}{c}16.2484\\ 4.5621\end{array}\right]$$
$${\beta }_2=16.2484$$
$$y_2=\frac{u_2}{||u_2|{|}_{\infty }}=\left[\begin{array}{c}1.0000\\ 0.2808\end{array}\right]$$
特征值
$$\lambda =3.5+\frac{1}{{\beta }_2}=3.5615447$$
对应的特征向量为 $y_1$ 或者 $y_2$ 。

反幂法matlab实现

%% 反幂法例子
A = [-12 3 3; 3 1 -2; 3 -2 7];
u0 = [1.0, 1.0, 1.0]';
% A = [3 2 ;1 0]; 
% u0 = [0.95 ; 0.25004];
% format long
[beta1, v, i] = inversePowerMethod(A, u0, -13, 1e-6, 100)%% 反幂法求模最小特征值和特征向量
% 输入矩阵、初始迭代向量、某个特征值最靠近的数、精度、最大迭代次数
% 输出特征值、无穷范数归一化后的特征向量、迭代次数
function [lbd, y1, i] = inversePowerMethod(A, u0, p, eps, max_iter)B = A-p*eye(size(A)); % B矩阵[u0norm, id] = max(abs(u0)); % 取无穷范数和其所在行beta0 = u0(id);y0 = u0/ u0norm;for i = 1:max_iteru1 = B^(-1)*y0; % 反幂法逻辑beta1 = u1(id)*sign(y0(id)); % ！！[u1norm, id] = max(abs(u1));y1 = u1/u1norm;if abs(beta1 - beta0)<epslbd = p+1/beta1;break;endy0 = y1;beta0 = beta1;end
end