02股票收益计算-精选课件(公开).pptVIP

2.4 投资组合收益计算 2.4.1 由最新股票信息数据集Lstkinfo创建宏文本 挑选出1995年前上市的股票： %macro a(x); data a; set ResDat.Lstkinfo; if year(Lstdt)x; /* Lstdt为股票上市日期 */ data y%eval(x)_list ; set a; a=%a(; c=);; file AlistedBefore%str(x).txt; put a $ stkcd $ c $; %mend a; %a(1995); run; 通过改变宏%a(1995)中的参数值1995，可以选择任意年份前上市的股票。 2.4.2 随机抽股票 在上面得到的1995年前上市A股票中随机抽取20支，并创建包含这20支股票代码的宏文本RANDOM1995.TXT。 %macro a(x); proc sql; /* sql过程创建视图 */ create view _tmp_ as select *, ranuni(5) as _ran_ from y%eval(x)_list order by calculated _ran_; quit; data random; set _tmp_(obs = 20); drop _ran_; a=%a(; c=);; file random%s