Re: Eigenvalues and eigenvectors of a matrix with nonpolynomial elements.

*To*: mathgroup at smc.vnet.net*Subject*: [mg51315] Re: [mg51284] Eigenvalues and eigenvectors of a matrix with nonpolynomial elements.*From*: "Goyder Dr HGD" <h.g.d.goyder at cranfield.ac.uk>*Date*: Tue, 12 Oct 2004 12:45:33 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Goyder Dr HGD wrote: > I need to find the eigenvalues and eigenvectors of matrices where the elements depend on a variable, k, in a nonpolynomial manner. Thus, according to my (limited) knowledge of eigensystems, the eigenvalues are the values of k that make the determinant zero and there should be an eigenvector associated with each eigenvalue. A simple warm-up example is given below; my actual cases will be more complicated. I wish to know if the method I have put together below, using engineering rather than maths, is suitable and what accuracy I can expect. Daniel Lichtblau wrote: >No, eigenvalues for a matrix mat are values lambda for which mat - lambda*IndentityMatrix[...] is singular (that is, has zero determinant. In your example these would be functions of k. In simplified form I get Out[8]//InputForm= {-1 + I, -1 - I, (-Cosh[k] - Sin[k] - Sqrt[Cosh[k]^2 - 2*Cosh[k]*Sin[k] + Sin[k]^2 + 4*Cos[k]*Sinh[k]])/2, (-Cosh[k] - Sin[k] + Sqrt[Cosh[k]^2 - 2*Cosh[k]*Sin[k] + Sin[k]^2 + 4*Cos[k]*Sinh[k]])/2} Daniel Lichtblau Wolfram Research Thank you for your fast response. I apologies for not making myself clear. The warm up example comes from a differential equation eigenvalue problem rather than a simple matrix problem. The differential equation is given below and results in the matrix that I gave previously. Thus starting from the beginning we have a differential equation and boundary conditions which will only be satisfied for certain values of, k, which I take to be the eigenvalues. The problem is then to find these eigenvalues and the associated eigensolutions. (My actual problem involves sets of differential equations of this form.) The warm-up differential equation is In[103]:= DSolve[Derivative[4][y][x] - k^4*y[x] == 0, y[x], x] Out[103]= {{y[x] -> C[2]/E^(k*x) + E^(k*x)*C[4] + C[1]*Cos[k*x] + C[3]*Sin[k*x]}} I have translated this solution to the equivalent form In[104]:= e1 = A1*Cos[k*x] + A2*Sin[k*x] + A3*Cosh[k*x] + A4*Sinh[k*x]; The boundary conditions are In[107]:= bc = {0 == (e1 /. x -> 0), 0 == (1/k^2)*(D[e1, {x, 2}] /. x -> 0), 0 == (e1 /. x -> 1), 0 == (1/k)*(D[e1, x] /. x -> 1)}; Which give rise to a set of linear equations whose coefficient matrix may be found from In[108]:= e2 = Normal[CoefficientArrays[bc, {A1, A2, A3, A4}]] Out[108]= {{0, 0, 0, 0}, {{-1, 0, -1, 0}, {1, 0, -1, 0}, {-Cos[k], -Sin[k], -Cosh[k], -Sinh[k]}, {Sin[k], -Cos[k], -Sinh[k], -Cosh[k]}}} The values of k that satisfy this equation I am calling eigenvalues. Each value of {A1, A2, A3, A4} which is associated with each eigenvalue I am calling an eigenvector. We thus come to the matrix which I defined previously from which my eigenvalues and vectors must be extracted. In[109]:= e3 = e2[[2]] Out[109]= {{-1, 0, -1, 0}, {1, 0, -1, 0}, {-Cos[k], -Sin[k], -Cosh[k], -Sinh[k]}, {Sin[k], -Cos[k], -Sinh[k], -Cosh[k]}} -- This message has been scanned for viruses and dangerous content by the Cranfield MailScanner, and is believed to be clean.

**Follow-Ups**:**Re: Re: Eigenvalues and eigenvectors of a matrix with nonpolynomial elements.***From:*Daniel Lichtblau <danl@wolfram.com>