| 
 
 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;
 {預(yù)測(cè)量2}
 今天成交額:=AMOUNT/10000;
 昨天成交額:=REF(今天成交額,1);
 圖長(zhǎng)度像素:=800*0.2;{2條量柱在圖中的比例長(zhǎng)度}
 昨天圖長(zhǎng)度:=180+圖長(zhǎng)度像素;
 交易分鐘數(shù):=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);
 預(yù)測(cè)今天:=今天成交額/交易分鐘數(shù)*240;
 今天圖長(zhǎng)度:=(預(yù)測(cè)今天/昨天成交額)*圖長(zhǎng)度像素+180;
 目前成交量:=(今天成交額/昨天成交額)*圖長(zhǎng)度像素+180;
 {線條寬度}
 DRAWRECTABS(180,28,昨天圖長(zhǎng)度,22 ,RGB(0,85,189) );
 DRAWRECTABS(180,14,今天圖長(zhǎng)度, 8 ,0 ),ColorFFFFFF;
 DRAWRECTABS(180,14,目前成交量, 8 ,RGB(200,60,0) ),ColorFFFFFF;
 DRAWTEXTABS(130,4,'預(yù) 測(cè):'),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);
 {預(yù)測(cè)換手率: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日內(nèi)地量換手}
 AaA:=V;
 BbB:=CAPITAL;
 換手:=AaA*100/BbB;
 當(dāng)日換手:=換手;{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);}
 地量換手:=當(dāng)日換手<LLV(當(dāng)日換手,34)*1.001;
 {STICKLINE(地量換手>0,0,當(dāng)日換手/2,2000,0),COLORyellow;}{紫藍(lán)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;
 90%集中度:(COST(95)-COST(5))/(COST(95)+COST(5))*100,colorffffff,LINETHICK0; {買賣成交量比例解盤}
 AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
 主動(dòng)買盤:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
 主動(dòng)賣盤:=IF(CLOSE>OPEN,AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL/2));
 買賣比:=主動(dòng)買盤/主動(dòng)賣盤;
 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;
 |