通达信MACD底背离（主图副图选股源码）

以下是通达信MACD底背离（主图副图选股源码）

{主图}

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2;
 T:=BARSLAST(CROSS(0,MACD));
 TA:=BARSLAST(CROSS(MACD,0));
 T2:=REF(T,TA+1)+TA+1;
 L1:=LLV(L,T+1);
 L2:=REF(L1,T+1);
 L1T:=BARSLAST(L=L1);
 M1:=REF(MACD,BARSLAST(L=L1));
 M2:=REF(M1,T+1+T+1);
 L2T:=BARSLAST(L=CONST(L2));
 TJ:=(T2-TA)>=10 AND (TA-T)>=10;
 TJ1:=L1<L2 AND M1>M2;
 EXT:DRAWLINE(L2T=0,L,L1T=0 AND TJ AND TJ1 AND T>=10 AND L2T>20 ,L,0),COLORYELLOW;
 DRAWTEXT(CROSS(EXT!=DRAWNULL,0.5),EXT*1.05,’底背离’),COLORYELLOW;

 {幅图}

DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:EMA(DIF,9);
 MACD:(DIF-DEA)*2,COLORSTICK;
 T:=BARSLAST(CROSS(0,MACD));
 TA:=BARSLAST(CROSS(MACD,0));
 T2:=REF(T,TA+1)+TA+1;
 L1:=LLV(L,T+1);
 L2:=REF(L1,T+1);
 L1T:=BARSLAST(L=L1);
 M1:=REF(MACD,BARSLAST(L=L1));
 M2:=REF(M1,T+1+T+1);
 L2T:=BARSLAST(L=CONST(L2));
 TJ:=(T2-TA)>=10 AND (TA-T)>=10;
 TJ1:=L1<L2 AND M1>M2;
 EXT:DRAWLINE(L2T=0,MACD,L1T=0 AND TJ AND TJ1 AND T>=10 AND L2T>20,MACD,0),DOTLINE,COLORMAGENTA;
 DRAWTEXT(CROSS(EXT!=DRAWNULL,0.5),MACD,’底背离’),COLORMAGENTA;

 {选股}

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2;
 T:=BARSLAST(CROSS(0,MACD));
 TA:=BARSLAST(CROSS(MACD,0));
 T2:=REF(T,TA+1)+TA+1;
 L1:=LLV(L,T+1);
 L2:=REF(L1,T+1);
 L1T:=BARSLAST(L=L1);
 M1:=REF(MACD,BARSLAST(L=L1));
 M2:=REF(M1,T+1+T+1);
 L2T:=BARSLAST(L=CONST(L2));
 TJ:=(T2-TA)>=10 AND (TA-T)>=10;
 TJ1:=L1<L2 AND M1>M2;
 XG:TJ AND TJ1 AND L1T=0 AND T>=10 AND L2T>20;