Solving homogeneous Fredholm Equation of the second kind

I am trying to solve a homogeneous Fredholm integral equation of the second kind, i.e. $\lambda y(x) = \int\limits_a^b e^{i[\phi(t)+k(t-x/M)^2]} y(t)\,dt$

where $\lambda$ is the eigenvalue (to be determined), and $\phi(t)$ is a polynomial in $t$. Has anyone come across a Mathematica routine to do this? Thanks! Mark

• If k is large, one obvious thing that comes to mind is to use the saddle point approximation. The general equation does not look like the one you can solve exactly. Numerically, you can try some finite difference scheme, or may be something similar to what I described here. Commented May 14, 2013 at 21:25
• Could you give a particular $a,b,k,M$ and $\phi(t)$ you're studying? Commented May 15, 2013 at 8:44
• Leonid: Thanks for the comments. The problem with stationary-phase is that past the first term, succeeding terms depend on the value at the end points, which doesn't really help. I also looked at your link - it's not clear to me how one gets the eigenvalue using that method.
– Mark
Commented May 15, 2013 at 17:45
• @J.M.: let a=-1, b=1, k~500, M=3, phi = c2 t^2 - c4 t^4 with c2 and c4 constants of order 100 and 10 respectively
– Mark
Commented May 15, 2013 at 17:59
• @Mark Since your value of k is so large, I would still start with a stationary phase, and then perhaps use some iterative scheme. The scheme I linked to will be very hard to apply directly, given the highly oscillatory kernel of your equation - one would need to discretize on a very fine grid, and likely also use extended precision arithmetic - and even then I don't think this will be robust. To my mind, you first have to factor out the highly oscillatory part, which stationary phase should do for you - and then you could perhaps apply some finite difference scheme to the corrections. Commented May 15, 2013 at 19:58

You could use the code provided by PlatoManiac in response to a similar question which implements the method from Rahbar and Hashemizadeh's paper A Computational Approach to the Fredholm Integral Equation of the Second Kind.

NISolve.nb

The Mathematica library includes code for Numerical Solution of One-Dimensional Linear Integral Equations of the Second Kind.

To get the code to work in recent versions of Mathematica you'll need to remove the line

<<UtilitiesFilterOptions;


and change the two occurrences of

fintopt=FilterOptions[FunctionInterpolation,opt];


to

fintopt=Sequence@@FilterRules[{opt},FunctionInterpolation];


(these instructions were detailed in this previous post for a different function).