用VBA做DOC，能帮我看看哪有问题吗？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

麻烦高手帮忙看看
Function DOC(S0, K, r, sigma, T, B, N, M)
Dim i As Integer
Dim j As Integer
Dim intermM, intermP, intermS As Double
epsilon = T / M
intermP = 0
For i = 1 To N
      intermS = S0
      intermM = S0
        For j = 1 To M
        intermS = intermS * (Exp(r - (1 / 2) * sigma ^ 2) * (epsilon) + sigma * (Sqr(epsilon)) * Gaussrand())
        intermM = Application.WorksheetFunction.Min(intermM, intermS)
        Next j
      If internM > b Then
      intermP = intermP + Application.WorksheetFunction.Max(intermS - K, 0)
      Else
      intemP = intemP
      End If
Next i
DOC = intermP * Exp(-r * T) / N
Range("B1").Value = DOC

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：doc VBA Application worksheet function sigma

不知道你自己有没有检验过有什么问题，我反正没发现什么问题，只是barrier option用这种naive的simulation可能会收敛比较慢，不准而已，你可以试试一些variance reduction 的技术推荐 stratified sampling

另外一个常用的方法是你simulate 一个indictor然后乘到普通的european option 上去即C_d=C_bs*P(Smin>B)