通达信双重MACD副图未加密选股指标公式源码

STICKLINE(C>0,0,0,10,0),COLORBROWN;
M6:=(ema(c,5)+EMA(c,6))/2;
M12:=EMA(c,12);
M26:=EMA(c,26);
M56:=ema(C,56);
M121:=ema(C,121);
xdif:((M6-M121)/2+(M12-M56+M26-M121)/2+M6-M26)/3,COLORRED;
XDEA:ema(XDIF,3),COLORGREEN;
XMacD:=2*(xdif-XDEA),LINETHICK,COLORRED;
DIF:(M56-M121+(M26-M121)/2+(M12-M121)/3+(M6-M121)/4)/4,COLORLIMAGENTA;
DEA:ema(DIF,9),COLORCYAN;
macd:2*(DIF-DEA),LINETHICK,COLOR00CCCC;
BMACD:(MACD+xmaCD/2)/2,LINETHICK,COLORWHITE;
STICKLINE(BMACD>=0,0,BMACD,2,1),COLORWHITE;
STICKLINE(BMACD<0,0,BMACD,2,1),COLOR00bb00;
STICKLINE(MACD>=0,0,MACD,0,0),COLOR00CCCC;
STICKLINE(MACD<0,0,MACD,0,0),COLORGREEN;
JGL:=(((xdif-XDEA)/Abs(XDEA)+(XDEA-DIF)/ABS(DIF)+(DIF-DEA)/ABS(DEA))/3)*10;
DRAWTEXT(crOSS(JGL,0)AND xdif>REF(xdif,1),DEA*0.9,'★'),COLORBLUE;