【原】通达信资金驱动指标公式源码

DRAWTEXT_FIX(1,0.00,0.00,0,' '),COLORYELLOW;

REFLINE:0;

DIFF:=Ema(CLOSE,3)-EMA(CLOSE,8);

DEA:=EMA(DIFF,5);

macd := 2*(DIFF-DEA);

X1:=EMA(DIFF,5)*5;

X2:=((EMA(CLOSE,3)-EMA(CLOSE,8)))*5;

X3:IF(X2>0,X2,0),POINTDOT,COLORRED;

X4:=IF(X2<0,X2,0),POINTDOT,COLORGREEN;

stICKLINE(X2>0,0,X2,2.8,0),COLORRED;

STICKLINE(X2>0,0,X2,2.8,0),COLOR000088;

STICKLINE(X2>0,0,X2,2.6,0),COLOR000099;

STICKLINE(X2>0,0,X2,2.4,0),COLOR0000AA;

STICKLINE(X2>0,0,X2,2.2,0),COLOR0000BB;

STICKLINE(X2>0,0,X2,2,0),COLOR0000CC;

STICKLINE(X2>0,0,X2,1.8,0),COLOR0000DD;

STICKLINE(X2>0,0,X2,1.5,0),COLOR0000EE;

STICKLINE(X2>0,0,X2,1.0,0),COLOR0000FF;

STICKLINE(X2>0,0,X2,0.0,0),COLOR0000FF;

STICKLINE(X2<0,0,X2,2.8,0),COLORGREEN;

STICKLINE(X2<0,0,X2,2.8,0),COLOR007700;

STICKLINE(X2<0,0,X2,2.6,0),COLOR008800;

STICKLINE(X2<0,0,X2,2.6,0),COLOR009900;

STICKLINE(X2<0,0,X2,2.4,0),COLOR00BB00;

STICKLINE(X2<0,0,X2,2.0,0),COLOR00CC00;

STICKLINE(X2<0,0,X2,1.8,0),COLOR00DD00;

STICKLINE(X2<0,0,X2,1.5,0),COLOR00EE00;

STICKLINE(X2<0,0,X2,1,0),COLOR00FF00;

STICKLINE(X2<0,0,X2,0,0),COLOR00FF00;

资金动能A:X2,COLORWHITE,LINETHICK2;

资金动能B:X1,COLORBROWN,LINETHICK3;

VAR2:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;

VAR3:=SMA(SMA(VAR2,3,1),3,1);

VAR4:=EMA(VAR3,5);

大底部:=IF(crOSS(VAR4,10) AND VAR4>10,14,0);

中底部:=IF(CROSS(VAR4,20) AND VAR4>10,13,0);

小底部:=IF(CROSS(VAR4,30) AND VAR4>10,12,0);

AA:=vol>=REF(V,1)*1.91 AND C>REF(C,1)*1.01;

红柱:DRAWICON(CROSS(资金动能A,0) AND AA,-1,1);

持币:IF(SAR(10,2,20)>=H,0,DRAWNULL),CIRCLEDOT,COLORWHITE;

持股:IF(sar(10,2,20)<=L,0,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;

个股:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3),COLOR1010FF;

短线反弹:IF(CROSS(个股,9),10,0),STICK,LINETHICK3,COLOR00FF00;