通达信反转成交量源码

反转成交量
 
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;