|
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; |
