投资组合风险价值蒙特卡罗模拟及其信息化实现.docVIP

投资组合风险价值蒙特卡罗模拟及其信息化实现 　　[摘 要] 本文在介绍投资组合风险价值理论与蒙特卡罗模拟步骤的基础上,编制了风险价值蒙特卡罗模拟的程序,提高了工作效率#65377; 　　[关键词] 风险价值;蒙特卡罗模拟;程序设计 　　[中图分类号]F830.59[文献标识码]A[文章编号]1673-0194(2008)21-0053-02 　　 　　1 投资组合的风险价值的一般原理 　　风险价值的计算公式为: 　　VaR= w0(Zσ+ μ)#65377;式中,VaR为风险价值;w0为初始投资额;σ为投资收益率的标准差;μ为投资收益率的均值;Z为标准正态分布的抽样分位数,其由下式确定:1-α= 　　edy;式中,α为置信水平#65377; 　　假设投资组合中各个风险资产的收益率均服从正态分布,那么投资组合的收益率也服从正态分布,则投资组合的风险价值为:VaR= w0(Zσ+ μ)#65377;式中,VaR为投资组合的风险价值;σ为投资组合收益率的标准差; μ为投资组合收益率的均值(预期收益率)#65377;抽样分位数Z可由电子表格软件中的NORMSINV函数求得#65377; 　　2 投资组合风险价值的蒙特卡罗模拟步骤 　　利用蒙特卡罗模型方法对投资组合的风险价值进行估计的方法和步骤: 　　(1) 首先利用股票价格的模拟模型来估计未来某一时期内股票的价格:S= Sexp(μΔt+ σz)#65377;式中,S为t时刻的股票价格;S为t+1时刻的股票价格;μ为股票价格对数变动的均值;σ为股票价格对数变动的标准差;Δt为要计算的时间间隔(以年为单位);z为服从标准正态分布的随机数#65377; 　　(2)根据得到的未来股票价格利用投资组合风险价值的历史数据模拟计算模型方法估计投资组合的风险价值#65377; 　　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 ＇目前的投资组合价格 　　UserForm1.Show 　　UserForm1.Label2.Width = 0 　　For j = 1 To m 　　sum1 = 0 　　sum2 = 0 　　For t = 1 To