The problem here is to develop a routine that will determine one or more eigenvalues of a matrix using Newton’s method and considering the eigenvalue problem to be that of a nonlinear equation solution problem.
The simplest way to illustrate the problem and its solution is to use a 4 4 matrix.
Let us consider a square matrix . The definition of an eigenvalue requires that
For our test case writing out the solutions for the left and right hand sides yields
The problem here is that, with the intrusion of the eigenvalue, we
have one more unknown than we have equations for. We can remedy this
by insisting that the values of be normalized, or
Let us now construct a vector such that we have a closed system, all on the left hand side:
Since the object of Newton’s method is to arrive at this, we need an intermediate vector , or
Let us make the last “” or
The Jacobian of this vector with respect to the expanded vector is
Now we can solve the Newton’s method equation iteratively:
It is certainly possible to invert the Jacobian symbolically, but the algebra becomes very complicated, even for a relatively small matrix such as this one. A more sensible solution is to obtain numerical values for both Jacobian and vector, invert the former using the GaussJordan technique and then multiply this by the vector before performing the Newton iteration.
Now let us consider the case of the tridiagonal matrix
The eigenvalues of this matrix are
or numerically 3.618033989, 1.381966011, 2.618033989, and .381966011. The FORTRAN 77 code used for this is given at the end of the problem. Although the matrix is “hard coded” into the program, it is only necessary to change one parameter to change the matrix size.
The summary results of Newton’s Method are shown below.
There are two different quantities tracked above:
 The residual, i.e., the Euclidean norm of the entire vector.
 The error, i.e., the change in the eigenvalue from one step to the next.
Both these are tracked for three different starting places. For convenience,
all of the vector entries were initialized at the same value.
Some comments on the solution are as follows:
 As mentioned earlier, there were four eigenvalues to be determined. The method only returns one eigenvalue for each starting point, and that eigenvalue depends upon the starting point. The eigenvalues determined were 0.381966 (Start = 1 and Start = 2) and 2.6180339 (Start = 3.) Like the power method, this solution determines both an eigenvalue and eigenvector. Unlike the power method, it does not necessarily return the largest and/or smallest eigenvalue or even one easily predictable by the choice of starting value. With Newton’s Method, this is unsurprising; with multiple roots of an equation, which root is found very much depends upon the starting point. However, in the case where the number of roots is (in simple terms) the basic size of the matrix, this correspondence can become very complicated, and in some cases it is possible that certain eigenvalues will be missed altogether.
 As a corollary to the previous point, with some starting values the convergence almost comes apart, especially where Start = 3. With larger values than this, the program generates “nan” values and terminates abnormally. This result is a part of the method; poor initial estimates can led successive iterations “off the track” and thus fail to converge. Thus it is necessary to know the range of eigenvalues before one actually determines them, which to a great extent defeats the purpose of the method.
 The method is better at finding eigenvalues than finding eigenvectors. The residuals of the vector (which include the eigenvector plus the eigenvalue) converge much more slowly than the error. Those runs that were not limited by the termination criterion of the eigenvalue () showed a very slow convergence continue with the eigenvectors. For the eigenvectors, the convergence rate is reasonable.
The general impression of this method, therefore, is that under proper circumstances it is capable of producing eigenvalues and (to a lesser extent) eigenvectors, but that it is necessary to a) have some idea of the values of the eigenvectors going in and b) be prepared for the method to collapse with the wrong initial guesses. One possible application (given the convergence limitations discussed above) is to use it in conjunction with, say, the HouseholderGivens Method to determine the eigenvectors, which do not come out as a result of this method. The known eigenvalues give excellent starting values.
These results are confirmed when we expand the matrix to 1010.
We see that all of the errors and residuals go up and down from the initial guesses until convergence was achieved. The eigenvalues determined were 0.6902785 (Start = 1,) 1.7153704 (Start = 2,) and 1.7153703 (Start = 3.) Thus as before with three initial starting values only two eigenvalues were determined. The convergence was more lengthy than with the smaller matrix but not by much. This means that the method may be, to some extent, insensitive to matrix size, which would make it useful with larger matrices.
FORTRAN Code
The code calls several “standard” routines and includes whose significance is as follows:
 matsize.for is an include which includes a parameter statement for the actual matrix size. For theÂ 1010 matrix, it read as follows:

parameter (nn=10, nplus1=nn+1,mcycle=100)

 xmtinv is a subroutine to invert a matrix using GaussJordan elimination.
 matvec performs matrixvector multiplication (in that order).
 veclen computes the Euclidean norm of a vector.
c Determination of Eigenvalue(s) of Tridiagonal Matrix using c Newton's Method include 'matsize.for' dimension a(nn,nn),x(nplus1),f(nplus1),fj(nplus1,nplus1), &xt(nplus1),resid(mcycle),eigerr(mcycle) call tstamp c Define original matrix a do 1 i=1,nn,1 do 1 j=1,nn,1 a(i,j)=0.0 if (i.eq.j) a(i,j) = 2.0 if (abs(ij).eq.1) a(i,j) = 1.0 1 continue open (unit=2,file='m5610p2d.csv') write(2,*)'Original Matrix' do 2 i=1,nn,1 2 write(2,3)(a(i,j),j=1,nn,1) 3 format(100(g10.3,1h,)) c Make initial guesses of eigenvalues and values of x do 100 mm=1,3,1 vstart=float(mm) write(2,*)'Eigenvalue Results for vstart =',vstart do 4 i=1,nplus1,1 4 x(i)=vstart c Cycle Newton's method do 5 m=1,mcycle,1 eigold=x(nplus1) c Compute Jacobian for current step do 6 i=1,nplus1,1 do 6 j=1,nplus1,1 if(i.eq.nplus1.and.j.eq.nplus1) then fj(nplus1,nplus1)=0.0 goto 6 endif if(i.eq.j) then fj(i,i)=a(i,i)x(nplus1) goto 6 endif if(j.eq.nplus1) then fj(i,nplus1)=x(i) goto 6 endif if(i.eq.nplus1) then fj(nplus1,j)=2.0*x(j) goto 6 endif fj(i,j)=a(i,j) 6 continue c Output Jacobian write(2,*)'Jacobian Matrix' do 10 i=1,nplus1,1 10 write(2,3)(fj(i,j),j=1,nplus1,1) c Compute Newton "F" vector do 20 i=1,nplus1,1 if(inplus1)21,22,22 21 f(i)=x(nplus1)*x(i) do 23 j=1,nn,1 f(i)=f(i)+a(i,j)*x(j) 23 continue goto 20 22 f(i)=1.0 do 24 j=1,nn,1 24 f(i)=f(i)+x(i)**2 20 continue c Invert Jacobian call xmtinv(fj,nplus1,nplus1) c Postmultiply Jacobian by f vector call matvec(fj,f,xt,nplus1,nplus1) c Update Value of x vector and output the result write(2,*)'Result Vector for m = ',m do 7 k=1,nplus1,1 x(k)=x(k)xt(k) 7 write(2,*)x(k) c Compute norm of residual and error eigerr(m)=abs(x(nplus1)eigold) call veclen(xt,resid(m),nplus1) if(resid(m).lt.1.0e07.or.eigerr(m).lt.1.0e07)goto 30 5 continue c Output residual plot 30 write(2,*)'Residuals and Errors' write(2,101)mm,mm 101 format(27hIteration,Residual (Start =,i2, &16h),Error (Start = ,i2,1h)) do 31 i=1,m1,1 31 write(2,32)i,resid(i),eigerr(i) 32 format(i3,2(1h,,g10.3)) 100 continue close(unit=2) stop end
Thanks, useful post!!!
LikeLike