把这个BS决策写一个选股公式_大智慧破解版

请老师把下面这个BS决策写一个选股公式，可以排序的。BS指标有几种，就要下面这个的，谢谢！

a:="LTFunc6@FORLT2";

s1:="LTFunc6@LT_S1";

hs:="LTFunc6@LT_HS";

ls:="LTFunc6@LT_LS";

p1:="LTFunc6@LT_P1";

upp:="LTFunc6@LT_UPP";

udd:="LTFunc6@LT_UDD";

PD:=bigorder(1,1)=0 and bigorder(2,1)=0;

DDLR:=IF(PD,"DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3),bigorder(1,2)-bigorder(1,3));

DDLC:=IF(PD,"DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3),bigorder(2,2)-bigorder(2,3));

TDLR:=IF(PD,"DDEDATA@BIGORDER"(1,3),bigorder(1,3));

TDLC:=IF(PD,"DDEDATA@BIGORDER"(2,3),bigorder(2,3));

ZLLR:=TDLR+DDLR;

ZLLC:=TDLC+DDLC;

ZLJL:=(ZLLR-ZLLC);

DDX:=ZLJL*vol/capital*100;

{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};

d1:=ema(abs(DDX),60);

d2:=max(DDX/d1+7.5,7.5);

d3:=min(DDX/d1,10);

fb:=if(s1=0,hs,ls);

tr0:=ifs(p1=1,'明日收盘价<'+numtostrn(udd,2)+',出现S点\n','若明日收盘价>'+numtostrn(upp,2)+',出现B点\n');

tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价>'+numtostrn(hs,2)+'短线买入机会');

tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币'));

tr3:=ifs(s1=0,'向下,','向上,');

tr4:='3.能量级别:'+numtostrn(d3,1)+'级';

bs:=''+datestr(date)+'买卖点决策系统提示\n'+'1.BS点:'+tr2+','+tr0+'2.短线:'+tr3+tr1+'\n'+tr4;
drawflagtext(1,fb,bs);

STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack;
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;

STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54;

drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;

drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;
 

 

解答如下：

{你有建自定义数据就可以用}

p1:="LTFunc6@LT_P1";

xg:p1=1 and ref(p1,1)=0;