Math VBA蒙特卡罗模拟-维修时间生成器（对数正态分布）

我的名字是Rik，我是一个6西格玛绿带，我创建了一个飞机发动机维修设施的蒙特卡罗模拟。我目前正在Excel VBA上做一个6西格玛项目

我只是在开发程序时缩放了一个随机数，但现在它已经开发出来了，我想使用反向对数正态CDF来创建随机修复时间，但我无法在线找到该函数

我确实在上面找到了下面的代码，但它是正态分布，我不确定它的准确性。我找不到逆对数正态CDF的方程。我想为反向对数正态CDF函数编写类似的代码

非常感谢您的帮助

'****************************************************************************
'*         Return random numbers from Standard Normal Distribution          *
'****************************************************************************
Function gauss()
    Dim fac As Double, r As Double, V1 As Double, V2 As Double
10      V1 = 2 * Rnd - 1
        V2 = 2 * Rnd - 1
        r = V1 ^ 2 + V2 ^ 2
        If (r >= 1) Then GoTo 10
        fac = Sqr(-2 * Log(r) / r)
        gauss = V2 * fac
End Function

---

如果您使用的是Excel VBA，则可以使用Excel函数Loginv和0到1之间的随机数生成随机日志正态分布数

如果您使用的是Excel VBA，则Excel函数Loginv和0到1之间的随机数可用于生成随机日志正态分布数

excelvba是一个非常糟糕的统计工具；有很多统计工具可以防止你在这样的任务上重新发明轮子（并减少引入错误的可能性）。有些甚至是免费的（R就是一个很好的例子）。你应该在你的问题中添加[math]标签来吸引专业人士。Xcel VBA是一个非常糟糕的统计工具；有很多统计工具可以防止你在这样的任务上重新发明轮子（并减少引入错误的可能性）。有些甚至是免费的（R就是一个很好的例子）。你应该在你的问题上添加[math]标签来吸引专家