{MACD大杀器}
N:=3;
DRAWGBK(C>0,RGB(0,59,59),RGB(0,0,1),0,' ',0);
0;
WXS:=(10-5)/2;
JGL_DF:=WXS*(EMA(CLOSE,5)-REF(EMA(CLOSE,5),1)),;{微分}
DIF_J:=EMA(JGL_DF,10),;{积分}
DEA_G:=EMA(DIF_J,8),;{平滑}
{MACD_L:=(DIF_J-DEA_G)*10,;}
周WXS:=(10-5)/2;
周JGL_DF:=("MACD.DIF#WEEK");
周DIF_J:=("MACD.DIF#WEEK");
周DEA_G:=("MACD.DEA#WEEK");
周MACD_L:=N*(周DIF_J-周DEA_G);
K_DF:=SMA(JGL_DF,3,1)*1,COLORFEDCBA;
D_DF:=SMA(K_DF,3,1),COLOR13F8F9;
J_DF:=3*K_DF-2*D_DF,COLORF813F9;
STICKLINE(周MACD_L>REF(周MACD_L,1) AND 周MACD_L>0,0,周MACD_L,18,0),COLORBROWN;
STICKLINE(周MACD_L<REF(周MACD_L,1) AND 周MACD_L>0,0,周MACD_L,18,0),COLORGRAY;
STICKLINE(周MACD_L>REF(周MACD_L,1) AND 周MACD_L<0,0,周MACD_L,18,0),COLORBROWN;
STICKLINE(周MACD_L<REF(周MACD_L,1) AND 周MACD_L<0,0,周MACD_L,18,0),COLORGRAY;
{STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,-1,0),COLORLIGREEN,;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,-1,0),COLORGRAY;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,0,MACD,-1,0),COLORWHITE;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,0,MACD,-1,0),COLORCYAN;}
周A:EMA(周DIF_J,5)-EMA(周DEA_G,10),,COLORMAGENTA,LINETHICK2;
周B:EMA(周A,8),COLORBLACK,DOTLINE,LINETHICK2;
DIF:(EMA(C,12)-EMA(C,26)),COLORRED,LINETHICK2;
DEA:EMA(DIF,9),COLORBLUE,LINETHICK2;
MACD:2*(DIF-DEA),COLORSTICK;
STICKLINE(MACD>REF(MACD,1) AND MACD>=0,MACD,0,1,0),COLORLIRED;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,1,0),COLORLIGRAY;
{日DIF_J:EMA(JGL_DF,10),,COLORRED,LINETHICK2;
日DEA_G:EMA(DIF_J,8),COLORBLACK,LINETHICK2;}
K_DFA:SMA(JGL_DF,3,1)*1,COLORFEDCBA,DOTLINE;
D_DFA:SMA(K_DF,3,1),DOTLINE;
J_DFA:3*K_DF-2*D_DF,DOTLINE;
DRAWICON(CROSS(J_DFA,D_DFA),D_DFA,1);
DRAWICON(CROSS(D_DFA,J_DFA),D_DFA,2);
IF(J_DFA>REF(J_DFA,1),J_DFA,DRAWNULL),LINETHICK,COLORYELLOW,DOTLINE;
IF(J_DFA<REF(J_DFA,1),J_DFA,DRAWNULL),COLORBLUE,DOTLINE;
