通达信公式源码 通达信K线动能图公式源码：

www.beexiaomifeng.com带来通达信公式源码 通达信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;

?