【股票指标公式】-【通达信】新资金进出(副图)

【通达信】新资金进出（副图）-指标公式源码

由于通达信函数的跟进简化了画直方图，感谢【壹瓣杺埖】老师的源码，改进的【资金进出】送给大家，祝贺大家新年财源滚滚！

{[新资金进出]通达信版}

N:=3;

K1:=IF(CLOSE>=REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW+CLOSE-REF(CLOSE,1),HIG H-OPEN+CLOSE-LOW);

K2:=IF(CLOSE<=REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPE N-LOW+HIGH-CLOSE);

DT:=VOL*K1/(K1+K2);

KT:=(VOL-DT);

买量:SUM(DT,N),COLOR0000FF;

卖量:-SUM(KT,N),COLORFFFF00;

DRAWBAND(买量,RGB(0,120,0),0,DRAWNULL);

DRAWBAND(0,RGB(0,80,0),卖量,DRAWNULL);

进出量:买量+卖量,POINTDOT,COLOR00FFFF;

净量换手:100*进出量/CAPITAL,POINTDOT,COLOR00FF33;

STICKLINE(进出量>=0,0,进出量,3,1),COLOR0000FF;

STICKLINE(进出量<0,0,进出量,3,1),COLORFFFF00;

D3:=100*SUM(DT,3)/CAPITAL;

K3:=100*SUM(KT,3)/CAPITAL;

J3:=D3-K3;

D6:=100*SUM(DT,6)/CAPITAL;

K6:=100*SUM(KT,6)/CAPITAL;

J6:=D6-K6;

D9:=100*SUM(DT,9)/CAPITAL;

K9:=100*SUM(KT,9)/CAPITAL;

J9:=D9-K9;

DAZHI:=CONST(MAX(ABS(D3),MAX(ABS(K3),MAX(ABS(J3),MAX(ABS(D6),MAX(ABS( K6),MAX(ABS(J6),MAX(ABS(D9),MAX(ABS(K9),ABS(J9)))))))))),NODRAW; DRAWRECTREL(0,0,230,999.4,IF(120,RGB(100,100,100),0));

{3日画直方图}

DRAWRECTREL(38,CONST(830-(ABS(D3)*500/DAZHI)),51,935,IF(CONST(D3)>0,R GB(150,0,0),RGB(150,0,0)));

DRAWRECTREL(53,CONST(830-(ABS(K3)*500/DAZHI)),65,935,IF(CONST(K3)>0,R GB(0,150,150),RGB(0,150,150)));

DRAWRECTREL(68,CONST(830-(ABS(J3)*500/DAZHI)),80,935,IF(CONST(J3)>0,R GB(150,150,0),RGB(150,150,0)));

{6日画直方图}

DRAWRECTREL(100,CONST(830-(ABS(D6)*500/DAZHI)),112,935,IF(CONST(D6)>0 ,RGB(150,0,0),RGB(150,0,0)));

DRAWRECTREL(114,CONST(830-(ABS(K6)*500/DAZHI)),126,935,IF(CONST(K6)>0 ,RGB(0,150,150),RGB(0,150,150)));

DRAWRECTREL(128,CONST(830-(ABS(J6)*500/DAZHI)),140,935,IF(CONST(J6)>0 ,RGB(150,150,0),RGB(150,150,0)));

{9日画直方图}

{}

DRAWRECTREL(160,CONST(830-(ABS(D9)*500/DAZHI)),172,935,IF(CONST(D9)>0 ,RGB(150,0,0),RGB(150,0,0)));

DRAWRECTREL(174,CONST(830-(ABS(K9)*500/DAZHI)),186,935,IF(CONST(K9)>0 ,RGB(0,150,150),RGB(0,150,150)));

DRAWRECTREL(188,CONST(830-(ABS(J9)*500/DAZHI)),200,935,IF(CONST(J9)>0 ,RGB(150,150,0),RGB(150,150,0)));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.01,0,'资金进出统计'),COLORYELLOW; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.15,0,'名称'),COLORWHITE; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.042,0.15,0,'买量'),COLORRED; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.098,0.15,0,'卖量'),COLORGREEN; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.160,0.15,0,'进出量'),COLORCYAN; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.30,0,'今日'),COLORYELLOW; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.30,0,CONST(100*DT/CAPITAL)),CO LORRED;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.30,0,CONST(100*KT/CAPITAL)),CO LORGREEN;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.160,0.30,0,CONST(100*DT/CAPITAL-100* KT/CAPITAL)),COLORCYAN;