07股票市场风险指标计算.pptVIP

第7章 股票市场风险指标计算 清华大学经管学院 朱世武 Zhushw@ Resdat样本数据： SAS论坛： 计算指标与环境 理论模型 其中， 为股票j的超额收益； 为市场超额收益； 和 为参数，且假定 不相关。 将方差作为风险的度量，根据上述假设得到股票j的总风险为： 选定时期，根据经验数据可以得模型参数的最小二乘估计 以及相应估计值 。于是，系统风险占该股票总风险的比例估计值为： 有 计算指标 计算1999至2005年，沪深两地股票市场系统风险系数、个股总风险和个系统风险占总风险比例三个风险指标等。即具体计算： 系统风险系数估计值 ; 个股总风险估计值 ; 系统风险占总风险比估计值 ； 全市股票上述三种指标的概况统计量。 计算环境 计算数据集： 银行存款利率BankIr； 基准利率BchmkIr； 个股日收益Dret； 市场日收益DretM。 时期：2005年。 样本：沪深两市场满足条件的2006年前上市所有股票日百分比收益。剔除1年内交易小于50天的股票。 算法实现 第一步：创建无风险利率数据集RF；2005年市场日收益数据。 第二步：创建宏文本：Stk2006.TXT。 第三步：计算2005年沪深两市场A股个股风险指标。 第四步：沪深两市场个股与市场风险关系统计分析。 计算程序 创建无风险利率数据集： /*1998年7月1日后使用七日回购利率两周指数加权平均为基准利率 */ data a; set ResDat.bchmkir; if code B2W and date 1jun1998d; rename ir rf; keep ir date;run; /*1998年7月1日前用一年期银行存款利率加10%为基准利率*/ data b; set ResDat.bankir; if code d1y ; run; data c; set b; format date yymmdd10.; if enddt . Then enddt date ; do date begdt to enddt; output; end; run; data d; set c; if date 1jun1998d; keep date rf; rf ir*1.1; /* 在一年期存款利率的基础上再增加10% */ run; /*合并得到基准利率表rfyr*/ data rfyr; set d a; if date ’31dec2005’d; run; /*得到日基准利率表rf*/ data rf; set rfyr; rf rf/365; /* 将利率转化为日利率 */ run; 2005年市场日收益数据DretM2005：总市值加权平均市场日收益率。 Data DretM2005; Set ResDat.DretM; If year date 2005 and Exchflg ’0’ and Mktflg ’AB’; /* Exchflg ’0’－沪、深两交易所；Mktflg ’AB’ －AB股票市场 */ Keep date Dretmc; Run; 创建宏文本：Stk2006.TXT。 利用选择的样本股票收益数据集Dret创建宏。如果要计算全部股票的风险指标，可以直接利用lstkinfo创建宏。 Data a; Set ResDat.dret; If dif stkcd 0 then delete; data _null_; set a; a %a ; b ,; c ; ; file Stk2006.txt ; put a $ stkcd $ b $ lstknm $ c $ ; run; %a 000001 , S深发展A ; %a 000002 , 万科A ; %a 000004 , *ST国农 ; %a 000005 , ST星源 ; %a 000007 , 深达声A ; %a 000009 , S深宝安A ; %a 000011 , S深物业A ; %a 000012 , 南玻A ; %a 000016 , 深康佳A ; %a 000017 , S*ST中华 ; %a 200011 , 深物业B ; %a 200012 , 南玻B ; …… …… 计算2005年沪深两市场个股风险指标：模型r_s a+beta*r_m+e /* 2005年无风险利率数据集rf2005 */ Data rf2005; Set rf; If year d