通达信除权后“高救护版”主图选股幅图源码

通达信除权后“高救护版”主图选股幅图

源码

{主图}
M5:MA(C,5);
 M10:MA(C,10);
 GB:=FINANCE(7);
 A:=M5/M10*100;
 T:=BARSLAST(GB>REF(GB,1));
 TJ:=COUNT(CROSS(M5,M10),T+1)=1 AND CROSS(M5,M10);
 TT:BARSLAST(TJ)NODRAW;
 CP:=A>103 AND L<M10 AND C>M10 AND RANGE(T,3,20) AND TT<T;
 XG:=COUNT(CP,T)=1 AND CP;
 DRAWICON(XG,L*0.95,1);
 STICKLINE(XG,C,O,1.8,0),COLORYELLOW;
 STICKLINE(XG,H,L,0,0),COLORYELLOW;

 {幅图}

M5:=MA(C,5);
 M10:=MA(C,10);
 GB:=FINANCE(7);
 A:=M5/M10*100;
 T:=BARSLAST(GB>REF(GB,1));
 TJ:=COUNT(CROSS(M5,M10),T+1)=1 AND CROSS(M5,M10);
 TT:BARSLAST(TJ)NODRAW;
 CP:=A>103 AND L<M10 AND C>M10 AND RANGE(T,3,20) AND TT<T;
 XG:=COUNT(CP,T)=1 AND CP;
 STICKLINE(XG,0,8,1.8,0),COLORYELLOW;

 {选股}

M5:=MA(C,5);
 M10:=MA(C,10);
 GB:=FINANCE(7);
 A:=M5/M10*100;
 T:=BARSLAST(GB>REF(GB,1));
 TJ:=COUNT(CROSS(M5,M10),T+1)=1 AND CROSS(M5,M10);
 TT:=BARSLAST(TJ);
 CP:=A>103 AND L<M10 AND C>M10 AND RANGE(T,3,20) AND TT<T;
 XG:COUNT(CP,T)=1 AND CP;