20101214金融工学

 

www31.atwiki.jp/waseda2bun/pages/86.html 

 

・日経HV 過去からの標準偏差

ex. 19.3 sigma=0.193(10/3現在)

11月切のcallを考えると満期が11/12(第二金曜日)=40日

r=0.2とするとc=115円

 

Function call01(S0, sigma, k, r, t, n)
'
' Macro1 Macro
'
num = t * n
dt = 1 / n

u = Exp(sigma * dt ^ 0.5)
d = Exp(-sigma * dt ^ 0.5)

p = 0.5 + (rf - 0.5 * sigma ^ 0.5) * dt ^ 0.5 / 2 * sigma
call01 = 0
For i = 0 To num
call01 = call01 + Kumiawase(num, i) * p ^ (num - i) * (1 - p) ^ i * Application.WorksheetFunction.Max(k - S * u ^ (num - i) * d ^ i, 0)
Next i

call01 = call01 * Exp(-r * t)
End Function

 

 

 

 

最終更新:2010年12月14日 17:59