自己在用的VOL(飞狐)_指标之家—公式指标程序代码分享—公式指标网

ihzx 发表于 2021-8-21 12:52:10

自己在用的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; 
最低:=ll; 
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;

页: [1]

指标之家—公式指标程序代码分享—公式指标网's Archiver

自己在用的VOL(飞狐)