Wolfram mathematica 在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]
)

与

问题是函数的振荡非常严重。正如我所说，我对mathematica非常陌生，我不太确定我做的事情是否正确。。。也许有更好的方法来解这类方程吗

---

提前非常感谢

你最好在网上问这个问题。转到Mma.SE:

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