{霍氏杀器}

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);