通达信顶底背离MACD选股指标公式源码

通达信顶底背离MACD选股指标公式源码

源码正文：

VAR1:=ema(SLOPE(C,21)+C,55){XG51};
VAR2:=Ema(SLOPE(O,21)+O,55){XG51};
VAR3:=EMA(SLOPE(H,21)+H,55){XG51};
VAR4:=EMA(SLOPE(L,21)+L,55){XG51};
VAR5:=EMA(C,3){XG51};
VAR6:=EMA(O,3){XG51};
VAR7:=EMA(H,3){XG51};
VAR8:=EMA(L,3){XG51};
VAR9:=VAR1-VAR5,LINETHICK2{XG51};
VAR10:=VAR2-VAR6,LINETHICK2{XG51};
VAR11:=VAR3-VAR7,LINETHICK2{XG51};
VAR12:=VAR4-VAR8,LINETHICK2{XG51};
ZJC:=REVERSE(VAR9){XG51};
ZJO:=REVERSE(VAR10){XG51};
ZJH:=REVERSE(VAR11){XG51};
ZJL:=REVERSE(VAR12){XG51};
dif:EMA(ZJC*5,12)-EMA(ZJC*5,26){XG51};
DEA:EMA(DIF,9){XG51};
macd:(DIF-DEA)*2,COLORstICK{XG51};
STICKLINE(MacD>REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORWHITE{XG51};
STICKLINE(MACD<REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORLIMAGENTA{XG51};
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,0,0),COLORBLUE{XG51};
STICKLINE(MACD<REF(MACD,1) AND MACD<0,0,MACD,0,0),COLORLIBLUE{XG51};
STICKLINE(ZJC> ZJO,ZJH,ZJL,0.0,0),COLORFF66FF;    
STICKLINE(ZJC> ZJO,ZJC,ZJO,2.1,0),COLORAA00AA;
STICKLINE(ZJC> ZJO,ZJC,ZJO,1.9,0),COLORCC11CC{XG51};
STICKLINE(ZJC> ZJO,ZJC,ZJO,1.6,0),COLORFF22FF{XG51};
STICKLINE(ZJC> ZJO,ZJC,ZJO,1.2,0),COLORFF44FF{XG51};
STICKLINE(ZJC> ZJO,ZJC,ZJO,0.7,0),COLORFF66FF{XG51};
STICKLINE(ZJC> ZJO,ZJC,ZJO,0.2,0),COLORFF99FF{XG51};
STICKLINE(ZJC<=ZJO,ZJL,ZJC,0.0,0),COLORCYAN{XG51};
STICKLINE(ZJC<=ZJO,ZJO,ZJC,2.1,0),COLOR005500{XG51};
STICKLINE(ZJC<=ZJO,ZJO,ZJC,1.9,0),COLOR007700{XG51};
STICKLINE(ZJC<=ZJO,ZJO,ZJC,1.6,0),COLOR009900{XG51};
STICKLINE(ZJC<=ZJO,ZJO,ZJC,1.2,0),COLOR00BB00{XG51};
STICKLINE(ZJC<=ZJO,ZJO,ZJC,0.7,0),COLOR00DD00{XG51};
STICKLINE(ZJC<=ZJO,ZJO,ZJC,0.2,0),COLOR44FF00{XG51};
ZTB:=(C-REF(C,1))/REF(C,1)*100>9.9{XG51};
DRAWTEXT(ZTB,IF(ZJC<0,ZJC*0.9,ZJC*1.1),'涨停板')COLORBLUE{XG51};
STICKLINE(ZTB,ZJC,ZJO,2.1,0),COLOR006666{XG51};
STICKLINE(ZTB,ZJC,ZJO,1.9,0),COLOR008888{XG51};
STICKLINE(ZTB,ZJC,ZJO,1.6,0),COLOR00AAAA{XG51};
STICKLINE(ZTB,ZJC,ZJO,1.2,0),COLOR00CCCC{XG51};
STICKLINE(ZTB,ZJC,ZJO,0.7,0),COLOR00EEEE{XG51};
STICKLINE(ZTB,ZJC,ZJO,0.2,0),COLOR33FFFF{XG51};
DTB:=(C-REF(C,1))/REF(C,1)*100<-9.9{XG51};
DRAWTEXT(DTB,IF(ZJC>0,ZJC*0.9,ZJC*1.1),'跌停板')COLORFF8800{XG51};
STICKLINE(DTB,ZJO,ZJC,2.1,0),COLORFF0000{XG51};
STICKLINE(DTB,ZJO,ZJC,1.9,0),COLORFF2200{XG51};
STICKLINE(DTB,ZJO,ZJC,1.6,0),COLORFF4400{XG51};
STICKLINE(DTB,ZJO,ZJC,1.2,0),COLORFF6600{XG51};
STICKLINE(DTB,ZJO,ZJC,0.7,0),COLORFF8800{XG51};
STICKLINE(DTB,ZJO,ZJC,0.2,0),COLORFFAA00{X_G~5~1_C_N_{};