股息率排名股票池

首先说明不提供成品股票池！
搜遍论坛没找到股息率源码，只好根据我的除权源码改一个，不过和网上的股息率略有不同。
他们是用总分红/总市值，再削减一些禁售之类的。我的是按个股来算，用分红/股价（分红前一日），
先上源码：
除权S:=SPLITBARS(0);
派息S:=DIVIDBARS(0);
除权:=SPLIT(0);
派息:=DIVIDEND(0);
除权价:=ref(c,除权S+1);
派息价:=ref(c,派息S+1);
成交价:=if(max(除权S,-1)<0,派息价,
if(max(派息S,-1)<0,除权价,
if(派息S<除权S,派息价,除权价
)));
权:=if(派息S<max(-1,除权S) and max(-1,除权S)>0,1,min(1,ref(除权,除权S)));
股息率:ref(派息,派息S)/(成交价*权)*100,colorred;
{这个公式用来建立扩展数据，记得要取消复权计算}
股票池根据这个而来




指标比较符范围值操作
营业收入增长>5%
净资产收益率>5%
负债资产率<50%
市盈率: 0-35
市净率: 0-2.5
交易天数>20
开盘价<50



股息率排序:
{引用扩展数据股池源码}
a1:=extdata(1);
cs:=a1<>ref(a1,1);
shu:=if(cs>0,a1,0);
sj:=BARSLAST(shu>0);
sj2:=year-ref(year,sj);
a2:if(sj2<2,a1,0);





做成这样