通达信动能线源码附图

指标来源于网络,修改参数而得!只适用于日线和60分钟..有未来,参考而已!

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;
 VC:=(2*CLOSE+HIGH+LOW)/4;
 K:=SLOPE(WMA(VC,3),7)*3+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,1)-EMA(KD,7);
 KDCD3:EMA(KDCD,3)*50,LINETHICK2;
 IF(KDCD3>REF(KDCD3,1),KDCD3,DRAWNULL),COLORRED,LINETHICK2;
 IF(KDCD3<REF(KDCD3,1),KDCD3,DRAWNULL),COLORBLUE,LINETHICK2;