用于积分负指数的 VBA 代码

Question

我正在尝试使用 Excel VBA 执行集成。想知道如果我需要积分一个负指数，我将如何使用近似方法来做到这一点(因为 x/0 是未定义的，因此这种近似无法估计它)

我目前的代码是:

Function Integral(sExp As String, dMin As Double, dMax As Double, lBit As Long)
Dim dU As Double
Dim lU As Long
dU = (dMax - dMin) / lBit
For lU = 1 To lBit
    IntegralTemp = IntegralTemp + Evaluate(Replace(sExp, "u", dMin)) * dU + 0.5 * dU * Abs(Evaluate(Replace(sExp, "u", dMin + dU)) - Evaluate(Replace(sExp, "u", dMin)))
    dMin = dMin + dU
Next lU
Integral = IntegralTemp
End Function

Answer 1

也许使用蒙特卡洛技术来估计值(value)？

这是此方法的维基百科文章:

http://en.wikipedia.org/wiki/Monte_Carlo_integration