一览无余!清晰再现当日成交量的变化，通达信源码分享

自从分享了10日资金出入表源码，有朋友私信能否分享一个“成交量占流通盘百分比”指标。没啥好说的，安排[灵光一闪]！

这个分时“成交量占流通盘百分比”幅图指标只为解决成交量变化监控的问题，请勿作为买卖依据！

VAR1:="分时引用.AAQ#DAY";

VAR2:=IF(HOUR<13,TIME-0929-(HOUR-9)*40,TIME-1180-(HOUR-13)*40);

分时量比:SUM(V,VAR2)/(VAR2)/VAR1,COLORWHITE;

竞价金额:=分时引用.竞价金额#DAY,NODRAW;{集合竞价 单位元};

竞额:竞价金额/10000,COLORRED,NODRAW;

竞量:=竞价金额/OPEN/100;

今量:=SUM(V,0),NODRAW;{今天量能，具体到每分钟，可用于分时回看}

昨量:=分时引用.昨量#DAY,NODRAW;{昨天量能}

股本Z:=分时引用.股本Z#DAY;

今换手Z:今量*10000/股本Z,LINETHICK2,COLORCYAN;

DRAWNUMBER(ISLASTBAR,今换手Z,今换手Z),COLORCYAN;

今昨量比:今量/昨量,LINETHICK2,COLORYELLOW;{今日量能与昨天量能比}

DRAWNUMBER(ISLASTBAR,今昨量比,今昨量比),COLORYELLOW;

今开:分时引用.今开#DAY,COLORCYAN,NODRAW;

昨开:分时引用.昨开#DAY,COLORWHITE,NODRAW;

今低:分时引用.今低#DAY,COLORGREEN,NODRAW;

LTP:=IF(CAPITAL<100000,100000,CAPITAL);

竞价换手率:=竞量/LTP*10000;

竞价动能:=今开 * 竞价换手率,COLORYELLOW,NODRAW;

竞价涨停:=分时引用.竞价涨停#DAY,COLORWHITE;

HL:=MAX(HHV(今换手Z,240),HHV(分时量比,240));

NOTEXT昨量线:1,DOTLINE,LINETHICK1,COLORLIGREEN;

NOTEXT活跃线:3,DOTLINE,LINETHICK1,COLORMAGENTA;

NOTEXT高潮线:IF(HL>=7,7,DRAWNULL)DOTLINE,LINETHICK1,COLORRED;

STICKLINE(CROSS(今昨量比,1),0,HL/2,2,0),COLORRED;

DRAWTEXT(CROSS(今昨量比,1),HL/2,' 平量')COLORMAGENTA;

STICKLINE(CROSS(今昨量比,2),0,HL/2,2,0),COLORRED;

DRAWTEXT(CROSS(今昨量比,2),HL/2,' 倍量')COLORMAGENTA;

STICKLINE(CROSS(今昨量比,3),0,HL/2,2,0),COLORRED;

DRAWTEXT(CROSS(今昨量比,3),HL/2,' 高量')COLORMAGENTA;

V1:=REF(今量,BARSCOUNT(C)-0);{开盘9:30分钟量能}

V5:=REF(今量,BARSCOUNT(C)-5);{开盘前5分钟量能}

V10:=REF(今量,BARSCOUNT(C)-10);{开盘前10分钟量能}

V15:=REF(今量,BARSCOUNT(C)-15);{开盘前15分钟量能}

V30:=REF(今量,BARSCOUNT(C)-30);{开盘前15分钟量能}

涨停:=分时引用.涨停1#DAY;

首次涨停:=BARSSINCE(H=涨停);

首次涨停前总量:=SUM(V,0)-SUM(V,首次涨停);

首停昨比:首次涨停前总量/昨量,COLORRED,NODRAW;{首次涨停量能与昨天量能比}

HS0:=STRCAT('9:25→',STRCAT(CON2STR(竞量*10000/FINANCE(46),2),''));

HS1:=STRCAT(' 9:30→',STRCAT(CON2STR(V1*10000/FINANCE(46),2),''));

HS2:=STRCAT(' 9:35→',STRCAT(CON2STR(V5*10000/FINANCE(46),2),''));

HS3:=STRCAT(' 9:40→',STRCAT(CON2STR(V10*10000/FINANCE(46),2),''));

HS4:=STRCAT(' 9:45→',STRCAT(CON2STR(V15*10000/FINANCE(46),2),''));

HS5:=STRCAT(' 10:00→',STRCAT(CON2STR(V30*10000/FINANCE(46),2),''));

HS6:=STRCAT(' 首停→',STRCAT(CON2STR(首次涨停前总量*10000/FINANCE(46),2),'％'));

换手Z:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(HS0,HS1),HS2),HS3),HS4),HS5);

DRAWTEXT_FIX(ISLASTBAR,0.0,0.0,0,STRCAT('换手Z(％)：',换手Z)),COLORLIRED;

LB0:=STRCAT('9:25→',STRCAT(CON2STR(竞量/昨量,2),''));

LB1:=STRCAT(' 9:30→',STRCAT(CON2STR(V1/昨量,2),''));

LB2:=STRCAT(' 9:35→',STRCAT(CON2STR(V5/昨量,2),''));

LB3:=STRCAT(' 9:40→',STRCAT(CON2STR(V10/昨量,2),''));

LB4:=STRCAT(' 9:45→',STRCAT(CON2STR(V15/昨量,2),''));

LB5:=STRCAT(' 10:00→',STRCAT(CON2STR(V30/昨量,2),''));

LB6:=STRCAT(' 首停→',STRCAT(CON2STR(首次涨停前总量/昨量,2),''));

LLB:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(LB0,LB1),LB2),LB3),LB4),LB5);

DRAWTEXT_FIX(ISLASTBAR,0.0,0.20,0,STRCAT('今昨量比：',LLB)),COLORLIBLUE;