 | |  |  | 以下是自己在用的VOL[精品]
VOL指标是我最爱，几经修改，融合了很多高手的理念，现全盘奉献出来，指标只是一种股价轨迹，参考下还可以，希望对同学们带来方便和帮助。指标叠加了KDJ和一些抄底信号，我命名为V神，因为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线面积andhlp>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)andref(xxjj,1),((90-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((100-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl),LINETHICK2,COLORYELLOW,PRECISION0;
地量买点:=CROSS(0.9,1/VOL*1000>0.01AND"KDJ.J"<0);
STICKLINE(地量买点,((0-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,((20-HLMN3)*HLMN2/HLMN4+HLMN1)+rhl,9,0),COLORff0080,PRECISION0;
SJ:=if(CURRENTTIME>93000andCURRENTTIME<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)>=3ANDCOUNT(极地量,3)>=1;
一字涨板:=c>=ref(c,1)*1.01andc=oandh=l;一字跌板:=c*1.1>=ref(c,1)andc=oandh=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.91andC>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.05and无一字板;
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;
| |  | |  |
|
