- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
基于历史模拟法对投资组合风险价值的度量
摘要:本文运用历史模拟法对一个特定的股票投资组合的风险价值进行度量,得出在95%的置信水平下,该投资组合在下一期的风险价值。
关键词:历史模拟法 风险价值 股票投资组合
一、导言
风险价值(VAR)是指在一定的概率置信水平下,某一资产或资产组合在未来特定的一段时间内的最大可能损失。
例如,假定时段为周,置信水平为95%,而历史数据水平位100,则第5个最坏的收益就是风险价值的估计值。其意义为:在下一周,我们有95%的把握,资产组合的最大损失不会超过这个估计值。
风险价值的估计方法主要有三种:风险度量模型、历史数据模拟法、蒙特卡洛模拟法。由于实际上的证券投资组合收益率的概率分布并不完全符合正态分布的,所以风险度量模型就显得偏离实际。
因此开发市场风险模型的大部分金融机构都采用了历史模拟法(向后模拟法)。采用历史模拟法的好处是:(1)简单,(2)不要求资产回报率为正态分布,(3)不要求计算资产回报率的相关系数或标准差。
二、基本原理
计算过程:
计算出几只股票构成的投资组合价格变动产生的周收益,按收益额由小到大排序,根据置信水平和投资组合单位即可求出预期风险价值。
相关公式:
投资组合价格=Σ每只投票价格*相应投资比例
投资组合单位=投资额/投资组合价格
风险价值=投资组合单位*第二个最坏收益(因为置信水平为95%,历史数据为52周的股票价格)
三、实际操作
首先,设定4只股票作为投资组合,我选的4只股票为:重庆啤酒600132,格力地产600185,星湖科技600866 ,中国人寿601628 。接下来收集过去53周的周五收盘价数据。数据如下:
周五周盘价
重庆啤酒600132
格力地产600185
星湖科技
600866
中国人寿
601628
2012/11/23
15.72
5.78
4.34
17.71
2012/11/30
13.50
5.77
3.90
17.65
2012/12/7
13.85
6.09
4.06
18.55
2012/12/14
14.80
6.19
4.21
19.56
2012/12/21
14.81
6.13
4.72
19.24
2012/12/28
15.39
6.73
4.57
20.22
2013/1/4
15.46
7.25
4.55
21.60
。。。。。。 。。。 。。。 。。。 。。。
2013/10/25
16.97
7.85
4.30
13.43
2013/11/1
18.46
7.51
4.23
14.20
2013/11/8
17.93
7.48
4.08
13.68
2013/11/15
18.28
7.87
4.15
14.05
2013/11/22
18.59
8.86
4.23
15.38
数据来源:大智慧
然后,建立一个名为“投资组合风险价值的历史数据模拟计算模型”的xlsx的工作簿,页面布局如下所示:
接下来,为命令按钮编写程序代码,
(1)对【准备按钮】指定一个名字为”Sub准备数据()”的宏,并编写如下程序代码:
Sub 准备数据()
Dim n, m, i As Integer
n = Cells(4, 2)
m = Cells(5, 2)
Cells(10, 1) = 输入各个证券的投资比例
Cells(10, 1).HorizontalAlignment = xlCenter
。。。。。。
For i = 1 To n
Cells(15, i + 1) = 证券 i
Cells(15, i + 1).HorizontalAlignment = xlCenter
Next i
End With
End Sub
(2)对【开始计算】指定一个名字为”Sub开始计算()”的宏,并编写如下程序代码:
Sub 开始计算()
Dim n, m, nm, i, j As Integer
Dim myrange1, myrange2, myrange3 As String
n = Cells(4, 2)
m = Cells(5, 2)
Cells(14, 2 + n) = 计算过程
。。。。。。
Range(f3) = =average( myrange1 )
Range(f4) = =average( myrange2 )
Range(f5) = =b3 / myrange3
Range(f6) = =f
文档评论(0)