wolfram-mathematica - 数学で積分方程式を解く

Question

Mathematicaユーザーの皆様、

私は物理学の学生で（Mathematicaのスキルはあまりありません）、積分方程式を解く必要があります。以下は私の試みのスケッチです：

iterstepGap := (valuesgap = Table[
    {t,
     NIntegrate[
     Exp[2 (tprime - t)] gapStart[tprime]/(3- tprime) EllipticK[Exp[tprime - t]],
       {tprime, -10, t}, MaxRecursion -> 150, WorkingPrecision -> 30] +
      NIntegrate[
        Exp[tprime - t] gapStart[tprime]/(3- tprime) EllipticK[Exp[t - tprime]],
       {tprime, t, 0},  MaxRecursion -> 150, WorkingPrecision -> 30]
     }, {t, -10, 0, 1}];
  approxgap[t_] = InterpolatingPolynomial[valuesgap, t]
)

と

gapStart[t_] = 0.002 Exp[-t] ((Exp[t] + t)/(t - 1) + 1);

問題は、関数が非常にひどく振動していることです。私が言ったように、私は数学に非常に慣れていないので、正しいことをしているのかよくわかりません...この種の方程式を解くためのより良い方法はおそらくありますか？

事前にどうもありがとうございました！