自己在用的VOL源码

换手:if(CAPITAL>0,v/CAPITAL*100,v),LINETHICK,PRECISION2;
hs:=换手;
k:=sma((c-llv(l,9))/(hhv(h,9)-llv(l,9))*100,3,1),COLOR00FF00,LINETHICK0,PRECISION2;
d:=sma(k,3,1),COLORFFFFFF,LINETHICK0,PRECISION2;
j:=3*k-2*d;
hlp:=sma(WINNER(c)*100,3,1),COLOR2588FF,LINETHICK0,PRECISION2;



nn:=SYSPARAM(3)-SYSPARAM(2)+1;
hh:=HHV(v,nn);
ll:=LLV(v,nn);
最高:=hh[SYSPARAM(3)];
最低:=ll[SYSPARAM(3)];
RCC:=最高*0.9-(最高-最低)*0.5;
rhl:=rcc;
HLMAX:=MAX(最高,最低);
HLMIN:=MIN(最高,最低);
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=(100-0)/2*1.3;
HLMN4:=(100-0)/1*1.3;
限制显示K线面积:=RANGE(BARPOS,SYSPARAM(3)-250,SYSPARAM(3)+1);
FILLRGN(限制显示K线面积,((100-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((80-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),color333333;
FILLRGN(限制显示K线面积,((0-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((25-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),color333333;
FILLRGN(限制显示K线面积 and hlp>80,((hlp-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((80-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),Color9A5791;
PARTLINE(限制显示K线面积,((25-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),COLOR888888;
PARTLINE(限制显示K线面积,((50-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),COLOR888888;
PARTLINE(限制显示K线面积,((80-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),COLOR888888;

{最佳买入时机}
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
最佳买入:=(AV + NEWVOL);
STICKLINE(CROSS(最佳买入,0),((85-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((100-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,6,0),COLORRED;

{百万测底}
趋势线:= 3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),LINETHICK2,COLORRED,PRECISION0;
准备:IF(趋势线<=5,((65-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((100-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),COLORffffff;
VARA2:=LLV(MA(LOW,3),3);
VARA3:=HHV(MA(HIGH,3),3);
KK:=EMA((CLOSE-VARA2)/(VARA3-VARA2)*100,4)*0.7+20,COLORFF00FF,LINETHICK2;
DD:=EMA(0.667*REF(KK,1)+0.333*KK,2)*0.7+20,COLORFFFF00;
KK2:=EMA(ABS(VARA2-CLOSE)/ABS(VARA2-VARA3)*100,4)*0.7+20;
DD2:=EMA(0.667*REF(KK2,1)+0.333*KK2,2)*0.7+20;
提示:IF((KK2-KK)*2.5>35,((75-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((100-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),LINETHICK2,COLORff00ff,PRECISION0;


Xxjj:=LLV("kdj.j",2)=LLV("kdj.j",8);
时机: IF(CROSS("kdj.j",1) and ref(xxjj,1),((90-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((100-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),LINETHICK2,COLORYELLOW,PRECISION0;
地量买点:=CROSS(0.9,1/VOL*1000>0.01 AND "KDJ.J"<0);
STICKLINE(地量买点,((0-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((20-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,9,0),COLORff0080,PRECISION0;

SJ:=if(CURRENTTIME>93000 and CURRENTTIME<150000,
if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,
if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);
预测额:IF(BARSTATUS=2,(v/SJ*240),v),COLOR00FFFF,LINETHICK;
STICKLINE(BARSTATUS=2,0,预测额,9,1),COLOREEEEFF,LINEDOT;

地量:=IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),换手<MA(换手,SUMBARS(V,CAPITAL))/3) ,LINETHICK0;
极地量:if(换手<MA(换手,SUMBARS(VOL,CAPITAL))/4,1,0),LINETHICK0;
连续地量:=COUNT(地量,3)>=3 AND COUNT(极地量,3)>=1;
一字涨板:=c>=ref(c,1)*1.01 and c=o and h=l;一字跌板:=c*1.1>=ref(c,1) and c=o and h=l;
无一字板:=not(一字涨板 or 一字跌板);
STICKLINE(地量 and 无一字板 and (c-ma(c,5))/ma(c,5)*100<0,v,0,8,0),colorff0080;
STICKLINE(地量 and 无一字板 and (c-ma(c,5))/ma(c,5)*100<0,v,0,8,0),color00ffff;
STICKLINE(c>o,v,0,6,1),colorred;
STICKLINE(c<=o,v,0,6,1),colorfff333;
AA:=VOL>=REF(V,1)*1.91 and C>REF(C,1);
AA1:=VOL<REF(LLV(VOL,21),1) and 无一字板;
AA2:=VOL<REF(LLV(VOL,55),1) and 无一字板;
AA3:=ABS(VOL-REF(VOL,1))/REF(VOL,1)<=0.05 and 无一字板;
STICKLINE(AA,0,v,6,0),COLORred;
STICKLINE(AA1,0,v/2,6,0),COLORGREEN;
STICKLINE(AA2,0,v/2,6,0),COLORff00ff;
STICKLINE(AA3,0,v,4,0),COLORWHITE;

地线:hhv(v,60)/6,COLOR00ff00,LINETHICK2,PRECISION0;
PARTLINE(限制显示K线面积,((hlp-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),color2588ff,LINETHICK1,LINEDOT;
PARTLINE(限制显示K线面积,(("kdj.k"-HLMN3)*HLMN2/HLMN4+HLMN1)+RHL),COLORFFF111;
PARTLINE(限制显示K线面积,(("kdj.d"-HLMN3)*HLMN2/HLMN4+HLMN1)+RHL),COLOR00ff00;
PARTLINE(限制显示K线面积,(("kdj.j"-HLMN3)*HLMN2/HLMN4+HLMN1)+RHL),COLORFF1111;
mv35:ma(v,35),colorffffff,PRECISION0;
mv10:ma(v,10),color00ffff,PRECISION0;
mv5:ma(v,5),colorff00ff,PRECISION0;