如何用選股中心找出預估現金殖利率高的股票

昨天有朋友傳了一張股魚做的表給我，問我XQ能不能提供類似這樣的資訊？我試著寫了一個選股程式來做出這張表，有興趣的朋友可以試著作出自己專屬的類似表格。

我寫的腳本如下


1var: dr(0);//dr代表預估現金股利殖利率
2input:lowbond(5);
3if getFielddate("每股稅後淨利(元)","Q")=20201201
4//確定是用去年全年的財報當計算基礎
5then begin
6if GetField("股利年度","Y")=2020 then
7dr=GetField("現金股利殖利率","D")
8else
9dr= (GetField("每股稅後淨利(元)","Y")
10*GetField("現金派息比率","Y")/100)/close*100;
11end;
12if dr>lowbond then ret=1;
13outputfield(1,close/GetField("每股稅後淨利(元)","Y"),1,"本益比");
14outputfield(2,GetField("現金派息比率","Y"),1,"現金派息比率");
15outputfield(3,GetField("每股稅後淨利(元)","Y"),1,"去年EPS");
16outputfield(4,(GetField("每股稅後淨利(元)","Y")
17*GetField("現金派息比率","Y")/100) ,1,"現金股利");
18outputfield(5,dr,1,"預估現金殖利率");
19outputfield(6,getFieldDate("股利年度","Y"),0,"股利年度");
var: dr(0);//dr代表預估現金股利殖利率
input:lowbond(5);
if getFielddate("每股稅後淨利(元)","Q")=20201201
//確定是用去年全年的財報當計算基礎
then begin
if GetField("股利年度","Y")=2020 then
dr=GetField("現金股利殖利率","D")
else
dr= (GetField("每股稅後淨利(元)","Y")
*GetField("現金派息比率","Y")/100)/close*100;
end;
if dr>lowbond then ret=1;
outputfield(1,close/GetField("每股稅後淨利(元)","Y"),1,"本益比");
outputfield(2,GetField("現金派息比率","Y"),1,"現金派息比率");
outputfield(3,GetField("每股稅後淨利(元)","Y"),1,"去年EPS");
outputfield(4,(GetField("每股稅後淨利(元)","Y")
*GetField("現金派息比率","Y")/100) ,1,"現金股利");
outputfield(5,dr,1,"預估現金殖利率");
outputfield(6,getFieldDate("股利年度","Y"),0,"股利年度");