VOL自用成交量.ALG

{VOL自用成交量}

{量与价关系密切，其重要性不言而欲。这个是我在理想学到的知识，作的第一个指标，望大家喜欢~~~!!}
{图片上已标出指明，其红色外框为双陪成交量，出现白色短，为短买点，望大家喜欢~~~~!!}
{DRAWGBKLAST(DATE>900101,STRIP(RGB(5,5,95),RGB(0,35,0),0));}
量:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买量:=IF(CLOSE>OPEN,量*(HIGH-LOW),IF(CLOSE<OPEN,量*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
卖量:=(IF(CLOSE>OPEN,0-量*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-量*(HIGH-LOW),0-VOL/2)))*-1;
总量:买量+卖量,LINETHICK0;
净量:买量-卖量,LINETHICK0;

五日净量:SUM(净量,5),LINETHICK0;
十日净量:SUM(净量,10),LINETHICK0;
二十日净量:SUM(净量,20),LINETHICK0;
五十日净量:SUM(净量,50),LINETHICK0;

MA5:MA(VOL,5);
MA10:MA(VOL,10);
MA20:MA(VOL,20);

MAA:=MA( CLOSE ,2) ;
STICKLINE(C>MAA,总量,1,9,1 ),COLOR00FFFF;
STICKLINE(C<MAA,总量,1,9,1 ),COLORFF00FF;
STICKLINE(净量<0,1,总量,9,1),COLORFFFF00;
STICKLINE(C<MAA AND 净量>0,净量,1,9,1 ),COLOR0000FF;

STICKLINE(V>=2*REF(V,1),1,总量,9,1),COLOR0000FF;
STICKLINE(总量>1,总量,0,6,0),COLORFF3300;
STICKLINE(总量>1,总量,0,4,0),COLORFF7700;
STICKLINE(总量>1,总量,0,2,0),COLORFFAA00;
STICKLINE(总量>1,总量,0,1,0),COLORFFFF00;

STICKLINE(买量>0,0,买量,6,0),COLOR000099;
STICKLINE(买量>0,0,买量,4,0),COLOR0000AA;
STICKLINE(买量>0,0,买量,2,0),COLOR0000FF;
STICKLINE(买量>0,0,买量,1,0),COLORCC00FF;

STICKLINE(净量>0,0,净量,6,0),COLOR0033FF;
STICKLINE(净量>0,0,净量,4,0),COLOR0077FF;
STICKLINE(净量>0,0,净量,2,0),COLOR00BBFF;
STICKLINE(净量>0,0,净量,1,0),COLOR00FFFF;

STICKLINE(净量<0,1,净量,9,1),COLORFFFF00;
STICKLINE(净量<0,0,净量,7,0),COLOR005500;
STICKLINE(净量<0,0,净量,5,0),COLOR009900;
STICKLINE(净量<0,0,净量,3,0),COLOR00BB00;
STICKLINE(净量<0,0,净量,1,0),COLOR00FF00;

STICKLINE(C<MAA AND 净量>0,净量,0,7,0 ),COLOR777777;
STICKLINE(C<MAA AND 净量>0,净量,0,5,0 ),COLOR999999;
STICKLINE(C<MAA AND 净量>0,净量,0,3,0 ),COLORBBBBBB;
STICKLINE(C<MAA AND 净量>0,净量,0,1,0 ),COLORFFFFFF;

DRAWTEXTABS(5,5,'※首之ジ');
DRAWTEXTABS(65,6,'农历：'+LMONTH+'月 初 '+LDAY),LINETHICK1,COLORWHITE;

{盘中预测}
今天成交额:=AMOUNT/10000;
昨天成交额:=REF(今天成交额,1);
图长度像素:=180*0.4;
昨天图长度:=180+图长度像素;
交易分钟数:=IF(CURRENTTIME>93000 AND CURRENTTIME<150000 AND DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,
IF(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,
IF(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);
预测今天:=今天成交额/交易分钟数*240;
今天图长度:=(预测今天/昨天成交额)*图长度像素+180;
目前成交量:=(今天成交额/昨天成交额)*图长度像素+180;
DRAWTEXTABS(5,20,'昨天金額：'+昨天成交额/1000+'亿'),COLOR00FFFF,LINETHICK1;
DRAWRECTABS(120,25,昨天图长度,30 ,RGB(0,255,0) ),COLOR6699FF;
DRAWRECTABS(120,35,目前成交量, 40 ,RGB(200,60,0) ),COLORFFFFFF;
DRAWTEXTABS(5,32,'预计今天：'+预测今天/1000+'亿'),COLOR2F73FF,LINETHICK1;
DRAWRECTABS(120,35,今天图长度,40 ,0 ),COLORFFFFFF;