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 |