飞狐主图指标-融胜轨道主图+MACD优化+工作线

{融胜轨道}
AA:=MA((2*CLOSE+HIGH+LOW)/4,5);
通1:=AA*102/100;
通2:=AA*(200-102)/100;
CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
DD:=DMA(CLOSE,CC);
上:(1+7/100)*DD,LINEDASHDOT,COLOR0099FF;
下:(1-7/100)*DD,LINEDASHDOT,COLOR0099FF;
中:(上+下)/2,LINETHICK0,COLOR0099FF;
顶:(1+14/100)*DD,LINETHICK2,COLORWHITE;
底:(1-14/100)*DD,LINETHICK2,COLORBLUE;
DRAWTEXT(SYSPARAM(1)=BARPOS and 顶,顶,'顶'+'\n'+NUMTOSTR(顶[SYSPARAM(1)],2)),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and 上,上,'上'+'\n'+NUMTOSTR(上[SYSPARAM(1)],2)),pxup8,colorwhite;
DRAWTEXT(SYSPARAM(1)=BARPOS and 中,中,'中'+'\n'+NUMTOSTR(中[SYSPARAM(1)],2)),pxup8,colorYellow;
DRAWTEXT(SYSPARAM(1)=BARPOS and 下,下,'下'+'\n'+NUMTOSTR(下[SYSPARAM(1)],2)),pxup8,colorwhite;
DRAWTEXT(SYSPARAM(1)=BARPOS and 底,底,NUMTOSTR(底[SYSPARAM(1)],2)+ '\n'+'底'),pxup8,colorred;

{MACD主升浪中轨变色}
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD := 2*(DIFF-DEA);

PARTLINE(DIFF<=0 OR MACD<=0,中),LINETHICK1,COLORGREEN;
PARTLINE(DIFF>0 and MACD>0,中),LINETHICK1,COLORRED;

{工作线}
A0:=(L+H+C*2)/4;
工作线:EMA(A0,14),LINETHICK0,COLORRED;
A2:=EMA(A0,25)COLORLIBLUE,LINETHICK0;
A1X:=(工作线-REF(工作线,1))/REF(工作线,1)*100,LINETHICK0;
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,LINETHICK0;
PARTLINE(A1X<0 AND A2X<0,工作线),LINETHICK2,COLORGREEN;
PARTLINE(A1X>=0,工作线),LINETHICK2,COLORRED;
PARTLINE(A1X<0,工作线),LINETHICK2,COLORGREEN;

{MACD\KDJ\RSI背离}
A1:=BARSLAST(ref(cross("macd.diff","macd.dea"),1));
B1:=ref(c,A1+1)>c and ref("macd.diff",A1+1)<"macd.diff" and cross("macd.diff","macd.dea");
DRAWTEXT(FILTER(B1>0,5),L*0.98,'M'),COLORGREEN;

A2:=BARSLAST(ref(cross("kdj.k","kdj.d"),1));
B2:=ref(c,A2+1)>c and ref("kdj.k",A2+1)<"kdj.k" and cross("kdj.k","kdj.d");
DRAWTEXT(FILTER(B2>0,5),L*0.98,'K'),COLORYELLOW;

A3:=BARSLAST(ref(cross("RSI.RSI1","RSI.RSI2"),1));
B3:=ref(c,A3+1)>c and ref("RSI.RSI1",A3+1)<"RSI.RSI1" and cross("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(B3>0,5),L*0.98,'R'),COLORCYAN;

C1:=BARSLAST(ref(cross("macd.dea","macd.diff"),1));
D1:=ref(c,C1+1)"macd.diff" and cross("macd.dea","macd.diff");
DRAWTEXT(FILTER(D1>0,5),H*1.03,'M'),COLOR0066FF;

C2:=BARSLAST(ref(cross("kdj.d","kdj.k"),1));
D2:=ref(c,C2+1)"kdj.k" and cross("kdj.d","kdj.k");
DRAWTEXT(FILTER(D2>0,5),H*1.03,'K'),COLORRED;

C3:=BARSLAST(ref(cross("RSI.RSI2","RSI.RSI1"),1));
D3:=ref(c,C3+1)"RSI.RSI1" and cross("RSI.RSI2","RSI.RSI1");
DRAWTEXT(FILTER(D3>0,5),H*1.03,'R'),COLORMAGENTA;

{千均一发元旦主图}
OO:=if(DATATYPE=6,ma(O,22),if(DATATYPE=7,ma(O,10),ma(O,6)));j:=STKINDI('','kdj.j',0,6);
CC:=if(DATATYPE=6,ma(c,22),if(DATATYPE=7,ma(c,10),ma(c,6)));hs:=vol/CAPITAL*100;
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));
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);
qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100;
DDX:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17;
DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;
bb:=(cross(j,0)and ((ddx>0 and ddy>0) or DDZ>400));
主:=qj1+qj2;散:=qj3+qj4;T0:=VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);
QJ11:=(HIGH+LOW)/2;QJ12:=EMA(QJ11,22);QJ13:=STD(QJ11,22);QJ14:=((QJ11-QJ12)/QJ13*100+200)/4;
QJ15:=(EMA(QJ14,5)-22)*1.56;QJ16:=SMA(QJ15,3,1);TJ1:=SMA(QJ16,3,1);TJ2:=3*QJ16-2.1*TJ1;
P:=SYSPARAM(1);
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;
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