运用SAS对股票市场风险指标计算Word下载.docx

1、303撰写情况观点鲜明，论据确凿，文章材料详实可靠，有说服力；论文结构严谨，文理通顺；层次清晰，文笔流畅；图表正确、清晰、规范。4编程能力SAS编程能力，要求程序具有规范性与可读性，能解决实际问题评定成绩为： 任课教师签字： 年 月 日 运用SAS对股票市场风险指标计算摘要：理论在现实市场中的有效性值得进一步探讨，资本资产定价模型是用来确定证券均衡价格的一种预测模型，模型以其简洁的形式和理论的浅显易懂使它在整个经济学领域得到了广泛的应用，本文运用SAS软件实现CAPM模型在股市中的应用。关键词：CAPM模型 风险指标 SAS软件一.计算指标与环境1）理论模型风险是投资者未来收益的一种不确定性。

2、通常证券市场上由资产价格波动导致的投资者收益的不确定性被人们称为纯市场风险，进行市场风险分析的基本模型一资本资产定价模型CAPM为基础。模型： 其中，为股票j的超额收益；为市场超额收益；和为参数，且假定和不相关。将方差作为风险的度量，根据上述假设得到股票j的总风险为： 即股票j的风险分为两部分，和。前者由市场引起的股票j风险的度量，后者是与市场风险无关的股票j的非系统风险。根据传统的投资理论，系统风险不能用优化投资组合来消除，而非系统风险则是可以通过分散化投资组合来消除。 选定时期，根据经验数据可以得到模型的最小二乘估计，以及相应估计量，和。于是，系统风险占该股票总风险的比例估计值为： 有这实

3、际上就是模型测定系数的估计值。即为非系统风险所占总风险比例的估计。2）计算指标计算1999年至2005年，沪深两地股票市场系统风险指数，个股总风险和系统分风险占总风险比例三个风险指标。即具体计算： 系统风险系数估计值； 个股总风险估计值； 系统风险占总风险比值； 全市股票上述三种指标的概况统计量。3）计算环境计算数据集；银行存款利率BankIr；基准利率BchmkIr;个股日收益DretM;市场日收益DretM；时期：2005样本：沪深两市场满足条件的2006年前上市的所有股票日百分比收益。剔除1年内交易小于50天的股票。二 计算程序运用SAS软件对数据进行录入和做相应的处理。1）算法实现第一

4、步：创建无风险利率数据集RF;2005年市场日收益数据；第二步：创建宏文本Stk2006.txt；第三步：计算2005年沪深两市场A股个体风险指标；第四步：沪深两市场个股与市场风险关系统计分析；2）计算程序创建无风险利率数据集：/*1998年7月1日后使用回购利率两周指数加权平均为基准利率*/data a;set resdet.bahnmir;if code=B2W and date=1jun1998d;rename ir=rf;keep ir date;run;/*1998年7月1日前用1年期银行存款利率加10%为基准利率*/data b;set resdat.bankir;dly;data

5、 c;set b;format date yymmdd10;if enddt=.then enddt=date（）;do date =begdt to enddt;output;end;data d;set c;if datekeep date rf;rf=ir*1.1;/*在1年期存款利率的基础上再增加10%*/*合并得到基准利率表rfyr*/data rfyr;set d a;31dec2005/*得到日基利率表rf*/data rf;set rfyr;rf=rf/365;data DretM2005;set resdat.DretM;if year（date）=2005 and Exch

6、flg=0 and Mktflg=ABkeep date Dretmc;创建宏文本：Stk2006.txt利用选择的样本股票收益数据集Dret创建宏。如果要计算全部股票的风险指标，可以直接利用lstkinfo创建宏。set resdat.dret;if dif（stkcd）=0 then delete;data null;set a;a=%a（b=,c=）;file stk2006.txtput a $ stkcd $ b $ lstknm $ c $;计算2005年沪深两市场个股风险指标：模型r_s=a+beta*r_m+e/*2005年无风险利率数据集rf2005*/data rf2005

7、;set rf;if year（date）=2005；/*2005市场超额收益数据集*/data pdretm2005 rf2005;merge dretm2005 rf 2005;by date;rm=dretmc-rf;keep date rm;data pdretm2005;set pdretm2005;retain r_m;if rm=.then r_m=rm;drop rm;data dret;where year（date）=2005;proc sql;create table pdret2005 asselect * from dret left join rfon dret.d

8、ate=rf.date;proc sort data=pdret2005;by stkcd date;data pdret2005;set pdret2005;r_s=dret-rf;keep stkcd llstknm date r_s;create able capm2005 asselect * from pdret2005 left join pdretm2005on pdret2005.date=pdretm2005.date;proc sort data=capm2005;by stkcd;/*计算个股风险指标；数据集capm2005*/proc reg data=capm2005

9、 outset=d cp noprint;model r_s=r_m;set d;if（_edf_+_p_）50 then delete;data riiskl2005（keep=sn obs_rms_r_m_rsq_stkcd label=2005年个股与市场风险指标）；sn=_n_;obs=（_edf_+_p_）;label sn=个股序号label obs=观测个数label _rmse_=个股风险度label r_m=系统风险估计值betalabel _rsq_=系统风险占总风险比例2005年股票市场个股风险指标的概括统计量计算：proc univariate data=riskl20

10、05 nopprint;var r_m_rmse_rsq_;output out=out n=n_r_m n_rmse_ n_rsq_;mean=mean_r_m mean_rmse_ mean_rsq_median=median_r_m median_rmse_median_rsq_min=min_r_m min_rmse_ min_rsq_max=max_r_m max_rmse_ max_rsq_q1=q1_r_m q1_rmse_ q1_rsq_q3=q3_r_m q3_rmse_ q3_rsq_range=range_r_m range_rmse_ range_rsq_;data out;set out;q3_q1_r_m=q3_r_m-q1_r_m;q3_q1_rmse_=q3_rmse_-q1_rmse_;q3_q1_rsq_=q3_rsq_-q1_rsq_;format_n参考文献：1朱世武.编程技术教程.清华大学出版社.20072朱世武.金融计算与建模.清华大学出版社.2007