自用实战MACD之红箭头选股指标公式源码

自用实战MACD之红箭头选股指标公式源码

源码正文：

difF:=(ema(CLOSE,12) - Ema(CLOSE,26)){XG51};
DEA:=EMA(DIFF,9){XG51};
macd2:=(2 * (DIFF - DEA)){XG51};
DU0:=crOSS(DIFF,0){XG51};
UD0:=CROSS(0,DIFF){XG51};
TDU0:=BArslAst(DU0){XG51};
TUD0:=BARSLAST(UD0){XG51};
DU3:=REF(DU0,1){XG51};
UD3:=REF(UD0,1){XG51};
TDU3:=BARSLAST(DU3){XG51};
TUD3:=BARSLAST(UD3){XG51};
UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3)){XG51};
JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0)){XG51};
JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0)){XG51};
JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1)){XG51};
JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1)){XG51};
DEFUT:=BARSLAST(CROSS(MacD2,0)){XG51};
DEFDT:=BARSLAST(CROSS(0,MACD2)){XG51};
DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1))){XG51};
DEFU2L:=REF(DEFUL,(DEFUT + 1)){XG51};
红箭头:((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)){X!G!5=1!C!N!{};