通达信云制MACD顶底背离未加密选股指标公式源码

源码正文：

VAR1:=BArslAst(REF(crOSS(ema(C,13) - Ema(C,34),EMA(EMA(C,13) - EMA(C,34) ,12)),1)){XG51};
VAR2:=BARSLAST(REF(CROSS(EMA(EMA(C,13) - EMA(C,34) ,12),EMA(C,13) - EMA(C,34) ),1)){XG51};
VAR3:=LLV(L,VAR2 + 3){XG51};
VAR4:=HHV(H,VAR1 +3){XG51};
difF:EMA(C,13) - EMA(C,34) {XG51};
DEA:EMA(EMA(C,13) - EMA(C,34),12) {XG51};
macd:1.5 * (EMA(C,13) - EMA(C,34) - EMA(EMA(C,13) - EMA(C,34) ,12) ),NODRAW {XG51};
STICKLINE((MacD > 0),0,MACD,2.5,0),COLOR0000CC{XG51};
STICKLINE((MACD > 0),0,MACD*0.9,2.5 ,0),COLOR0000EE{XG51};
STICKLINE((MACD > 0),0,MACD*0.8,2.5 ,0),COLOR0011FF{XG51};
STICKLINE((MACD > 0),0,MACD*0.7,2.5 ,0),COLOR0033FF{XG51};
STICKLINE((MACD > 0),0,MACD*0.6,2.5 ,0),COLOR0055FF{XG51};
STICKLINE((MACD > 0),0,MACD*0.5,2.5 ,0),COLOR0077FF{XG51};
STICKLINE((MACD > 0),0,MACD*0.4,2.5 ,0),COLOR0099FF{XG51};
STICKLINE((MACD > 0),0,MACD*0.3,2.5 ,0),COLOR00BBFF{XG51};
STICKLINE((MACD > 0),0,MACD*0.2,2.5 ,0),COLOR00ddfF{XG51};
STICKLINE((MACD > 0),0,MACD*0.1,2.5 ,0),COLOR00FFFF{XG51};
STICKLINE((MACD < 0),0,MACD,2.5 ,0),COLORCC0033{XG51};
STICKLINE((MACD < 0),0,MACD*0.9,2.5 ,0),COLOREE0033{XG51};
STICKLINE((MACD < 0),0,MACD*0.8,2.5 ,0),COLORFF1133{XG51};
STICKLINE((MACD < 0),0,MACD*0.7,2.5 ,0),COLORFF3333{XG51};
STICKLINE((MACD < 0),0,MACD*0.6,2.5 ,0),COLORFF5533{XG51};
STICKLINE((MACD < 0),0,MACD*0.5,2.5 ,0),COLORFF7733{XG51};
STICKLINE((MACD < 0),0,MACD*0.4,2.5 ,0),COLORFF9933{XG51};
STICKLINE((MACD < 0),0,MACD*0.3,2.5 ,0),COLORFFBB33{XG51};
STICKLINE((MACD < 0),0,MACD*0.2,2.5 ,0),COLORFFDD33{XG51};
STICKLINE((MACD < 0),0,MACD*0.1,2.5 ,0),COLORFFFF33{XG51};
IF(EMA(C,13) - EMA(C,34) >= EMA(EMA(C,13) - EMA(C,34) ,12),EMA(C,13) - EMA(C,34) ,DRAWNULL),COLORWHITE{XG51};
IF((EMA(C,13) - EMA(C,34) - EMA(EMA(C,13) - EMA(C,34) ,12) ) * 1000/EMA(C,15) > 0 AND (EMA(C,13) - EMA(C,34) - EMA(EMA(C,13) - EMA(C,34) ,12) ) * 1000/EMA(C,15) < 1.85,EMA(C,13) - EMA(C,34),DRAWNULL),COLORCYAN{XG51};
IF(EMA(C,13) - EMA(C,34) < EMA(EMA(C,13) - EMA(C,34) ,12) OR EMA(C,13) - EMA(C,34) > EMA(EMA(C,13) - EMA(C,34) ,12) AND REF(EMA(C,13) - EMA(C,34) ,1) < REF(EMA(EMA(C,13) - EMA(C,34) ,12) ,1),EMA(C,13) - EMA(C,34) ,DRAWNULL),COLORFF0000{XG51};
MACD底背离:REF(VAR3,VAR1 + 1) > VAR3 AND REF(EMA(C,13) - EMA(C,34) ,VAR1 + 1) < EMA(C,13) - EMA(C,34) AND CROSS(EMA(C,13) - EMA(C,34),EMA(EMA(C,13) - EMA(C,34) ,12) ),NODRAW,COLORWHITE{XG51};
DRAWTEXT(REF(VAR3,VAR1 + 1) > VAR3 AND REF(EMA(C,13) - EMA(C,34) ,VAR1 + 1) < EMA(C,13) - EMA(C,34) AND CROSS(EMA(C,13) - EMA(C,34) ,EMA(EMA(C,13) - EMA(C,34) ,12) ),EMA(EMA(C,13) - EMA(C,34) ,12)-0.04,'底'),COLOR00FFFF{XG51};
DRAWTEXT(REF(VAR3,VAR1 + 1) > VAR3 AND REF(EMA(C,13) - EMA(C,34) ,VAR1 + 1) < EMA(C,13) - EMA(C,34) AND CROSS(EMA(C,13) - EMA(C,34) ,EMA(EMA(C,13) - EMA(C,34) ,12) ),EMA(EMA(C,13) - EMA(C,34) ,12)-0.08,'背'),COLOR00FFFF{XG51};
MACD顶背离:REF(VAR4,VAR2 + 1) < VAR4 AND REF(EMA(C,13) - EMA(C,34) ,VAR2 + 1) > EMA(C,13) - EMA(C,34) AND CROSS(EMA(EMA(C,13) - EMA(C,34) ,12) ,EMA(C,13) - EMA(C,34) ),NODRAW,COLORCYAN{XG51};
DRAWTEXT(REF(VAR4,VAR2 + 1) < VAR4 AND REF(EMA(C,13) - EMA(C,34) ,VAR2 + 1) > EMA(C,13) - EMA(C,34) AND CROSS(EMA(EMA(C,13) - EMA(C,34) ,12) ,EMA(C,13) - EMA(C,34) ),EMA(EMA(C,13) - EMA(C,34) ,12)+0.08,'顶'),COLORFFFF00{XG51};
DRAWTEXT(REF(VAR4,VAR2 + 1) < VAR4 AND REF(EMA(C,13) - EMA(C,34) ,VAR2 + 1) > EMA(C,13) - EMA(C,34) AND CROSS(EMA(EMA(C,13) - EMA(C,34) ,12) ,EMA(C,13) - EMA(C,34) ),EMA(EMA(C,13) - EMA(C,34) ,12)+0.04,'背'),COLORFFFF00{XG51};
DRAWICON(CROSS(EMA(C,13) - EMA(C,34) >= EMA(EMA(C,13) - EMA(C,34) ,12),0.5),EMA(EMA(C,13) - EMA(C,34) ,12) ,5){XG51};
DRAWICON(CROSS(EMA(EMA(C,13) - EMA(C,34) ,12) >=EMA(C,13) - EMA(C,34) ,0.5),EMA(EMA(C,13) - EMA(C,34) ,12) ,6){X?G^5~1?C?N?{};

源码正文：

抄底线:=20{XG51};
F1:=zig(3,15){XG51};
方向:=IF((F1> REF(F1,1)),5,105){XG51};
A1:=DYnaINFO(6){XG51};
A2:=IF(LOW>A1,0,IF(HIGH<A1,1,(A1-LOW+0.01)/(HIGH-LOW+0.01))){XG51};
A3:=vol/WINNER(LOW){XG51};
A4:=REF(HHV(CLOSE,120),1){XG51};
A5:=REF(LLV(CLOSE,120),1){XG51};
A6:=100*(CLOSE-A5)/(A4-A5){XG51};
A7:=A2>0 OR A2=1{XG51};
A8:=A7 AND A3/REF(A3,3)>=3 AND A6<80{XG51};
A11:=IF(FILTER(A8,3),5,0){XG51};
XG:= A11{XG51};
合并:crOSS(抄底线,方向)AND XG{X^G?5*1^C^N^{};