VAR的求值（VBA和MATLAB语言）

平凡之不凡

Var的值的计算
       VaR技术是一项风险度量技术，其核心是在资产回报的分布给定的情况下，度量某置信水平下的最大损失值，将这个值作为衡量资产风险的一种方法。一般置信水平是同资产持有人的风险偏好有关，说明风资产组合的风险。
计算VaR的值一般三个步骤：
1.计算足资产组合的方差，根据权重和协方差矩阵计算投资组合的方差
2.根据置信度，在正态分布表查找相应的下分位数；
3.计算VaR的值

平凡之不凡

VBA语言求VaR的值的函数
Dim 收益率标准差 As Double
Dim 置信水平 As Double
Dim z As Double
Dim 价格 As Double
Dim 数量 As Double
Dim 期望收益率 As Double
Function VarExtend(价格, 数量, 期望收益率, 收益率标准差, 置信水平)
z = Application.WorksheetFunction.NormSInv(1 - 置信水平)
VarExtend = 价格 * 数量 * (收益率标准差 * z + 期望收益率)
End Function

平凡之不凡

MATLAB中有专门的求解VaR的值的函数，但是我们可以利用已有函数求解：
设已知四种资产的价格矩阵Price和权重，那么在MATLAB中，
ExpP=mean(Price);    %求出各项价格的平均值
C=cov(Price);        %求协方差矩阵
Wts=[w1,w2,w3,w4];   %各项资产的权重比
ExpPort=Wts*ExpP;  %资产组合的期望收益
PortVar=Wts*C*Wts; %资产投资组合的协方差
ConLev=0.95;       %置信水平，这里假设为0.95
icdf('normal',1-ConLev,Export,PortVar)    %求出给定置信水平的下分位数

平凡之不凡

也可以直接使用portvrisk直接求VaR的值。
函数语法格式；
ValueAtRisk=portvrisk(PortReturn,PortRisk,RiskThreshold,PortValue)
PortReturn     %资产足额和的期望回报
PortRisk       %资产组合的标准差
RiskThreshold  %可选，1-置信区间，默认值为5%
PortValue      %可选，资产组合价值，默认为1
输出变量：
ValueAtRisk    %资产组合的VaR

模天大楼

来淘宝贝啦O(∩_∩)O哈哈~

dsk1209

写的很好，学习中，经过这段时间的学习，的确感受的到了数学建模的魅力，希望国人能够跳出应试，取得更加有创意的成果！一起努力