黄雀MACD（通达信公式 副图 源码 测试图）

 黄雀MACD
公式源码分享。

202112148532569795.png

{参数设置：N1:1,99,12 N2:1,99,26 N3:1,99,9}

 DIFF:=(EMA(CLOSE,N1) - EMA(CLOSE,N2));

 DEA:=EMA(DIFF,N3);

 MACD2:=(2 * (DIFF - DEA));

 

 DU0:=CROSS(DIFF,0);

 UD0:=CROSS(0,DIFF);

 TDU0:=BARSLAST(DU0);

 TUD0:=BARSLAST(UD0);

 DU3:=REF(DU0,1);

 UD3:=REF(UD0,1);

 TDU3:=BARSLAST(DU3);

 TUD3:=BARSLAST(UD3);

 UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));

 JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));

 JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));

 JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));

 JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));

 JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));

 JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));

 JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));

 JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));

 BSLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));

 STICKLINE((MACD2>=0),0,MACD2,2,0),COLORFF00FF;

 STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,2,1),COLORGREEN;

 STICKLINE((MACD2<0),0,MACD2,2,0),COLORFFFF00;

 STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,2,0),COLORYELLOW;

 DEFUT:=BARSLAST(CROSS(MACD2,0));

 DEFDT:=BARSLAST(CROSS(0,MACD2));

 DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1)));

 DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1)));

 DEFU2L:=REF(DEFUL,(DEFUT + 1));

 DEFD2L:=REF(DEFDL,(DEFDT + 1));

 

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);

STICKLINE(底背离,0,0.03,4,0),COLOR00FF00;

.................

 

202112148533346371.png