[問題]想請教一下程式碼的問題

看板Option (期貨與選擇權)作者 (.........)時間17年前 (2009/03/06 13:02), 編輯推噓0(006)
留言6則, 2人參與, 最新討論串1/1
我想詢問版上的高手 有用VBA寫過股價走勢的嗎 想詢問VBA程式碼該如何寫 Public Function mcasiancall(s, k, r, sg, t, n, m) Dim st() ReDim st(n) st(0) = s dt = t / n temp2 = 0 For i = 1 To m temp1 = 0 For j = 1 To n randn = Application.WorksheetFunction.NormInv(Rnd, 0, 1) st(j) = st(j - 1) * Exp((r - sg ^ 2 / 2) * dt + sg * Sqr(dt) * randn) temp1 = temp1 + st(j) Next temp2 = temp2 + max(temp1 / n - k, 0) Next mcasiancall = Exp(-r * t) * temp2 / m End Function 以上是買權賣權的隨機價格 那如果我想改成大盤股價走勢 也就是參數換成成長率跟波動率 我要怎麼改 比較簡單 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.171.89.1

03/06 13:13, , 1F
先把你試的po上來吧,你這樣問誰知道問題在那
03/06 13:13, 1F
※ 編輯: nicke 來自: 118.171.89.1 (03/06 13:31)

03/07 14:32, , 2F
雖然大致上看得懂你的變數 但你好歹也定義一下吧
03/07 14:32, 2F

03/07 14:33, , 3F
這應該是亞式的選擇權 其實你用蒙地卡羅先把股價存在一個
03/07 14:33, 3F

03/07 14:34, , 4F
array再做平均就好了 現在記憶體這麼大 不用用這種寫法來
03/07 14:34, 4F

03/07 14:35, , 5F
節省記憶體 我用過100萬次的蒙地卡羅 CPU1.3G RAM1G 來跑
03/07 14:35, 5F

03/07 14:36, , 6F
大概1分鐘可以知道結果 這是我的經驗
03/07 14:36, 6F
文章代碼(AID): #19iAvsN2 (Option)
文章代碼(AID): #19iAvsN2 (Option)