这是我估计一百支股票的Beta值(资本资产订价模型,CAPM)
附上Program file 和 workfile
程式码如下
'**估计beta系数
'**程序设计:yenfeng1
'**时间: 2016:3:21
' 设定样本范围
smpl 1 100
' 建立一张表 命名beta
table(101,2) beta
'填入表头
beta(1,1)="股票报酬"
beta(1,2)="beta系数"
''设立循环
for !i=1 to 100
beta(!i+1,1)="r"+@str(!i)
equation eq!i.ls r!i=c(1)+c(2)*rm
beta(!i+1,2)=c(2)
next
show beta
- capm.prg
- capm.WF1