我正在尝试使用 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
最佳答案
也许使用蒙特卡洛技术来估计值(value)?
这是此方法的维基百科文章:
http://en.wikipedia.org/wiki/Monte_Carlo_integration
关于用于积分负指数的 VBA 代码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29587539/