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

1、由于通达信函数的跟进简化了画直方图，感谢【壹瓣杺埖】老师的源码，改进的【资金进出】送给大家，祝贺大家新年财源滚滚！新资金进出通达信版N:=3;K1:=IF(CL0SE>=REF(CL0SE,1),HIGH-0PEN+CL0SE-L0W+CL0SE-REF(CL0SE,1),HIG H-OPEN+CLOSE-LOW);K2:=IF(CLOSE<=REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPEN-LOW+HIGH-CLOSE);DT:=VOL*K1/(K1+K2);KT:=(VOL-DT);买量:SUM(DT,N),COL

2、OR0000FF;卖量:-SUM(KT,N),C0L0RFFFF00;DRAWBAN买量,RGB(0,120,0),0,DRAWNULL);DRAWBAND(0,RGB(0,80,0卖量,DRAWNULL);进出量：买量 + 卖量,P0INTD0T,C0L0R00FFFF;净量换手:100* 进出量 /CAPITAL,P0INTD0T,C0L0R00FF33;STICKLINE(进出量 >=0,0,进出量,3,1),C0L0R0000FF;STICKLINE(进出量 <0,0,进出量,3,1),C0L0RFFFF00;D3:=100*SUM(DT,3)/CAPITAL;K3:=10

3、0*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,99

4、9.4,IF(120,RGB(100,100,100),0);DRAWRECTREL(38,CONST(830-(ABS(D3)*500/DAZHI),51,935,IF(CONST(D3)>0,RGB(150,0,0),RGB(150,0,0);DRAWRECTREL(53,CONST(830-(ABS(K3)*500/DAZHI),65,935,IF(CONST(K3)>0,RGB(0,150,150),RGB(0,150,150);DRAWRECTREL(68,CONST(830-(ABS(J3)*500/DAZHI),80,935,IF(CONST(J3)>0,RGB

5、(150,150,0),RGB(150,150,0);6日画直方图DRAWRECTREL(100,C0NST(830-(ABS(D6)*500/DAZHI),112,935,IF(C0NST(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)

6、>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

7、(CONST(J9)>0,RGB(150,150,0),RGB(150,150,0);DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.01资金进出统计),COLORYELLOW;DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.15名称'),COLORWHITE;DRAWTEXT_FIX(CURRBARSCOUNT=1,0.042,0.15买量'),COLORRED;DRAWTEXT_FIX(CURRBARSCOUNT=1,0.098,0.15卖量'),COLORGREEN;DRAWTEXT_FIX(CURRBARS

8、COUNT=1,0.160,0.15® 出量'),COLORCYAN;DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.3(今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

9、,0,CONST(100*DT/CAPITAL-100* KT/CAPITAL),COLORCYAN;般票软件公貳好服票网GOOOGUFIAODRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.48,0,'E3'),COLORYELLOW;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.48,0,CONST(D3),COLORRED;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.48,0,CONST(K3),COLORGREEN;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.

10、160,0.48,0,CONST(J3),COLORCYAN;DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.68,0,'国'),COLORYELLOW;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.68,0,CONST(D6),COLORRED;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.68,0,CONST(K6),COLORGREEN;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.160,0.68,0,CONST(J6),COLORCYAN;DRAWTEXT_F

11、IX(CURRBARSCOUNT=1,0.002,0.98,0,国'),COLORYELLOW;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.98,0,CONST(D9),COLORRED;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.098,0.98,0,CONST(K9),COLORGREEN;DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.160,0.98,0,CONST(J9),COLORCYAN;【通达信】新资金进出（副图）-指标公式效果图股票報件公武了好肢票网GOOOGUPIAO.帥I j功幅 覩空Jfi

12、ut 涉 rfiilff Slil HA 料助遇谨码金is好域IriD&K ZOJI月so日g：iu <o里期日|甘膏江揑段i；目规）HA MA£- 6 QQ電剛壮酉昭呎（4胪MA0 4沔MAI 711 4舶 m i叩17 3亍高托比盘引最最量内 ofl-7b 5J-_J 2 5 2KTT 3PCW22 22ES 22 Efnlp下丿丁 G GEGG GficGG GO-X3»JXZJJC 二必.画NB貌量-Ijgigj 37宙岀 23B336H i*星揍半IFinngoB测加g射石t n月?152i21 盯加掙涼入额 殳宗流人5日淨溉入额 汨夫宗淀扎折吕顶板W9另芳再亀疋I蚩車DDE* SlffW夷金凄壞自定覺】目走艾2自走異3 r«£ 側馳馬金甘布駅唤略行业秋崎王力嗣IMBI?经济猜标涼合责讯同蹄i可行业丹迅卜险一刘M万19% 阳H万?7X 75-1177 烷酣27万1改“ 品/如隔8上淞？ 匚）崔虫二怯皈上旺曲1TW 3216 1 *1% 1054 iSiiEfl432 29 123'« 1 3?% 1020亿 中45W.37 &3 眈 1.4事 切虬frE靑* 庫对 溝1： 3175.51 联出力：Z20T.W SUM：