求高手，用EXCEL求多期美式期权价格的VBA代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

u=1.1
d=0.2
r=0.0003
期数n=20
股票价格s=50
行权价格x=50

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：用excel EXCEL 美式期权 xcel exce 股票价格 EXCEL

有人会吗？

有人会吗？急

你用的是binomial法吧，不是BS来求的吧！
自己找本vba的书去看看吧，不是很难的。

DerivaGem~~~~~

Option Base 0  'arrays number from 0
Function BinOptVal(iopt, S, X, r, q, tyr, sigma, nstep)  'code for European Options CRR
'returns binomial option value,European only where iopt=1 for call,-1 for put
Dim u, d, p, pstar
Dim i As Integer, j As Integer
Dim vvec As Variant
ReDim vvec(nstep)   'known size of vector
'calculate parameters
u=Exp(sigma*Sqr(tyr/nstep))
d=1/u
p=Exp(r-q)*Sqr(tyr/nstep)-d/(u-d)
pstar=1-p
'calculating vector of of option values after nstep
  For i = 0 To nstep
  vvec(i) = Application.Max(iopt * (S *( u ^ i) * (d ^ (nstep - i)) - X), 0)
  Next i
  'claculating conditional payoff & discounting back step-by-step
    For j = nstep - 1 To 0
      For i = 0 To j
                   vvec(i) = (p * vvec(i + 1) + pstar * vvec(i)) / erdt
      Next i
    Next j
    BinOptVal = vvec(0)
End Function

不好意思，没看清楚，这是欧式的，

不好意思，没看清楚，这是欧式的，你改下相关的参数

再说明一下吧：美式期权与欧式期权的（用CRR）计算的话，最后一期的价值是一样的，但前期的价值不一样，美式每次都要求最大值（"行权收益与欧式方法"计算值比较），欧式则不用，根据这个思想去改吧