飞狐融胜轨道+MACD优化主图选股指标公式源码

飞狐融胜轨道+MACD优化主图选股指标公式源码

源码正文：

AA:=ma((2*CLOSE+HIGH+LOW)/4,5){XG51};
通1:=AA*102/100{XG51};
通2:=AA*(200-102)/100{XG51};
CC:=Abs((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20){XG51};
DD:=dma(CLOSE,CC){XG51};
上:(1+7/100)*DD,LINEDASHDOT,COLOR0099FF{XG51};
下:(1-7/100)*DD,LINEDASHDOT,COLOR0099FF{XG51};
中:(上+下)/2,LINETHICK0,COLOR0099FF{XG51};
逃顶:(1+14/100)*DD,LINETHICK2,COLORRED{XG51};
抄底:(1-14/100)*DD,LINETHICK2,COLORYELLOW{XG51};
difF := ema(CLOSE,12) - EMA(CLOSE,26){XG51};
DEA  := EMA(DIFF,9){XG51};
macd := 2*(DIFF-DEA){XG51};
PARTLINE(DIFF<=0 OR MacD<=0,中),LINETHICK2,COLORCYAN{XG51};
PARTLINE(DIFF>0 and MACD>0,中),LINETHICK2,COLORWHITE{XG51};
OO:=if(DATATYPE=6,ma(O,22),if(DATATYPE=7,ma(O,10),ma(O,6)));j:=stKINDI('','kdj.j',0,6){XG51};
CC:=if(DATATYPE=6,ma(c,22),if(DATATYPE=7,ma(c,10),ma(c,6)));hs:=vol/CAPITAL*100{XG51};
jj:=(H+L+C)/3;qj0:=VOL/IF(H=L,4,H-L);qj1:=IF(CAPITAL=0,qj0*(jj-MIN(C,O)),qj0*(MIN(O,C)-L)){XG51};
qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*(jj-MIN(C,O)));qj3:=qj0*(H-MAX(O,C));qj4:=qj0*(MAX(C,O)-jj){XG51};
qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100{XG51};
ddx:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17{XG51};
DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100{XG51};
bb:=(cross(j,0)and ((ddx>0 and ddy>0) or DDZ>400)){XG51};
主:=qj1+qj2;散:=qj3+qj4;T0:=VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1){XG51};
QJ11:=(HIGH+LOW)/2;QJ12:=EMA(QJ11,22);QJ13:=STD(QJ11,22);QJ14:=((QJ11-QJ12)/QJ13*100+200)/4{XG51};
QJ15:=(EMA(QJ14,5)-22)*1.56;QJ16:=SMA(QJ15,3,1);TJ1:=SMA(QJ16,3,1);TJ2:=3*QJ16-2.1*TJ1{XG51};
P:=SYSPARAM(1){XG51};
Q6:=atan((MA(C,5)/ref(MA(C,5),1)-1)*100)*57.3;Q2:=atan((MA(C,13)/ref(MA(C,13),1)-1)*100)*57.3{XG51};
Q1:=atan((MA(C,23)/ref(MA(C,23),1)-1)*100)*57.3;Q:=atan((MA(C,34)/ref(MA(C,34),1)-1)*100)*57.3{XG51};
Q3:=atan((MA(C,68)/ref(MA(C,68),1)-1)*100)*57.3;Q5:=atan((MA(C,250)/ref(MA(C,250),1)-1)*100)*57.3{XG51};
T1:=VOL<REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);T2:=VOL>REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1){XG51};
T3:=VOL<REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);T4:=主>REF(主,1) and 主>散 and if(CAPITAL=0,hs>1.3,hs>5){XG51};
T5:=主<REF(主,1) and 主>散 and if(CAPITAL=0,hs>0.5 and hs<1.3,hs>3 and hs<=5){XG51};
T6:=主>REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3 and hs>0.5,hs<5 and hs>3){XG51};
T7:=主<REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3,hs<3 and hs>=1){XG51};
DRAWTEXTEX(CLOSE,1,0,100,'5 日线夹角: '+NUMTOSTR(Q6[P],2)+' 度'),COLORAAAAAA{XG51};
DRAWTEXTEX(CLOSE,1,220,100,'13日线夹角: '+NUMTOSTR(Q2[P],2)+' 度'),COLORAAAAAA{XG51};
DRAWTEXTEX(CLOSE,1,450,100,'22日线夹角: '+NUMTOSTR(Q1[P],2)+' 度'),COLORAAAAAA{XG51};
DRAWTEXTEX(CLOSE,1,0,150,'34日线夹角: '+NUMTOSTR(Q[P],2)+' 度'),COLORAAAAAA{XG51};
DRAWTEXTEX(CLOSE,1,220,150,'68日线夹角: '+NUMTOSTR(Q3[P],2)+' 度'),COLORAAAAAA{XG51};
DRAWTEXTEX(CLOSE,1,450,150,'250日线夹角: '+NUMTOSTR(Q5[P],2)+' 度'),COLORAAAAAA{XG51};
DRAWTEXTEX(CLOSE,1,20,0,'上涨家数:'+NUMTOSTR(INDEXADV,0)+' 家'),COLOR0066FF{XG51};
DRAWTEXTEX(CLOSE,1,180,0,'下跌家数:'+NUMTOSTR(INDEXDEC,0)+' 家'),COLOR99FF99{XG51};
DRAWTEXTEX(CLOSE,1,340,0,'平盘家数:'+NUMTOSTR(PINGPAN,0)+' 家'),COLOREEEEEE{XG51};
DRAWTEXT(bb,L*0.98,'弄\n点\n钱\n玩\n玩'),COLOR00FFFF{XG51};
DRAWTEXTEX(T0,1,500,0,'成交大于昨日,有继续增大趋势'),Color00FFFF{XG51};
DRAWTEXTEX(T1,1,500,0,'成交小于昨日,但有放大迹象'),Color00ddfF{XG51};
DRAWTEXTEX(T2,1,500,0,'成交大于昨日,但有缩小迹象'),ColorFFFF00{XG51};
DRAWTEXTEX(T3,1,500,0,'成交小于昨日,且有缩小迹象'),ColorFFbb00{XG51};
DRAWTEXTEX(T4,1,760,0,'资金比较活跃,大资金活动明显'),Color00FFff{XG51};
DRAWTEXTEX(T5,1,760,0,'资金开始积极,大资金温和进场'),Color00DDff{XG51};
DRAWTEXTEX(T6,1,760,0,'散乱资金积极,散户行为明显'),ColorFFDD00{XG51};
DRAWTEXTEX(T7,1,760,0,'交易频率上升,散户相当积极'),ColorFFFF00{XG51};
DRAWTEXTEX(CLOSE,1,20,50,STKLABEL+' '+STKNAME+' '+STRLEFT(BLKNAME,40)),Color00AAAA{XG51};
a:=f10FIND('【十大流通股东】:',1);a0:=F10FIND('主要指标:',1);c0:=F10FIND('控盘情况:',a0){XG51};
hs:=F10FIND('总户数',500){XG51};
q1:=F10FIND('200',hs+40);q2:=F10FIND('200',q1+40){XG51};
g1:=LTRIM(F10TEXT(q1+14,10));g2:=LTRIM(F10TEXT(q2+14,10)){XG51};
gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);qq1:=gd1-gd2;qq2:=gd1-gd2{XG51};
DRAWTEXTex(qq1<0,1,820,960,'市场筹码较上期集中'),color00EEFF{XG51};
DRAWTEXTex(qq2>0,1,820,960,'市场筹码较上期分散'),colorFFAA00{XG51};
QSW:=F10FIND('按照资产负债率排名',5000){XG51};
QSZ:=F10FIND('按照每股收益排名',5000){XG51};
DRAWTEXTEX(c,1,10,900,'按照每股收益排名,'+F10TEXT(QSz+20,0)){XG51};
DRAWTEXTEX(c,1,10,950,'按照资产负债率排名,'+F10TEXT(QSW+22,0)){X^G=5~1^C^N^{};