通达信漫步MACD副图指标 源码 贴图

{PARAM}
SHORT:=12;
LONG:=26;
MID:=9;

{周MACD}
WEEK_JC:="MACD.DIF#WEEK"(SHORT,LONG,MID)>"MACD.DEA#WEEK"(SHORT,LONG,MID);
WEEK_SC:="MACD.DIF#WEEK"(SHORT,LONG,MID)<"MACD.DEA#WEEK"(SHORT,LONG,MID);
{月MACD}
MONTH_JC:="MACD.DIF#MONTH"(SHORT,LONG,MID)>"MACD.DEA#MONTH"(SHORT,LONG,MID);
MONTH_SC:="MACD.DIF#MONTH"(SHORT,LONG,MID)<"MACD.DEA#MONTH"(SHORT,LONG,MID);
银:WEEK_JC,NODRAW;
金:MONTH_JC,NODRAW;


VAR1:=EMA(EMA(CLOSE,9),9);
主力:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,COLORRED,LINETHICK2;
VAR2:=100*WINNER(CLOSE*0.95);{WWW.GPXIAZAI.COM}
加速:VAR2>50 AND COST(85)<CLOSE AND 主力>0,COLORRED,NODRAW;
_DIF:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORWHITE,LINETHICK1;
_DEA:=EMA(_DIF,9),COLORYELLOW,LINETHICK1;
_MACD:=(_DIF-_DEA)*2,COLORWHITE,COLORSTICK;
A1:=_MACD<REF(_MACD,1) AND _MACD>0;
A2:=_MACD<REF(_MACD,1)/2 AND _MACD<0;

_WIDTH:=-1;
STICKLINE((_MACD>=0) AND (WEEK_JC),_MACD,0,_WIDTH,0),COLORRED;
STICKLINE((_MACD>=0) AND (WEEK_JC) AND 加速,_MACD,0,_WIDTH,0),COLORMAGENTA;
STICKLINE((_MACD>=0) AND (WEEK_SC),_MACD,0,_WIDTH,1),COLORRED;
STICKLINE((_MACD>=0) AND (MONTH_JC),_MACD/2,0,_WIDTH,0),COLORYELLOW;
STICKLINE((_MACD>=0) AND (MONTH_SC AND WEEK_JC),_MACD/2,0,_WIDTH,0),COLORGREEN;

STICKLINE((_MACD<0) AND (WEEK_JC),_MACD,0,_WIDTH,0),COLORGREEN;
STICKLINE((_MACD<0) AND (WEEK_SC),_MACD,0,_WIDTH,1),COLORLIGREEN;
STICKLINE((_MACD<0) AND (MONTH_JC),_MACD/2,0,_WIDTH,0),COLORYELLOW;
STICKLINE((_MACD<0) AND (MONTH_SC AND WEEK_JC),_MACD/2,0,_WIDTH,0),COLORGREEN;


强弱分界:0,COLORWHITE,LINETHICK1;
值:_MACD,COLORRED,NODRAW;
白:_DIF,COLORWHITE;
黄:_DEA,COLORYELLOW;