以下是通达信动能指标公式源码和使用说明
通达信动能短线指标公式源码：
MD6:ma(C,3);
MD5:MA(C,8);
MD4:MA(C,21);
MD3:MA(C,55);
MD2:MA(C,144);
MD1:MA(C,377);
L1:=IF(MD2 =MD1,1,0);
L2:=IF(MD3 MD2OR(MD3=MD2ANDL1=0),1,0);
L3:=IF(MD4 MD3OR(MD4=MD3ANDL2=0),1,0);
L4:=IF(MD5 MD4OR(MD5=MD4ANDL3=0),1,0);
L5:=IF(MD6 MD5OR(MD6=MD5ANDL4=0),1,0);
L6:=IF(C MD6OR(C=MD6ANDL5=0),1,0);
LL1:=L1+L2*2+L3*4;
LL2:=L4+L5*2+L6*4;
GG:=IF(LL2=7ORLL2=3,H,0.5*L);
GD:=IF(LL2=0ORLL2=4,L,1.5*H);
顶0:=LL2=7OR(LL2=3AND(REF(LL2,1)=7ORREF(LL2,1)=3)AND(H REF(H,1)));
均线底0:=LL2=0OR(LL2=4AND(REF(LL2,1)=0ORREF(LL2,1)=4)AND(L REF(L,1)));
GG2:=IF(均线顶0,H,0.9*H);
GD2:=IF(均线底0,L,1.1*L);
均线顶A:=FILTERX(均线顶0ANDGG2=HHV(GG2,BArslAst(均线底0)),BARSLAST(均线底0));
均线底A:=FILTERX(均线底0ANDGD2=LLV(GD2,BARSLAST(均线顶0)),BARSLAST(均线顶0));
均线顶:=FILTERX(均线顶AANDGG2=HHV(GG2,BARSLAST(均线底A)),BARSLAST(均线底A));
均线底:=FILTERX(均线底AANDGD2=LLV(GD2,BARSLAST(均线顶A)),BARSLAST(均线顶A));
顶高:=REF(H,BARSLAST(均线顶));
底底:=REF(L,BARSLAST(均线底));
{
修正顶A:=均线顶OR((LL2=1ORLL2=3ORLL2=5)ANDBARSLAST(均线顶) BARSLAST(均线底)ANDH=HHV(H,BARSLAST(均线顶)+1));
修正底A:=均线底OR((LL2=2ORLL2=4ORLL2=6)ANDBARSLAST(均线底) BARSLAST(均线顶)ANDL=LLV(L,BARSLAST(均线底)+1));
GG3:=IF(修正顶A,H,0.9*H);
GD3:=IF(修正底A,L,1.1*L);
修正顶:=FILTERX(修正顶AANDGG3=HHV(GG3,BARSLAST(修正底A)),BARSLAST(修正底A));
修正底:=FILTERX(修正底AANDGD2=LLV(GD3,BARSLAST(修正顶A)),BARSLAST(修正顶A));}
修正顶:=均线顶;
修正底:=均线底;
X1:=IF(修正底,BARSLAST(修正顶),IF(修正顶,BARSLAST(修正底),0));
EREA:=IF(修正底,SQRT(X1)*(REF(H,X1)-L),IF(修正顶,(H-REF(L,X1))*SQRT(X1),0));
Y1:=REF(X1,X1)+X1;
EREA2:=REF(EREA,Y1);
V1:=IF(修正底OR修正顶,SUM(V,X1)/10000,0);
DRAWNUMBER(修正底,L*0.97,V1),COLORYELLOW;
DRAWNUMBER(修正底,L*0.98,EREA),COLORRED;
DRAWTEXT(修正底,L*0.99,CON2STR(L,2)),COLORGREEN;
DRAWNUMBER(修正顶,H*1.03,V1),COLORYELLOW;
DRAWNUMBER(修正顶,H*1.02,EREA),COLORRED;
DRAWTEXT(修正顶,H*1.01,CON2STR(H,2)),COLORLIRED;
DRAWLINE(修正底,LOW,修正顶ANDEREA EREA2,HIGH,0),COLORMAGENTA,LINETHICK3;
DRAWLINE(修正底,LOW,修正顶ANDEREA =EREA2,HIGH,0),COLORMAGENTA,LINETHICK1;
DRAWLINE(修正顶,HIGH,修正底ANDEREA EREA2,LOW,0),COLORGREEN,LINETHICK3;
DRAWLINE(修正顶,HIGH,修正底ANDEREA =EREA2,LOW,0),COLORGREEN,LINETHICK1;
{
DRAWICON(均线顶,H,5);
DRAWICON(均线底,L,6);
};
OSC:=C-REF(MA(C,13),5){动能线};分界:=MA(OSC,8);
DIFF:=EMA(OSC,12)-EMA(OSC,26);DEA:=EMA(DIFF,9);:=2*(DIFF-DEA);
ZF:=IF(C REF(H,1),EMA(L,5),IF(C REF(EMA(L,5),1),H,EMA(L,5)));
kd:=BArslAST(C =ZF);XH:=KD=1ANDBARSLAST(MacD REF(MACD,1));
{柱线}
STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD*4,0,0),COLORFF6600;
STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD*4,0,0),COLOR0088FF;
STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD*4,0,0),COLORFF88FF;
STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD*4,0,0),COLORFFCCFF;
{K柱}
STICKLINE(OSC REF(OSC,1)||(AMOUNT/REF(AMOUNT,1) 0.97),OSC,REF(OSC,1),3,0),COLORWHITE;{离场}
STICKLINE(crOSS(REF(MACD,1),MACD)ANDMACD REF(MACD,1),OSC,REF(OSC,1),3,0),COLOR0088FF;{}
STICKLINE(OSC =REF(OSC,1),OSC,REF(OSC,1),3,1),COLORRED;{持股}
STICKLINE(BARSLAST(XH) 2,OSC,REF(OSC,1),3,1),COLORRED;{延时}
STICKLINE(XH,OSC,REF(OSC,1),2,0),COLORFF00FF;{启动}
STICKLINE(OSC 分界,OSC,REF(OSC,1),3,1),COLORFFFF00;{空仓}
{动能线:OSC,COLORFFB5FF;加速线:(DEA-DIFF)*9.8,COLORGREEN;}
{字}
{DRAWTEXT(BARPOS=SYSPARAM(3),0,'启动'),COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(3),0,'持股'),COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(3),0,'逃顶'),COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(3),0,'警惕'),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(3),0,'空仓'),COLORFFA900};
黄逃顶白离场:IF(1=1,DRAWNULL,DRAWNULL),COLORYELLOW;{逃顶}
梅红启动:IF(1=1,DRAWNULL,DRAWNULL),COLORMAGENTA;{启动}
红持股兰空仓:IF(1=1,DRAWNULL,DRAWNULL),COLORFFA900;{空仓};
{【MKR-13E5】【】}
{N:=8};
{DIFF:EMA(C,12)-EMA(C,26);DEA:EMA(DIFF,9);MACD:2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD,0,0),COLORFF6666;
STICKLINE(MACD =REF(MACD,1)ANDMACD 0,0,MACD,0,0),COLORRED;
STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD,0,0),COLOR00FFFF;
STICKLINE(MACD =REF(MACD,1)ANDMACD 0,0,MACD,0,0),COLORFF6666;
DD1:=EMA(C,3)-EMA(C,8);DD2:=EMA(O,3)-EMA(O,8);
DD3:=EMA(H,3)-EMA(H,8);DD4:=EMA(L,3)-EMA(L,8);
DRAWICON(CROSS(DD1,DIFF)ANDDIFF -0.05,DD4-0.5,1);
DRAWICON(CROSS(DIFF,DD1)ANDDIFF 0.1,DD3+0.5,2);
STICKLINE(DD1 =DD2,DD1,DD2,4,1),COLOR0099FF;
STICKLINE(DD1 =DD2,DD1,DD2,4,1),COLOR00FF00};
A1:=BARSLAST(REF(CROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9)),1));
B1:=REF(C,A1+1) CANDREF("MACD.DIF"(12,26,9),A1+1) "MACD.DIF"(12,26,9)ANDCROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9));
MACD底:=FILTER(B1 0,5);
DRAWTEXT(MACD底背离,-1.68,'M底'),COLOR00FF00;
C1:=BARSLAST(REF(CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)),1));
D11:=REF(C,C1+1) CANDREF("MACD.DIF"(12,26,9),C1+1) "MACD.DIF"(12,26,9)ANDCROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9));
MACD顶背离:=FILTER(D11 0,5);
DRAWTEXT(MACD顶背离,2.28,'M顶'),COLOR00DD00;
A2:=BARSLAST(REF(CROSS(".K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1) CANDREF("KDJ.K"(9,3,3),A2+1) "KDJ.K"(9,3,3)ANDCROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
KDJ底背离:=FILTER(B2 0,5);
DRAWTEXT(KDJ底背离,-1.98,'K底'),COLOR00FFFF;
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D22:=REF(C,C2+1) CANDREF("KDJ.K"(9,3,3),C2+1) "KDJ.K"(9,3,3)ANDCROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
KDJ顶背离:=FILTER(D22 0,5);
DRAWTEXT(KDJ顶背离,1.98,'K顶'),COLOR0066FF;
A3:=BARSLAST(REF(CROSS(".RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1) CANDREF("RSI.RSI1"(6,12,24),A3+1) "RSI.RSI1"(6,12,24)ANDCROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
RSI底背离:=FILTER(B3 0,5);
DRAWTEXT(RSI底背离,-2.28,'R底'),COLORFFCC66;
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1) CANDREF("RSI.RSI1"(6,12,24),C3+1) "RSI.RSI1"(6,12,24)ANDCROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
RSI顶背离:=FILTER(D3 0,5);
DRAWTEXT(RSI顶背离,1.68,'R顶'),COLORFF00FF;
VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;
VAR2:=EMA(EMA(EMA(VAR1,4),4),4);
SJ:(VAR2-REF(VAR2,1))/REF(VAR2,1)*100,COLORSTICK;
SD:MA(SJ,2);
SK:MA(SJ,1);
VAR3:=CROSS(SK,SD)ANDSK
VAR4:=CROSS(SK,0);
VAR5:=CROSS(SK,SD)ANDSK
强弱分界:0;
VAR6:SJ,COLORRED;
VAR7:SD,COLORRED;
关注:IF(VAR6 REF(VAR6,1),VAR6,DRAWNULL),COLORRED;
持股:IF(VAR7 REF(VAR7,1),VAR7,DRAWNULL),COLORRED;
观望:IF(VAR6 REF(VAR6,1),VAR6,DRAWNULL),COLORGREEN;
持币:IF(VAR7 REF(VAR7,1),VAR7,DRAWNULL),COLORGREEN;
MC:=MA(C,5);
VC:=C-MC;{V:=DC}
MVC:=MA(VC,3);
AC:=VC-MVC;{A:=D(V)=D(DC)}
LB:=MA(V,15)/MA(V,150);
KLIFX:=AC*LB;
STICKLINE(KLIFX =0,0,KLIFX,3,1),COLORYELLOW;
STICKLINE(KLIFX 0,0,KLIFX,3,1),COLORWHITE;
SHORT:=5;
LONG:=55;
MID:=10;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),LINETHICK2;
DEA:EMA(DIF,MID),COLORRED,LINETHICK2;
MACD:(DIF-DEA)*2,COLORSTICK;
通达信动能短线指标公式截图
