自上次“股龙之水”老师发了一个《金龙喜舞》精华分时指标公式，许多使用飞狐软件的朋友不能使用，感觉比较可惜，近几天我单位提前放假，相对有一些时间，帮大家改了一下，并结合我自己常用的分时主图，做了一个完整的飞狐分时指标公式，权当新春礼物送给大家，祝大家新春快乐，万事顺意！同时，在此感谢“股龙之水”老师的指标创意！！！
C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
- {公式名称——自定}
- {分时布林}
- tt:=BARSCOUNT(C);
- zz:=SUM(AMOUNT,tt)/SUM(VOL*100,tt);
- zz1:=BETWEEN(C/zz,1.05,0.95);
- 均线:=IF(zz1=0,MA(C,TT),zz);
- 上轨:均线 + AVEDEV(C,tt)*2,Color0000FF;
- 下轨:均线 - AVEDEV(C,tt)*2,Color00FF00;
- {开盘后前45分钟高点提示}
- k1:=HHV(C,0);
- t1:=BARSLAST(OPENMINUTES(TIME)<=45);
- 高点线:REF(k1,t1),LINEDOT,ColorCACA00;
- DRAWICON(OPENMINUTES(TIME)>45 and CROSS(CLOSE,高点线+0.001),高点线,4);
- DRAWTEXTEX(1,1,20,20,'★分时布林上轨线价格:'+NUMTOSTR(上轨,2)+'元'),Color0000FF;
- DRAWTEXTEX(1,1,20,90,'★分时布林下轨线价格:'+NUMTOSTR(下轨,2)+'元'),Color00FF00;
- DRAWTEXTEX(1,1,20,160,'★开盘45分钟高点价格:'+NUMTOSTR(高点线,2)+'元'),ColorCACA00;
- {坐标设置计算共用数据}
- rc:=DYNAINFO( 3);
- q:=DATACOUNT;
- hh:=DYNAINFO(5);
- LL:=DYNAINFO(6);
- f:=MAX(hh-rc,rc-LL);
- ff:=f/rc*100;
- {对应大盘线}
- q1h:=IF(ff<1,0.9898*rc,rc-f*1.02);
- q1l:=IF(ff<1,0.9798*rc,rc-2*f*1.016);
- R:=INDEXC;
- Rh:=hhv(r,0);
- RL:=LLv(r,0);
- Rb:=(q1h-q1l)/(RH[q]-RL[q]);
- Ry:=(q1h+q1l-rb*(RH[q]+RL[q]))/2;
- 大盘线:r*rb+ry,Colorcc99ff;
- DRAWTEXT(ISLASTBAR,大盘线,'大盘线'),COLORWHITE;
- {金龙喜舞}
- q2h:=IF(ff<1,0.9797*rc,rc-2*f*1.016);
- q2l:=IF(ff<1,0.9697*rc,rc-3*f*1.011);
- q2h,color0000cc,LINETHICK2;
- FILLRGN(1,q2h,q2l),COLORBLACK;
- a1:=(EMA(CLOSE,10)+EMA(CLOSE,32))/2;
- mh:=HHV(a1,0);
- mL:=LLV(a1,0);
- mb:=(q2h-q2l)/(mH[q]-mL[q]);
- my:=(q2h+q2l-mb*(mH[q]+mL[q]))/2;
- QZS:=a1*mb+my;
- VAR1:=(EMA(CLOSE,30)+EMA(CLOSE,72))/2*mb+my;
- VAR1_60:=EMA((EMA(CLOSE,30)+EMA(CLOSE,72))/2,60)*mb+my;
- VAR2:=(EMA(VOL,10)+EMA(VOL,32))/2*mb+my;
- VAR3:=(VAR1+VAR2)/2;
- VAR4:=EMA(VAR3,30);
- VAR5:=EMA(VAR3,60);
- VAR6:=EVERY(VAR1>REF(VAR1,1),5) AND EVERY(VAR4>REF(VAR4,1),5);
- FILLRGN(VAR1>VAR1_60,VAR1,VAR1_60),coloraa;
- FILLRGN(VAR1<VAR1_60,VAR1,VAR1_60),Color008000;
- 牵引线:VAR1,COLORYELLOW;
- 趋势关注:=IF(CROSS(VAR1,VAR1_60) AND VAR6,1,0);
- 量价关注:=IF(CROSS(VAR3,VAR5) AND VAR6,1,0);
- 冲击量:=IF(VAR3>VAR5 AND VAR6,1,0);
- STICKLINE(QZS>VAR1,QZS,VAR1,2,0),COLORFF00FF;
- STICKLINE(冲击量=1,QZS,VAR1,2,0),COLORYELLOW;
- DRAWICON(趋势关注=1 ,VAR1_60,1);
- DRAWTEXT(量价关注=1 ,VAR1_60,'L0V'),COLORWHITE;
