成交量自用

(2012-03-31 18:10:20)作者：大鹅

VOL,VOLSTICK;
volmA5:eMA(VOL,M1)/0.5,colorwhite;
volma10:=ema(VOL,10)/0.5;
partline(volma10,volma10>=ref(volma10,1),rgb(255,0,0),volma10<ref(volma10,1),rgb(0,255,0)),linethick4;
IF(CROSS(0.9,1/VOL*1000>0.01 AND "KDJ.J"<0),VOL*5,0),COLORYELLOW,LINETHICK2;

volMA13:=MA(V,30)/0.5;

{倍量柱：今量是昨量的2倍，且大于五日均量的10%，收阳线};
涨幅:=vol;
倍量柱:if(v>ref(v,1)*2 and 涨幅>0 and v>ma(v,5)*1.1,1,0),linethick0,colorred,precis0;
STICKLINE(倍量柱,0,v,6,0),colorred;
DRAWTEXT(倍量柱=1,(v * 1.29),'倍'),linethick1,ALIGN1,coloryellow;

{今量是30日中最大量};
高量:hhv(VOL,30)=VOL,linethick0,color9400D3,precis0;
stickline(高量,0,v,6,0),color9400D3;
DRAWTEXT(高量=1,(v * 1.49),'高'),linethick1,ALIGN1,coloryellow;

{今量是100日内最低量};
百地量:LlV(VOL,100)=VOL,COLORwhite,pRECIS0;
stickline(百地量,0,v,6,0),COLORwhite,pRECIS0;
DRAWTEXT(百地量=1,(v * 2.49),'百'),linethick1,ALIGN1,coloryellow;

{今量是30日内最低量};
三十地量:LlV(VOL,30)=VOL,pRECIS0,COLORFFDE00;
stickline(三十地量,0,v,6,0),colorwhite;
DRAWTEXT(三十地量=1,(v * 1.99),'地'),linethick1,ALIGN1,coloryellow;
{vol}
L1:=(CLOSE-LLV(LOW,6))/(HHV(HIGH,6)-LLV(LOW,6))*100;
龙Ｋ:=SMA(L1,3,1)*100;
凤Ｄ:=SMA(龙Ｋ,3,1);
NN:=120;
HH:=HHV(AMOUNT,NN);
LL:=LLV(AMOUNT,NN);
RCC:=hh*0.9-(hh-ll)*0.5;
RHL:=RCC;
HLMAX:=hh;
HLMIN:=ll;
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=(100-0)/2*1.3;
HLMN4:=(100-0)/1*1.3;
fillrgn(((龙Ｋ-HLMN3)*HLMN2/HLMN4+HLMN1)/69000,((凤Ｄ-HLMN3)*HLMN2/HLMN4+HLMN1)/69000,((龙Ｋ-HLMN3)*HLMN2/HLMN4+HLMN1)>((凤Ｄ-HLMN3)*HLMN2/HLMN4+HLMN1),RGB(228,402,199),((龙Ｋ-HLMN3)*HLMN2/HLMN4+HLMN1)<((凤Ｄ-HLMN3)*HLMN2/HLMN4+HLMN1),RGB(132,189,168));