通达信急拉急洗（鹏腾2009版本）源码 主图 选股

{主图}
A:=EVERY(C<REF(C,1),3) AND EVERY(REF(C,3)/REF(C,4)>1.04,2) AND L>=REF(L,4);
 B:=BARSLAST(A);
 DRAWTEXT(A,LOW,'------------------------------------------------------------')COLORYELLOW;
 DRAWTEXT(A,H,'急拉急洗')COLORYELLOW;
 DRAWICON(CROSS(C,REF(H*1.05,B)) AND C>O AND B<60,LOW,9);

 {选股}
A:=EVERY(C<REF(C,1),3) AND EVERY(REF(C,3)/REF(C,4)>1.04,2) AND L>=REF(L,4);
 B:=BARSLAST(A);
 CROSS(C,REF(H*1.05,B)) AND C>O AND B<60;