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线动能 > 1),0,K线动能,2,0),coloryellow;
STICKLINE((K线动能 > 1),0,K线动能*0.9,2,0),coloryellow;
STICKLINE((K线动能 > 1),0,K线动能*0.8,2,0),coloryellow;
STICKLINE((K线动能 > 1),0,K线动能*0.7,2,0),colorlired;
STICKLINE((K线动能 > 1),0,K线动能*0.6,2,0),colorlired;
STICKLINE((K线动能 > 1),0,K线动能*0.5,2,0),colorlired;
STICKLINE((K线动能 > 1),0,K线动能*0.4,2,0),colorlired;
STICKLINE((K线动能 > 1),0,K线动能*0.3,2,0),colorlired;
STICKLINE((K线动能 > 1),0,K线动能*0.2,2,0),colorlired;
STICKLINE((K线动能 > 1),0,K线动能*0.1,2,0),colorlired;
STICKLINE((K线动能 < 1),0,K线动能,2,0),COLOR00FF00;
STICKLINE((K线动能 < 1),0,K线动能*0.9,2,0),COLOR00FF00;
STICKLINE((K线动能 < 1),0,K线动能*0.8,2,0),COLOR00FF00;
STICKLINE((K线动能 < 1),0,K线动能*0.7,2,0),COLORFF9900;
STICKLINE((K线动能 < 1),0,K线动能*0.6,2,0),COLORFF9900;
STICKLINE((K线动能 < 1),0,K线动能*0.5,2,0),COLORFF9900;
STICKLINE((K线动能 < 1),0,K线动能*0.4,2,0),COLORFF9900;
STICKLINE((K线动能 < 1),0,K线动能*0.3,2,0),COLORFF9900;
STICKLINE((K线动能 < 1),0,K线动能*0.2,2,0),COLORFF9900;
STICKLINE((K线动能 < 1),0,K线动能*0.1,2,0),COLORFF9900;
M1:=(DCLOSE-CLOSE)*50;
M2:EMA(EMA(M1,2),5),colorblue,LINETHICK1;
IF(M2>0,M2,DRAWNULL),colorred,LINETHICK2;
IF(M2<0,M2,DRAWNULL),colorwhite,LINETHICK1;
STICKLINE(crOSS(M2,0),0,25,2,0),colormagenta;
STICKLINE(CROSS(0,M2),0,-25,2,0),colorblue,;
VC:=(2*CLOSE+HIGH+LOW)/4;
K:=SLOPE(WMA(VC,3),11)*5+VC,COLOR00FFFF;
D:=WMA(K,3),colorblue;
J:=2.8*K-1.8*D,coloryellow,LINETHICK1;
K3:=EMA(K,5);
D3:=EMA(D,5);
kd:=(K3+D3)/2;
KDCD:=EMA(KD,5)-EMA(KD,13);
KDCD3:EMA(KDCD,5)*50,colorgreen,LINETHICK1;
IF(KDCD3>REF(KDCD3,3),KDCD3,DRAWNULL),colorred,LINETHICK1;
IF(KDCD3<REF(KDCD3,3),KDCD3,DRAWNULL),colorred;
DRAWTEXT(CROSS(M2,KDCD3),KDCD3=M2,'B'),COLOR00FFFF;
DRAWTEXT(CROSS(KDCD3,M2),KDCD3=M2,'今S'),COLOR00FF00;
DRAWBAND(M2,RGB(180,0,0),KDCD3,RGB(0,158,0));