通达信MACD金未加密选股指标公式源码

源码正文：

ma5:ema(C,5),COLOR00FF00,DOTLINE{XG51};
IF(MA5>REF(MA5,1),MA5,DRAWNULL),COLOR0077FF,LINETHICK3{XG51};
dif1:=WMA(CLOSE,5){XG51};
DIF2:=WMA(CLOSE,13){XG51};
macd:WMA((3*DIF1-2*DIF2),2),COLORFF9900,DOTLINE{XG51};
IF(MacD>REF(MACD,1),MACD,DRAWNULL),COLORWHITE,LINETHICK3{XG51};
BC1E:=IF(L=LLV(L,8*20),L,DRAWNULL){XG51};
BC2E:=CONst(BArslAST(BC1E=L))+1{XG51};
E:=CONST(IF(BC2E=1,L,REF(L,BC2E-1))){XG51};
DIFFK:=DIF1-DIF2{XG51};
DEAK:=WMA(DIFFK,8){XG51};
MACDK:=2*(DIFFK-DEAK){XG51};
STICKLINE(MACDK>0 AND MACDK>REF(MACDK,1),E+MACDK,E,2,0),COLOR0000FF{XG51};
STICKLINE(MACDK>0 AND MACDK<REF(MACDK,1),E+MACDK,E,2,0),COLORFF9900{XG51};
STICKLINE(MACDK<0,E+MACDK,E,2,0),COLORFF9900{XG51};
SJ:=WMA((C-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2){XG51};
ZJ:=WMA(0.667*REF(SJ,1)+0.333*SJ,2){XG51};
DRAWTEXT(crOSS(SJ,ZJ) AND SJ<30,L-0.05,'←低吸'),COLOR00FF99,LINETHICK2{XG51};
DRAWTEXT(CROSS(ZJ,SJ) AND SJ>70,H+0.05,'←高抛'),COLOR0044FF,LINETHICK2{XG51};
TC1:=IF(H=HHV(H,8*14),H,DRAWNULL){XG51};
TC2:=CONST(BARSLAST(TC1=H))+1{XG51};
UPPER:=CONST(IF(TC2=1,H,REF(H,TC2-1))){XG51};
BC1:=IF(L=LLV(L,8*20),L,DRAWNULL){XG51};
BC2:=CONST(BARSLAST(BC1=L))+1{XG51};
LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1))){XG51};
LP:=CURRBARSCOUNT<=BC2 AND L=LOWER{XG51};
HP:=CURRBARSCOUNT<=TC2 AND H=UPPER;{XG51};
STICKLINE(LP,L*0.992,L,13,0),COLORFF00FF{XG51};
STICKLINE(HP,H,H*1.005,13,0),COLOR00FF00{XG51};
X1:IF(CURRBARSCOUNT<=MAX(BC2,TC2),UPPER,DRAWNULL),COLOR89615F{XG51};
X2:IF(CURRBARSCOUNT<=MAX(BC2,TC2),LOWER,DRAWNULL),COLOR89615F{XG51};
X3:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.146,LOWER+(UPPER-LOWER)*0.146),DRAWNULL),COLOR89615F{XG51};
X4:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.191,LOWER+(UPPER-LOWER)*0.191),DRAWNULL),COLOR89615F{XG51};
X5:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.236,LOWER+(UPPER-LOWER)*0.236),DRAWNULL),COLOR89615F{XG51};
X6:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.382,LOWER+(UPPER-LOWER)*0.382),DRAWNULL),COLOR89615F{XG51};
X7:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.5,LOWER+(UPPER-LOWER)*0.5),DRAWNULL),COLOR89615F{XG51};
X8:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.618,LOWER+(UPPER-LOWER)*0.618),DRAWNULL),COLOR89615F{XG51};
X9:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.764,LOWER+(UPPER-LOWER)*0.764),DRAWNULL),COLOR89615F{XG51};
X10:IF(CURRBARSCOUNT<=MAX(BC2,TC2),IF(BC2>TC2,UPPER-(UPPER-LOWER)*0.809,LOWER+(UPPER-LOWER)*0.809),DRAWNULL),COLOR89615F{XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X1,'UPPER'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X2,'LOWER'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X3,'0.146'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X4,'0.191'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X5,'0.236'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X6,'0.382'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X7,'0.5'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X8,'0.618'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X9,'0.764'){XG51};
DRAWTEXT(CURRBARSCOUNT=MIN(BC2,TC2)+8,X10,'0.809'){XG51};
STICKLINE(CLOSE>= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE{XG51};
STICKLINE(CLOSE>= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR000066{XG51};
STICKLINE(CLOSE>= REF(CLOSE,1) ,OPEN,CLOSE,2.6,0 ),COLOR000099{XG51};
STICKLINE(CLOSE>= REF(CLOSE,1) ,OPEN,CLOSE,2,0 ),COLOR0000CC{XG51};
STICKLINE(CLOSE>= REF(CLOSE,1) ,OPEN,CLOSE,1.2,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE>= REF(CLOSE,1) ,OPEN,CLOSE,0.4,0 ),COLORCC66FF{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORGREEN{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLORCC0000{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.6,0 ),COLORFF4400{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2,0 ),COLORFF8800{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.2,0 ),COLORFFCC00{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.4,0 ),COLORGREEN{X!G^5~1!C!N!{};

源码正文：

M:=3;N:=20{XG51};
A1:=REF(C,1){XG51};
A2:=DCLOSE{XG51};
A3:=(A2-A1)/A1*100{XG51};
东方启明星:=A3-REF(A3,1){XG51};
备钱出击线:=9.8{XG51};
当头炮:=crOSS(东方启明星,备钱出击线){XG51};
A11:=REF(V,1){XG51};
A21:=Dvol{XG51};
A31:=A21/A11{XG51};
东方量能星:=A31-REF(A31,1){XG51};
备钱出击线1:=500{XG51};
当头炮量能:=CROSS(东方量能星,备钱出击线1){XG51};
A12:=REF(C,1){XG51};
A22:=DCLOSE{XG51};
A32:=(A22-A12)/A12*100{XG51};
东方动能星:=A32*VOL/10000{XG51};
累计动能:=ema(Ema(东方动能星,M),N)*N{XG51};
十日均能:=MA(累计动能,10){XG51};
difF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9){XG51};
macdYJ:=DIFF>DEA{XG51};
QMXYJ:当头炮 AND 当头炮量能 AND 十日均能>0 AND MacDYJ{X~G.5~1~C~N~{};