|
MA5:MA(VOL,5),COLORffeebb;
{MA10:MA(VOL,10),COLOr028ce8,LINETHICK1;}
MA35:MA(VOL,40),COLORgreen,LINETHICK1;
MA135:MA(VOL,120),COLORff6600,LINETHICK1;
DRAWTEXT(CROSS(5,120),CROSS(5,120),'*'),COLORYELLOW;
{预测量2}
今天成交额:=AMOUNT/10000;
昨天成交额:=REF(今天成交额,1);
图长度像素:=800*0.2;{2条量柱在图中的比例长度}
昨天图长度:=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;
{线条宽度}
DRAWRECTABS(180,28,昨天图长度,22 ,RGB(0,85,189) );
DRAWRECTABS(180,14,今天图长度, 8 ,0 ),ColorFFFFFF;
DRAWRECTABS(180,14,目前成交量, 8 ,RGB(200,60,0) ),ColorFFFFFF;
DRAWTEXTABS(130,4,'预 测：'),Color003ccb,LINETHICK1;
DRAWTEXTABS(130,18,'昨 天：'),Colorffaa00,LINETHICK1;
{虚拟成交量2■■■}
{Varr1:=DYNAINFO(17)*REF(MA(VOL,5),1);
Varr2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
STICKLINE(Varr2,Varr1,0,1,0),colorff9900;}
{虚拟成交量3■■■}
CS010:=DYNAINFO(7);
CS020:=DYNAINFO(17);
CS030:=DYNAINFO(10);
CS040:=REF(MA(VOL,5),1);
{预测换手率:IF(CS010=CLOSE,MAX(VOL,CS020*CS040)/CAPITAL*100,0),COLORRED,LINETHICK0,PRECIS2;}
{换手率:(VOL/CAPITAL*100),LINETHICK0,PRECIS2,COLORYELLOW;}
虚拟量:=IF(CS010=CLOSE AND CS030=AMOUNT,MAX(VOL,CS020*CS040),0);
STICKLINE(CS010=CLOSE AND CS030=AMOUNT,VOL,MAX(VOL,CS020*CS040),4,0),COLORGRAY,PRECIS0;
{成交量:VOL,VOLSTICK,COLORWHITE,PRECIS0;}
{笑窘的}
AAd:=SUMBARS(VOL,CAPITAL);
低地量:IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AAd)/3) ,LINETHICK0,coloryellow;
STICKLINE(低地量,VOL,0,7,0),color00ddDD;
换手:= VOL/CAPITAL*100;
STICKLINE(换手<=0.5,0, v,4 ,1) ,colorffeebb; {白}
STICKLINE(换手>=0.5and 换手<1,0,v,4,1),color808080; {灰地量}
STICKLINE(换手>=1 and 换手<2,0, v,4,1),color007b00; {绿低靡}
STICKLINE(换手>=2 and 换手<3,0, v,4,1),color8080ff; {淡红温和}
STICKLINE(换手>=3 and 换手<5,0, v,4,1),color0000ff; {大红活跃}
STICKLINE(换手>=5 and 换手<10,0, v,4,1),color0087ff; {深黄带量}
STICKLINE(换手>=10 and 换手<15,0, v,4,1),color00ccff;{大黄放量}
STICKLINE(换手>=15 and 换手<20,0, v,4,1),color9400d3;{巨量}
STICKLINE(换手>20,1, v,4 ,0) ,color9400d3; {需怪异magenta}
{市盈率:DYNAINFO(39),volstick,COLORCCBBFF;}
{穿透率}{PAS}{:(WINNER(C)-REF(WINNER(C),1))/(V/CAPITAL),LINETHICK0,COLORffcc00;}
{CYQKL:(WINNER(C)-WINNER(O))*100,LINETHICK0,COLORmagenta;}
流通盘:capital/1000000 ,colorffffff;
穿透率{PAS}:(WINNER(C)-REF(WINNER(C),1))/(V/CAPITAL),LINETHICK0,COLORgreen;
CYQKL:(WINNER(C)-WINNER(O))*100,LINETHICK0,COLORFFb5ff;
涨幅:((close-REF(close,1))/REF(close,1))*100, COLOrffeebb;{0033ff橙}
{换手率:V/CAPITAL*100,LINETHICK0,COLORffccff;}
获利盘:WINNER(C)*100,colorwhite,LINETHICK0;
{34日内地量换手}
AaA:=V;
BbB:=CAPITAL;
换手:=AaA*100/BbB;
当日换手:=换手;{VOLSTICK;}
{STICKLINE(换手>10 AND 换手>REF(换手,1),换手,换手*0.7,7,0),COLORYELLOW;}
{STICKLINE(换手>REF(换手,1)*2,换手,换手*0.85,7,0),COLORred;}
{MA5:MA(换手,5);}
{MA10:MA(换手,10);}
地量换手:=当日换手<LLV(当日换手,34)*1.001;
{STICKLINE(地量换手>0,0,当日换手/2,2000,0),COLORyellow;}{紫蓝FF00FF};
DRAWTEXT(CROSS(地量换手,1),10000,'34'),COLORffeebb;{青白ffeebb}
{倍量以上白柱}
{VOLUME:VOL,VOLSTICK;}
AAA:=VOL>REF(V,1)*1.9;
{AA1:=VOL<REF(LLV(VOL,13),1);
AA2:=VOL<REF(LLV(VOL,55),1);}
STICKLINE(AAA,0,V,1,0),COLORwhite;
９０％集中度:(COST(95)-COST(5))/(COST(95)+COST(5))*100,colorffffff,LINETHICK0;
{买卖成交量比例解盘}
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主动卖盘:=IF(CLOSE>OPEN,AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL/2));
买卖比:=主动买盘/主动卖盘;
DRAWTEXTABS(15,18,'买卖盘比 '+买卖比),Colorffffff,LINETHICK1;
{DRAWTEXTABS(15,4,'换 手 率 '+换手率),Colorffffff,LINETHICK1;}
分钟:=if(currenttime<=93000,0,
if(currenttime<=113000,(INTPART((TIMETOT0(currenttime)-34200)/60)),
if(currenttime>113000 and currenttime<=130000,120,
if(currenttime>1300000 and currenttime<=150000,(INTPART((TIMETOT0(currenttime)-34200)/60))-90,
if(currenttime>150000,240,(INTPART((TIMETOT0(currenttime)-34200)/60))-90)))));
量比:=VOL/分钟/(SUM(REF(VOL,1),5)/1200);
DRAWTEXTABS(15,4,'量 比 '+量比),Colorffffff,LINETHICK1; |
