{霍氏杀器}

0;
 AAA:=EMA((2*C+H+L)/4,3);
 A1:=SLOPE(AAA*3-REF(AAA,3),3)+C;

DI:=(EMA(A1,5) - EMA(A1,10));
 DE:=EMA(DI,3);
一级趋势:(DI+DE)/2,NODRAW;
 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=2*(DIF-DEA);
周DIF:=("MACD.DIF#WEEK");
周DEA:=("MACD.DEA#WEEK");
周MACD:=2*(周DIF-周DEA);
二趋势:(DIF+DEA)/2,NODRAW;
三趋势:(周DIF+周DEA)/2,NODRAW;
 STICKLINE(周MACD>REF(周MACD,1) AND 周MACD>0,0,周MACD,18,0),COLORMAGENTA;
 STICKLINE(周MACD<REF(周MACD,1) AND 周MACD>0,0,周MACD,18,0),COLORWHITE;
 STICKLINE(周MACD>REF(周MACD,1) AND 周MACD<0,0,周MACD,18,0),COLORCYAN;
 STICKLINE(周MACD<REF(周MACD,1) AND 周MACD<0,0,周MACD,18,0),COLORBLUE;

STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,3.5,1),COLORRED;
 STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,3.5,1),COLORLIRED;
 STICKLINE(MACD<REF(MACD,1) AND MACD>0,0,MACD,3.5,1),COLORWHITE;
 STICKLINE(MACD<REF(MACD,1) AND MACD<0,0,MACD,3.5,1),COLORCYAN;

DRAWBAND(周DIF,RGB(200,10,10),周DEA,RGB(10,10,128));
 DRAWBAND(DIF,RGB(200,100,200),DEA,RGB(100,100,200));
 {DRAWBAND(DI,RGB(200,50,100),DE,RGB(50,50,200));}
 DIFX:EMA(CLOSE,12)-EMA(CLOSE,26);
 DEAX:EMA(DIFX,9);

周DIFX:("MACD.DIF#WEEK");
周DEAX:("MACD.DEA#WEEK");

 MA5:=MA(CLOSE,5);
 MA60:=MA(CLOSE,60);
日趋势:(DIF+DEA)/2;
周趋势:(周DIF+周DEA)/2;

撑压A:IF(CROSS(DIFX,DEAX),DIFX,REF(DIFX,BARSLAST(CROSS(DEAX,DIFX)))),POINTDOT,COLORYELLOW,LINETHICK2;
撑压B:IF(CROSS(DEAX,DIFX),DIFX,REF(DIFX,BARSLAST(CROSS(DIFX,DEAX)))),POINTDOT,COLORYELLOW,LINETHICK2;

 DIIFF:=(EMA(A1,5) - EMA(A1,10));
 DEAA:=EMA(DIIFF,3);

K线动能:=(DIIFF-DEAA),COLORYELLOW;
 STICKLINE((K线动能 > 0),0,K线动能,1.5,0),COLORYELLOW;
 STICKLINE((K线动能 > 0),0,K线动能*0.9,1.5,0),COLORYELLOW;
 STICKLINE((K线动能 > 0),0,K线动能*0.8,1.5,0),COLORYELLOW;
 STICKLINE((K线动能 > 0),0,K线动能*0.7,1.5,0),COLOR0000FF;
 STICKLINE((K线动能 > 0),0,K线动能*0.6,1.5,0),COLOR0000FF;
 STICKLINE((K线动能 > 0),0,K线动能*0.5,1.5,0),COLOR0000FF;
 STICKLINE((K线动能 > 0),0,K线动能*0.4,1.5,0),COLOR0000FF;
 STICKLINE((K线动能 > 0),0,K线动能*0.3,1.5,0),COLOR0000FF;
 STICKLINE((K线动能 > 0),0,K线动能*0.2,1.5,0),COLOR0000FF;
 STICKLINE((K线动能 > 0),0,K线动能*0.1,2,0),COLOR0000FF;
 STICKLINE((K线动能 < 0),0,K线动能,1.5,0),COLOR00FF00;
 STICKLINE((K线动能 < 0),0,K线动能*0.9,1.5,0),COLOR00FF00;
 STICKLINE((K线动能 < 0),0,K线动能*0.8,1.5,0),COLOR00FF00;
 STICKLINE((K线动能 < 0),0,K线动能*0.7,1.5,0),COLORFF9900;
 STICKLINE((K线动能 < 0),0,K线动能*0.6,1.5,0),COLORFF9900;
 STICKLINE((K线动能 < 0),0,K线动能*0.5,1.5,0),COLORFF9900;
 STICKLINE((K线动能 < 0),0,K线动能*0.4,1.5,0),COLORFF9900;
 STICKLINE((K线动能 < 0),0,K线动能*0.3,1.5,0),COLORFF9900;
 STICKLINE((K线动能 < 0),0,K线动能*0.2,1.5,0),COLORFF9900;
 STICKLINE((K线动能 < 0),0,K线动能*0.1,1.5,0),COLORFF9900;

选股:周DIFX>=REF(周DIFX,1) AND 周MACD>REF(周MACD,1) AND CROSS(DIF,DEA);