通达信资金统计 主图 源码

超B:=L2_VOL(0,0)*VOL/CAPITAL; 

大B:=L2_VOL(1,0)*VOL/CAPITAL; 

中B:=L2_VOL(2,0)*VOL/CAPITAL; 

小B:=L2_VOL(3,0)*VOL/CAPITAL; 

超S:=-L2_VOL(0,1)*VOL/CAPITAL; 

大S:=-L2_VOL(1,1)*VOL/CAPITAL; 

中S:=-L2_VOL(2,1)*VOL/CAPITAL; 

小S:=-L2_VOL(3,1)*VOL/CAPITAL; 

净流入:=(超B+大B+中B+小B)+(超S+大S+中S+小S);

超净:=超B+超S;

大净:=大B+大S;

中净:=中B+中S;

散净:=小B+小S;

大宗净流入:=(超B+大B)+(超S+大S);

主力买力度:=LARGEINTRDVOL*100/VOL;

主力卖力度:=LARGEOUTTRDVOL*100/VOL;

AA:=CONST(MAX(ABS(净流入),MAX(ABS(大宗净流入),MAX(ABS(超净),MAX(ABS(大净),MAX(ABS(中净),ABS(散净)))))))*3,NODRAW;

DRAWRECTREL(10,CONST(830-(ABS(大宗净流入)*500/AA)),50,945,IF(CONST(大宗净流入)>0,RGB(250,0,0),RGB(0,50,0)));

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.018,0.85,0,INTPART(大宗净流入)),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.018,0.90,0,'大宗'),COLORYELLOW;

DRAWRECTREL(55,CONST(830-(ABS(超净)*500/AA)),95,945,IF(CONST(超净)>0,RGB(255,0,0),RGB(0,50,0)));

DRAWRECTREL(100,CONST(830-(ABS(大净)*500/AA)),140,945,IF(CONST(大净)<0,RGB(0,50,0),RGB(255,0,0)));

DRAWRECTREL(145,CONST(830-(ABS(中净)*500/AA)),185,945,IF(CONST(中净)>0,RGB(255,0,0),RGB(0,50,0)));

DRAWRECTREL(190,CONST(830-(ABS(散净)*500/AA)),230,945,IF(CONST(散净)<0,RGB(0,50,0),RGB(255,0,0)));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.062,0.90,0,'超净         大净          中净         散净'),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.062,0.85,0,INTPART(超净)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.110,0.85,0,INTPART(大净)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.155,0.85,0,INTPART(中净)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.200,0.85,0,INTPART(散净)),COLORYELLOW;

AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW;

DRAWRECTREL(0,515,CONST(ABS(主力买力度)*500/AAD),568,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)));

DRAWRECTREL(0,570,CONST(ABS(主力卖力度)*500/AAD),623,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0)));

DRAWTEXT_FIX(1,0,0.512,0,STRCAT('主力买力度:',CON2STR(主力买力度,0))),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.57,0,STRCAT('主力卖力度:',CON2STR(主力卖力度,0))),COLORYELLOW;

VAR101:=ZIG(3,13);

STICKLINE((REF(VAR101,2) < REF(VAR101,1)) AND (VAR101 < REF(VAR101,1)),CLOSE,OPEN,5,0),COLOR66FF00;

 

原理解析：
超B赋值:L2_成交量(0,0)*成交量/当前流通股本


大B赋值:L2_成交量(1,0)*成交量/当前流通股本


中B赋值:L2_成交量(2,0)*成交量/当前流通股本


小B赋值:L2_成交量(3,0)*成交量/当前流通股本


超S赋值:-L2_成交量(0,1)*成交量/当前流通股本


大S赋值:-L2_成交量(1,1)*成交量/当前流通股本


中S赋值:-L2_成交量(2,1)*成交量/当前流通股本


小S赋值:-L2_成交量(3,1)*成交量/当前流通股本


净流入赋值:(超B+大B+中B+小B)+(超S+大S+中S+小S)


超净赋值:超B+超S


大净赋值:大B+大S


中净赋值:中B+中S


散净赋值:小B+小S


大宗净流入赋值:(超B+大B)+(超S+大S)
主力买力度赋值:LARGEINTRD成交量*100/成交量


主力卖力度赋值:LARGEOUTTRD成交量*100/成交量
AA赋值:CONST(MAX(净流入的绝对值,MAX(ABS(大宗净流入),MAX(ABS(超净),MAX(ABS(大净),MAX(ABS(中净),ABS(散净)))))))*3,NODRAW


DRAWRECTREL(10,CONST(830-(大宗净流入的绝对值*500/AA)),50,945,IF(CONST(大宗净流入)>0,RGB(250,0,0),RGB(0,50,0)))


DRAWNUMBER_FIX( 到最后交易的周期=1,0.018,0.85,0,INTPART(大宗净流入)),画黄色
当满足条件 到最后交易的周期=1时,在横轴0.018纵轴0.90位置书写文字


DRAWRECTREL(55,CONST(830-(超净的绝对值*500/AA)),95,945,IF(CONST(超净)>0,RGB(255,0,0),RGB(0,50,0)))


DRAWRECTREL(100,CONST(830-(大净的绝对值*500/AA)),140,945,IF(CONST(大净)<0,RGB(0,50,0),RGB(255,0,0)))


DRAWRECTREL(145,CONST(830-(中净的绝对值*500/AA)),185,945,IF(CONST(中净)>0,RGB(255,0,0),RGB(0,50,0)))


DRAWRECTREL(190,CONST(830-(散净的绝对值*500/AA)),230,945,IF(CONST(散净)<0,RGB(0,50,0),RGB(255,0,0)))
当满足条件 到最后交易的周期=1时,在横轴0.062纵轴0.90位置书写文字


DRAWNUMBER_FIX( 到最后交易的周期=1,0.062,0.85,0,INTPART(超净)),画黄色


DRAWNUMBER_FIX( 到最后交易的周期=1,0.110,0.85,0,INTPART(大净)),画黄色


DRAWNUMBER_FIX( 到最后交易的周期=1,0.155,0.85,0,INTPART(中净)),画黄色


DRAWNUMBER_FIX( 到最后交易的周期=1,0.200,0.85,0,INTPART(散净)),画黄色


AAD:=CONST(MAX(主力买力度的绝对值,ABS(主力卖力度)))*4,NODRAW


DRAWRECTREL(0,515,CONST(主力买力度的绝对值*500/AAD),568,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)))


DRAWRECTREL(0,570,CONST(主力卖力度的绝对值*500/AAD),623,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0)))


DRAWTEXT_FIX(1,0,0.512,0,STRCAT('输出主力买力度:',CON2STR(主力买力度,0))),画黄色
输出

DRAWTEXT_FIX(1,0,0.57,0,STRCAT('主力卖力度:',CON2STR(主力卖力度,0))),画黄色
VAR101赋值:ZIG(3,13)


STICKLINE((2日前的VAR101 < 1日前的VAR101) AND (VAR101 < 1日前的VAR101),收盘价,开盘价,5,0),COLOR66FF00