《基于历史模拟法对投资组合风险价值的度量.doc》由会员分享，可在线阅读，更多相关《基于历史模拟法对投资组合风险价值的度量.doc（3页珍藏版）》请在金锄头文库上搜索。
1、基于历史模拟法对投资组合风险价值的度量摘要：本文运用历史模拟法对一个特定的股票投资组合的风险价值进行度量，得出在95%的置信水平下，该投资组合在下一期的风险价值。关键词：历史模拟法 风险价值 股票投资组合一、导言风险价值（VAR）是指在一定的概率置信水平下，某一资产或资产组合在未来特定的一段时间内的最大可能损失。例如，假定时段为周，置信水平为95%，而历史数据水平位100，则第5个最坏的收益就是风险价值的估计值。其意义为：在下一周，我们有95%的把握，资产组合的最大损失不会超过这个估计值。风险价值的估计方法主要有三种：风险度量模型、历史数据模拟法、蒙特卡洛模拟法。由于实际上的证券投资组合收益率
2、的概率分布并不完全符合正态分布的，所以风险度量模型就显得偏离实际。因此开发市场风险模型的大部分金融机构都采用了历史模拟法（向后模拟法）。采用历史模拟法的好处是：（1）简单，（2）不要求资产回报率为正态分布，（3）不要求计算资产回报率的相关系数或标准差。二、基本原理计算过程：计算出几只股票构成的投资组合价格变动产生的周收益，按收益额由小到大排序，根据置信水平和投资组合单位即可求出预期风险价值。相关公式：投资组合价格=每只投票价格*相应投资比例投资组合单位=投资额/投资组合价格风险价值=投资组合单位*第二个最坏收益（因为置信水平为95%，历史数据为52周的股票价格）三、实际操作首先，设定4只股票作
3、为投资组合，我选的4只股票为：重庆啤酒600132，格力地产600185，星湖科技600866，中国人寿601628 。接下来收集过去53周的周五收盘价数据。数据如下：周五周盘价重庆啤酒600132格力地产600185星湖科技600866中国人寿6016282012/11/2315.72 5.78 4.34 17.71 2012/11/3013.50 5.77 3.90 17.65 2012/12/713.85 6.09 4.06 18.55 2012/12/1414.80 6.19 4.21 19.56 2012/12/2114.81 6.13 4.72 19.24 2012/12/2815
4、.39 6.73 4.57 20.22 2013/1/415.46 7.25 4.55 21.60 。 。 。 。 。2013/10/2516.97 7.85 4.30 13.43 2013/11/118.46 7.51 4.23 14.20 2013/11/817.93 7.48 4.08 13.68 2013/11/1518.28 7.87 4.15 14.05 2013/11/2218.59 8.86 4.23 15.38 数据来源：大智慧然后，建立一个名为“投资组合风险价值的历史数据模拟计算模型”的xlsx的工作簿，页面布局如下所示：接下来，为命令按钮编写程序代码，(1)对【准备按钮】
5、指定一个名字为”Sub准备数据（）”的宏，并编写如下程序代码：Sub 准备数据()Dim n, m, i As Integern = Cells(4, 2)m = Cells(5, 2)Cells(10, 1) = 输入各个证券的投资比例Cells(10, 1).HorizontalAlignment = xlCenter。For i = 1 To nCells(15, i + 1) = 证券 & iCells(15, i + 1).HorizontalAlignment = xlCenterNext iEnd WithEnd Sub(2)对【开始计算】指定一个名字为”Sub开始计算（）”的宏
6、，并编写如下程序代码：Sub 开始计算()Dim n, m, nm, i, j As IntegerDim myrange1, myrange2, myrange3 As Stringn = Cells(4, 2)m = Cells(5, 2)Cells(14, 2 + n) = 计算过程。Range(f3) = =average( & myrange1 & )Range(f4) = =average( & myrange2 & )Range(f5) = =b3 / & myrange3Range(f6) = =f4 * f5Range(f3:f6).NumberFormat = 0.00nm
7、 = Int(Cells(5, 2) * (1 - Cells(6, 2)Range(g3) = 第 & nm & 个最坏收益Range(h3) = =small( & myrange2 & , & nm & )Range(h4) = =f5 * abs(h3)Range(h3:h4).NumberFormat = 0.00End Sub(3)对【清除数据】指定一个名字为”Sub清除数据（）”的宏，并编写如下程序代码：Sub 清除数据()Range(b3:b6).ClearContentsRange(f3:f6).ClearContentsRange(h3:h4).ClearContentsR
8、ange(g3) = 第(x)个最坏收益Rows(10:10000).Delete shift:=xlUpEnd Sub最后，点击【准备数据】，输入各股历史数据，这里假设投资额为50000元，四只股票投资比例均为25%，置信水平为95%。点击【开始计算】，可得结果如下：计算结果投资组合计算风险价值计算价格均值11.04第2个最坏收益-0.72周收益均值0.02风险价值3038.67投资组合单位4249.89投资组合收益71.72四、结论由计算结果可知，该投资组合的价格均值为11.04元，周收益均值为0.02元,投资组合周收益的期望值为71.72。在95%的置信水平下，该投资组合第2个最坏的周收益为-0.72，该投资组合1周内的风险价值为3038.67元。参考文献:1安东尼桑德斯. 马西娅米伦科尼特.金融机构管理M. 王中华译, 北京：人民邮电出版社，2010.266-2822朱顺泉. 金融工程理论与应用M. 北京:清华大学出版社, 2012. 228-2453李兆斌. Excel 2003 与 VBA 编程从入门到精通 (中文版)J. 北京: 电子工业出版社，2004.
