通达信真实盘口副图公式

通达信真实盘口副图公式

发一个成交量指标给大家共享！从盘口上可了解成交买盘，卖盘，成交差额！还可从换手统计上了解主力收集，派发筹码
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;