title: Solve an integral equation in Mathematica
body: <p>Dear Mathematica Users,</p>
  
  <p>I am a physics student (not very skilled with Mathematica) and I have to solve an integral equation. Below is a sketch of my attempt: </p>
  
  <pre><code>iterstepGap := (valuesgap = Table[
      {t,
       NIntegrate[
       Exp[2 (tprime - t)] gapStart[tprime]/(3- tprime) EllipticK[Exp[tprime - t]],
         {tprime, -10, t}, MaxRecursion -&gt; 150, WorkingPrecision -&gt; 30] +
        NIntegrate[
          Exp[tprime - t] gapStart[tprime]/(3- tprime) EllipticK[Exp[t - tprime]],
         {tprime, t, 0},  MaxRecursion -&gt; 150, WorkingPrecision -&gt; 30]
       }, {t, -10, 0, 1}];
    approxgap[t_] = InterpolatingPolynomial[valuesgap, t]
  )
  </code></pre>
  
  <p>with </p>
  
  <pre><code>gapStart[t_] = 0.002 Exp[-t] ((Exp[t] + t)/(t - 1) + 1);
  </code></pre>
  
  <p>The problem is that the function is oscillating very badly. As I said I am very new with  mathematica and I am not quite sure I am doing the right thing... is there perhaps a better method to solve this kind of equation? </p>
  
  <p>Thank you very much in advance!</p>