通达信一石二鸟主图及选股指标(源码)

N:=44;
M8:MA(C,8);
M21:MA(C,21);
T:=BARSLAST(CROSS(M21,M8));
C1:=REF(C,T+1);
DF:=(C-C1)/C1*100;
A:=C>O OR(C=O AND C>=REF(C,1));
LA:=BARSLASTCOUNT(A);
TJ:=EVERY(H>REF(H,1),2);
TT:=BARSLAST(EVERY(M8<=M21,T+1) AND DF<-10 AND LA=3 AND TJ);
TJ1:=O<=MIN(M8,M21) AND C>=MAX(M8,M21);
NH:=(M21/M8-1)*100;
XG1:=COUNT(TJ1,TT+1)=1 AND TJ1 AND TT!=DRAWNULL AND NH<3 AND TT<N;
STICKLINE(XG1,H,L,0,1),COLORFFFFFF;
STICKLINE(XG1,C,O,3.2,0),COLOR555555;
STICKLINE(XG1,C,O,2.6,0),COLOR777777;
STICKLINE(XG1,C,O,1.9,0),COLOR999999;
STICKLINE(XG1,C,O,1.1,0),COLORCCCCCC;
STICKLINE(XG1,C,O,0.3,0),COLORCCDDBB;
DRAWICON(XG1,H*1.02,23);

{
选股公式:

n:=44;
M8:=MA(C,8);
M21:=MA(C,21);
T:=BARSLAST(CROSS(M21,M8));
C1:=REF(C,T+1);
DF:=(C-C1)/C1*100;
A:=C>O OR(C=O AND C>=REF(C,1));
LA:=BARSLASTCOUNT(A);
TJ:=EVERY(H>REF(H,1),2);
TT:=BARSLAST(EVERY(M8<=M21,T+1) AND DF<-10 AND LA=3 AND TJ);
TJ1:=O<=MIN(M8,M21) AND C>=MAX(M8,M21);
NH:=(M21/M8-1)*100;
COUNT(TJ1,TT+1)=1 AND TJ1 AND TT!=DRAWNULL AND NH<3 AND TT<N;
}