投資組合風險價值蒙特卡羅模擬的程序設計

[摘 要] 本文在投資組合風險價值公式的基礎上，給出了其投資組合風險價值的蒙特卡羅模擬步驟，設計了求解投資組合風險價值的計算程序，提高了其計算效率#65377;

[關鍵詞] 投資組合風險價值;蒙特卡羅模擬;程序設計

[中圖分類號]F232;F275[文獻標識碼]A[文章編號]1673-0194(2008)23-0033-03

1 投資組合風險價值的一般公式[1]

風險價值的計算公式為:

3 投資組合風險價值的蒙特卡羅模擬的程序設計

上述計算是一個相當煩瑣的過程，我們編制了一個VBA程序，對其進行了簡化#65377;VBA程序如下:

Sub zbsj()

Dim n As Integer， m As Integer， i As Integer

n = Cells(4， 2)

m = Cells(5， 2)

Cells(10， 1) = \"輸入各個證券的投資比重，股票價格，對數均值和對數標準差\"

Cells(11， 1) = \"證券\"

For i = 1 To n

Cells(11， i + 1) = \"證券\" i

Next i

Cells(12， 1) = \"投資比重\"

Cells(13， 1) = \"股票價格對數均值\"

Cells(14， 1) = \"股票價格對數標準差\"

Cells(15， 1) = \"目前股票價格\"

End Sub

Sub js()

Dim i As Integer， j As Integer， n As Integer， m As Integer， nt As Integer

Dim dt As Single， rd As Single， z As Single， sumt As Single， sum1 As Single， sum2 As Single

Dim myrange1 As String， myrange2 As String， myrange3 As String

n = Cells(4， 2)

m = Cells(5， 2)

nt = Cells(8， 2)

dt = Cells(6， 2) / 250

ReDim w(n)， p0(n)， p1n(n)， pcn(n)， p(n， m)， pp(m)，

rp(m) As Single

For i = 1 To n

w(i) = Cells(12， i + 1)'各股票的投資比例

p1n(i) = Cells(13， i + 1)'各股票價格對數均值

pcn(i) = Cells(14， i + 1)'各股票價格對數標準差

p(i， 0) = Cells(15， i + 1)'各股票的目前價格

Next i

sumt = 0

For i = 1 To n

sumt = sumt + w(i) * p(i， 0)

Next i

pp(0) = sumt '目前的投資組合價格

For j = 1 To m

sum1 = 0

sum2 = 0

For t = 1 To nt

sumt = 0

rd = Rnd()

z = Worksheets.Application.WorksheetFunction.NormSInv(rd)

For i = 1 To n

p(i， j) = p(i， j - 1) * Exp(p1n(i) * dt + pcn(i) * z * Sqr(dt)) '各股票價格模擬

sumt = sumt + w(i) * p(i， j)

Next i

sum1 = sum1 + sumt

Next t

pp(j) = sum1 / nt'各投資組合價格的模擬

Next j

For j = 1 To m

rp(j) = pp(j) - pp(j - 1)'各期投資組合收益的模擬

Next j

Cells(17， 1) = \"計算過程——(模擬計算)\" nt \"次的平均值\"

For j = 1 To m

Cells(17 + j， 1) = j

Cells(17 + j， 2) = pp(j)

Cells(17 + j， 3) = rp(j)

Range(Cells(17 + j， 2)， Cells(17 + j， 3)).NumberFormat = \"0.00\"

Next j

myrange1 = \"b18\" \":\" \"b\" 17 + m'投資組合價格數據區域

myrange2 = \"c18\" \":\" \"c\" 17 + m'投資組合各期收益數據區域

myrange3 = \"b18\"'期初投資組合價格數據區域

Range(\"F3\") = \"=average(\" myrange1 \" ) \"

Range(\"F4\") = \"=average(\" myrange2 \" ) \"

Range(\"F5\") = \"b3\" myrange3

Range(\"F6\") = \"f4*f5\"

Range(\"F5:F6\").Select

Selection.NumberFormat = \"0.00\"

nm = Int(Cells(5， 2) * (1 - Cells(7， 2)))

Range(\"G3\") = \"第\" nm \"個最壞收益\"

Range(\"H3\") = \"Small(\" myrange2 \"，\" nm \")\"

Range(\"H4\") = \"=F5*ABS(H3)\"

Range(\"H3:H4\").Select

Selection.NumberFormat = \"0.00\"

MsgBox (\"模擬計算結束\")

End Sub

主要參考文獻

[1] 韓良智. 使用VBA進行有效投資決策[M]. 北京:中國鐵道出版社，2006:165.

[2] 朱順泉. 理財信息化[M]. 北京:清華大學出版社，2006:297-304.