通达信macd面积监控底背离源码最准

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2;
 HG:DIF*N;
 HR:DEA*N;
 HMACXD:MACD*N,COLORSTICK;

LL:=REF(MACD,1)<=MACD AND  REF(MACD,1)<=REF(MACD,2) AND REF(MACD,2)<=REF(MACD,3) ;
 OO:=REF(MACD,BARSLAST(REF(MACD,1)<0 AND REF(MACD,2)<0 AND LL=1));
 DIFS:=REF(DIF,BARSLAST(REF(MACD,1)<0 AND REF(MACD,2)<0 AND LL=1));
 PP:=REF(MACD,BARSLAST(REF(MACD,1)<0 AND REF(MACD,2)<0 AND LL=1)+1);
 II:=REF(MACD,BARSLAST(REF(MACD,1)<0 AND REF(MACD,2)<0 AND LL=1)+2);
 WW:=REF(REF(L,1),BARSLAST( LL=1));
 WW1:=REF(WW,1);
 QQ1:=BARSLAST(LL=1 AND REF(MACD,1)<0 AND REF(MACD,2)<0);
 QQ:=REF(QQ1,1);
 DS:=ABS(MACD+REF(MACD,1)+REF(MACD,2))/ABS(REF(OO,1)+REF(PP,1)+REF(II,1));
 JH:=QQ>7 AND DS<0.7  AND  REF(L,1)<WW1 ;
 YY:=MACD+REF(MACD,1)+REF(MACD,2)>REF(OO,1)+REF(PP,1)+REF(II,1) AND LL=1;
 JJ1:=MACD+REF(MACD,1)+REF(MACD,2)>REF(OO,1)+REF(PP,1)+REF(II,1) AND LL=1
 AND REF(MACD,1)<0 AND REF(MACD,2)<0  AND JH=1 AND MA(C,20)<REF(MA(C,20),3) AND C<MA(C,60) ;

JJ:=MACD+REF(MACD,1)+REF(MACD,2)>REF(OO,1)+REF(PP,1)+REF(II,1) AND LL=1 
 AND REF(MACD,1)<0 AND DIF<0 AND DIF>REF(DIFS,1) AND QQ<20;
 MM:=JJ=1 OR JJ1=1;
 JJJ:MM*90;