通达信双飞乌鸦主图及选股指标(源码)

A:=C/REF(C,1)>1.085 AND C>=O;
B:=REF(C,1)<O AND C<O;
TJ:=REF(A,1) AND B;
TK:=O/REF(MAX(C,O),1);
TJ1:=COUNT(TJ,6);
T1:=BARSLAST(TJ1=1 AND TJ);
T:=BARSLAST(TJ1=2 AND TJ AND EVERY(TK<1.075,T1));
EXT:DRAWLINE(T=0,C,REF(T=0,1),REF(C,1),1),DOTLINE,COLORYELLOW;
GL:=(C/EXT-1)*100;
TT:=(H/EXT-1)*100;
XG:=COUNT(GL>4,T)=1 AND GL>4 AND TK<1.02 AND REF(TT,1)<4 AND GL<7.8;
STICKLINE(XG,C,O,2,0),COLORLIMAGENTA;
STICKLINE(XG,L,H,0,0),COLORLIMAGENTA;
DRAWICON(XG,L,1);
DRAWTEXT(T=0,EXT*1.05,VARCAT(VARCAT("突破价:",VAR2STR(REF(C,T),2)),"元"))COLORYELLOW;

{
选股公式:

A:=C/REF(C,1)>1.085 AND C>=O;
B:=REF(C,1)<O AND C<O;
TJ:=REF(A,1) AND B;
TK:=O/REF(MAX(C,O),1);
TJ1:=COUNT(TJ,6);
T1:=BARSLAST(TJ1=1 AND TJ);
T:=BARSLAST(TJ1=2 AND TJ AND EVERY(TK<1.075,T1));
EXT:=DRAWLINE(T=0,C,REF(T=0,1),REF(C,1),1);
GL:=(C/EXT-1)*100;
TT:=(H/EXT-1)*100;
XG:COUNT(GL>4,T)=1 AND GL>4 AND TK<1.02 AND REF(TT,1)<4 AND GL<7.8;
}