通达信极好成交量 源码

{}VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主卖:IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT;
STICKLINE(主买>0,0,主买,2,0),COLORRED;
{STICKLINE(主卖>0,主买,VOL,2,1),COLOR00FF80;}
STICKLINE(主买<REF(主买,1)AND 主买>0,0,主买,2,0),COLOR00FFFF;
V5:MA(VOLUME,5),LINETHICK3;
V10:MA(VOLUME,10),LINETHICK3;
V135:MA(VOLUME,135),LINETHICK3;
{DRAWICON(十日换手>30,-20000,1);}
DRAWICON(十日换手>80,-10000,23);
DRAWTEXT(CURRBARSCOUNT=40,HHV(V,80)*0.9,'10日换手>80出红十字');
{DRAWICON(二十日换手>30,-40000,2);}
DRAWICON(二十日换手>80,-30000,17);
DRAWTEXT(CURRBARSCOUNT=80,HHV(V,80)*0.95,'20日换手>80出桔子'),COLOR00FFFF;