Re: [公告] 有關明天選擇權的作業!!!
昆展大大的想法是對的
Function mcAverage(s,t,rf,v,n,num )
Dim drift, vol, dT, sum, st, Taverage, z As Double
Dim i, j As Integer
dT = t / n
drift = rf * dT
vol = v * dT ^ 0.5
For i = 0 To num - 1
st = s
For j = 0 To n - 1
st = st * Exp(drift + vol * WorksheetFunction.NormInv(Rnd(), 0, 1))
Next j
Taverage = Taverage + Log(st / s)
Next i
mcAverage = Taverage / num
End Function
5000次之後答案為0.15907079
有興趣的同學TRY10000次吧
我要去睡了
--
L`amour `eternel
這是一句我唯一能對妳說的話
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.171.144.6
推
220.229.89.24 04/12, , 1F
220.229.89.24 04/12, 1F
→
220.229.89.24 04/12, , 2F
220.229.89.24 04/12, 2F
討論串 (同標題文章)
完整討論串 (本文為第 5 之 5 篇)：