K线动能 这是判断上涨动能的

AA:=EMA((2*C+H+L)/4,3);

A1:=SLOPE(AA*5-REF(AA,5),5)+C;

DDIF:=EMA(A1,3) - EMA(A1,13);

DDEA:=EMA(DDIF,3);

K线动能:=(DDIF-DDEA)*50;

STICKLINE((K线动能 > 0),0,K线动能,2,0),coloryellow;

STICKLINE((K线动能 > 0),0,K线动能*0.9,2,0),coloryellow;

STICKLINE((K线动能 > 0),0,K线动能*0.8,2,0),coloryellow;

STICKLINE((K线动能 > 0),0,K线动能*0.7,2,0),COLOR0000FF;

STICKLINE((K线动能 > 0),0,K线动能*0.6,2,0),COLOR0000FF;

STICKLINE((K线动能 > 0),0,K线动能*0.5,2,0),COLOR0000FF;

STICKLINE((K线动能 > 0),0,K线动能*0.4,2,0),COLOR0000FF;

STICKLINE((K线动能 > 0),0,K线动能*0.3,2,0),COLOR0000FF;

STICKLINE((K线动能 > 0),0,K线动能*0.2,2,0),COLOR0000FF;

STICKLINE((K线动能 > 0),0,K线动能*0.1,2,0),COLOR0000FF;

STICKLINE((K线动能 < 0),0,K线动能,2,0),COLOR00FF00;

STICKLINE((K线动能 < 0),0,K线动能*0.9,2,0),COLOR00FF00;

STICKLINE((K线动能 < 0),0,K线动能*0.8,2,0),COLOR00FF00;

STICKLINE((K线动能 < 0),0,K线动能*0.7,2,0),COLORFF9900;

STICKLINE((K线动能 < 0),0,K线动能*0.6,2,0),COLORFF9900;

STICKLINE((K线动能 < 0),0,K线动能*0.5,2,0),COLORFF9900;

STICKLINE((K线动能 < 0),0,K线动能*0.4,2,0),COLORFF9900;

STICKLINE((K线动能 < 0),0,K线动能*0.3,2,0),COLORFF9900;

STICKLINE((K线动能 < 0),0,K线动能*0.2,2,0),COLORFF9900;

STICKLINE((K线动能 < 0),0,K线动能*0.1,2,0),COLORFF9900;

M1:=(DCLOSE-CLOSE)*50;

M2:EMA(EMA(M1,2),5);

IF(M2>0,M2,DRAWNULL)colorred,LINETHICK2;

IF(M2<0,M2,DRAWNULL)colorblue,LINETHICK2;

STICKLINE(CROSS(M2,0),0,25,3,0),colormagenta;

STICKLINE(CROSS(0,M2),0,-25,3,0),colorwhite;

VC:=(2*CLOSE+HIGH+LOW)/4;

K:=SLOPE(WMA(VC,5),9)*5+VC,COLOR00FFFF;

D:=WMA(K,3),COLOR00FF00;

J:=2.8*K-1.8*D,COLOR0099FF,LINETHICK2;

K3:=EMA(K,3);

D3:=EMA(D,3);

KD:=(K3+D3)/2;

KDCD:=EMA(KD,5)-EMA(KD,13);

KDCD3:EMA(KDCD,3)*50;

IF(KDCD3>REF(KDCD3,1),KDCD3,DRAWNULL),colorred;

IF(KDCD3<REF(KDCD3,1),KDCD3,DRAWNULL),colorblue;

DRAWTEXT(CROSS(M2,KDCD3),KDCD3=M2,'▲'),COLOR00FFFF;

DRAWTEXT(CROSS(KDCD3,M2),KDCD3=M2,'▼'),COLOR00FF00;