通达信真实盘口副图公式

发一个成交量指标给大家共享！从盘口上可了解成交买盘，卖盘，成交差额！还可从换手统计上了解主力收集，派发筹码
 
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
 MTIME:=MOD(FROMOPEN,TOTAL);
 CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
 VVOL:=IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
 STICKLINE(CURRBARSCOUNT=1 && (SETCODE=0 || SETCODE=1),VVOL,0,-1,-1),COLOR00C0C0;
 VOLUME:=VOL,VOLSTICK;
 
成交量手:=VOL,POINTDOT,COLORYELLOW;
 VAR0:=DYNAINFO(17)*REF(MA(VOL,5),1);
 VAR2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
 预测:=IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR0,VAR2)/10000;
 预测量:STICKLINE(IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR0,VAR2),VAR0,0,3,1),DOTLINE,COLORGRAY;
 VOL,VOLSTICK;
 {成交量:VOL,POINTDOT;}
 AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
 主动买盘:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2.5)),POINTDOT,COLORRED;
 主动卖盘:IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2.5)),,COLORGREEN,NODRAW;
 买卖差:主动买盘+主动卖盘,COLORWHITE,NODRAW;
 日差占流通盘比:买卖差/CAPITAL*100,COLOR0099FF,NODRAW;
 五日买卖总差:SUM(买卖差,5),COLORLIMAGENTA,LINETHICK1,NODRAW;
 换手率％:VOL/CAPITAL*100,COLORYELLOW,NODRAW;
流通盘（亿）:CAPITAL/1000000,NODRAW;
流通市值（亿）: (CAPITAL/100*C)/10000,COLOR33CCFF,NODRAW;
 成交额（千万）:AMOUNT/10000000,NODRAW;
 
STICKLINE(C>O,0,VOL,3.2,1),COLOR0000AA;
 STICKLINE(C<O,0,VOL,3.2,1),COLOR00AA00;
 
STICKLINE(主动买盘>0,0,主动买盘,2.6,0),COLORRED;
 STICKLINE(主动卖盘<0,0,-主动卖盘,2.6,0),COLORGREEN;
 
STICKLINE(买卖差>0,0,买卖差,0.6,0),COLORYELLOW;
 STICKLINE(买卖差<0,0,-买卖差,0.6,0),COLORBLUE;
 换:VOL/CAPITAL*100,POINTDOT COLORMAGENTA;
 五换:SUM(换,5),COLORYELLOW;
 十换:SUM(换,10),COLORGREEN;
 二十换:SUM(换,20),COLORFFFFFF;
 三十换:SUM(换,30),COLORYELLOW;
 
DRAWICON(十换>30,-20000,1);
 DRAWICON(十换>80,-10000,23);
 {DRAWTEXT(CURRBARSCOUNT=40,HHV(V,80)*0.9,'10日换手 >30出红箭头, >80出红十字');}
 DRAWTEXT_FIX(1,0.01,0.9,0,'空心柱为成交量，实心柱为主买卖,中间窄柱子为买卖差，10日换手 >30出红箭头, >80出红十字'),COLORLIGRAY;
 {A股:CAPITAL/1000000,LINETHICK0,COLORWHITE;}
 启:=MA(V,5)COLORMAGENTA,LINETHICK2;
 洗:=MA(V,30)COLORGREEN,LINETHICK2;
 异:=MA(V,60)COLORLIBLUE,LINETHICK2;
 DRAWTEXT(CROSS(启,洗)AND V>洗 AND V>异 AND 洗<异,V,'★洗盘'),COLORMAGENTA;
 DRAWTEXT(CROSS(启,异)AND V>异 AND V>异 AND 洗<异,V,'★异动'),COLORYELLOW;