通达信反转成交量源码
通达信反转成交量源码
反转成交量
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交:=VOL,POINTDOT;
主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主动卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLOR00FF00,POINTDOT;
净买万:(主动买盘+主动卖盘)/100,COLORRED;
十日换手:SUM(VOL/CAPITAL*100,10);
流通（亿）:=CAPITAL/1000000,POINTDOT;
{虚拟量:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,虚拟量,0,-1,-1),COLOR00C0C0;}
VOLUME:VOL,VOLSTICK;
VOL1:MA(VOLUME,M1), COLORWHITE;
VOL2:MA(VOLUME,M2),COLORYELLOW;
VOL3:MA(VOLUME,M3),COLORFF00FF;
成交额（KW）:AMOUNT/10000000,POINTDOT;
增减力度:(MA(CLOSE,34.000) - CLOSE) / MA(CLOSE, 34.000) * 10.000,COLOR6666FF;
STICKLINE(FILTER(CROSS(0.019100,增减力度),21), VOL*0.8,0,1,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(0.019100,增减力度),21), VOL*0.8,'跟踪'),COLORWHITE;
VAR1D:=MA(C,30);
VAR2:=MA(CLOSE, 6);
VAR3:=MA(CLOSE, 10);
VAR4:=MA(CLOSE, 20);
VAR5:=MA(CLOSE, 30);
VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;
VAR7:=(VAR6-REF(VAR6, 15))/REF(VAR6, 15)*100;
VAR9:=EMA(VAR7, 8);
移动:=10*(C-VAR1D)/STD(C,30),COLORWHITE,LINETHICK0;
估算:=EMA(移动,10),COLORGREEN;
{STICKLINE(CROSS(移动,估算),0,VOL,1,0),COLORWHITE;}{浅紫反转点};
均反:STICKLINE(VAR7>1*REF(VAR7, 1) AND CROSS(移动,估算), 0,VOL,1.2,0),COLORWHITE;
DRAWTEXT(均反, VOL,'反'),COLORWHITE;
{压力线,未来}
QM:=INTPART(3*8/5);
QR:=REF(VOL,QM)=HHV(VOL,2*QM+1);
QT:=FILTER(QR,QM);
QY:=BACKSET(QT,QM+1);
QU:=FILTER(QY,QM);
QI:=BACKSET(ISLASTBAR,BARSLAST(QU)+1);{未来函数}
QP:=QI>REF(QI,1);
最大成交量:=HHV(V,50);{计算50日内最大成交量的数字}
距离天数:=BARSLAST(V=最大成交量);{计算最大成交量出现那天距离今天的天数}
QS:DRAWLINE(QU,V,QP,V,1),LINETHICK2,COLORMAGENTA;
