請問我想寫一個計算潛在殖利率的選股邏輯，這樣寫那裏有問題?

選股邏輯為：利用ＥＰＳ＊現金股利佔股利比重推估出明年預計股利推導出潛在殖利率（未揭露的季度ＥＰＳ先不計算）。


input:EPSA("3","近「 」季總合"),Yie(5,"平均殖利率大於「 」%");

variable:E1(0),E2(0),E3(0),E4(0),R1(0),R2(0);

E1=getfield("eps","Q");

E2=getfield("eps","Q")+ getfield("eps","Q")[1];

E3=getfield("eps","Q")+ getfield("eps","Q")[1] + getfield("eps","Q")[2];

E4=getfield("eps","Q")+ getfield("eps","Q")[1] + getfield("eps","Q")[2] + getfield("eps","Q")[3];

if currentbar <> gettotalbar then return;

switch(EPSA)

begin

case = 1:

R2=(E1*GetField("現金股利佔股利比重","Y"))/close*100;

case = 2:

R2=(E2*GetField("現金股利佔股利比重","Y"))/close*100;

case = 3:

R2=(E3*GetField("現金股利佔股利比重","Y"))/close*100;

default:

R2=(E4*GetField("現金股利佔股利比重","Y"))/close*100;

end;

if R2 > Yie then ret = 1;

outputfield1(R2,"潛在殖利率");