通达信MACD顶底钝化未加密选股指标公式源码

源码正文：

dif:ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:EMA(DIF,9){XG51};
macd:(DIF-DEA)*2,COLORstICK{XG51};
SWIFTK:='MacD.MACD' * REF('MACD.MACD',1)<0{XG51};
EARLYDAY_1:=BArslAST(REF(SWIFTK,1)){XG51};
EARLYDAY_2:=BARSLAST(REF(SWIFTK,2)){XG51};
EARLYDAY_3:=BARSLAST(REF(SWIFTK,3)){XG51};
EARLYDAY_4:=BARSLAST(REF(SWIFTK,4)){XG51};
EARLYDAY_5:=BARSLAST(REF(SWIFTK,5)){XG51};
CLOW_0:=REF(LLV(MIN(O,C),EARLYDAY_5-EARLYDAY_4-1),EARLYDAY_4+2){XG51};
CLOW_1:=REF(LLV(MIN(O,C),EARLYDAY_3-EARLYDAY_2-1),EARLYDAY_2+2){XG51};
CLOW_2:=LLV(MIN(O,C),EARLYDAY_1){XG51};
DIFFLOW_0:=REF(LLV('MACD.DIFF',EARLYDAY_5-EARLYDAY_4-1),EARLYDAY_4+2){XG51};
DIFFLOW_1:=REF(LLV('MACD.DIFF',EARLYDAY_3-EARLYDAY_2-1),EARLYDAY_2+2){XG51};
DIFFLOW_2:=LLV('MACD.DIFF',EARLYDAY_1){XG51};
钝化L:=
'MACD.MACD'<0 AND (
(INTPART(DIFFLOW_2)-INTPART(DIFFLOW_1)>0 AND CLOW_1>CLOW_2) OR
(INTPART(DIFFLOW_2)-INTPART(DIFFLOW_0)>0 AND CLOW_0>CLOW_2)
){XG51};
结构L:=
'MACD.MACD'<0 AND INTPART('MACD.DIFF')>REF(INTPART('MACD.DIFF'),1) AND (
(INTPART(DIFFLOW_2)-INTPART(DIFFLOW_1)>0 AND CLOW_1>CLOW_2 AND INTPART('MACD.DIFF')>INTPART(DIFFLOW_2)) OR
(INTPART(DIFFLOW_2)-INTPART(DIFFLOW_0)>0 AND CLOW_0>CLOW_2 AND INTPART('MACD.DIFF')>INTPART(DIFFLOW_2))
){XG51};
DRAWTEXT(钝化L,'MACD.DIFF','L'){XG51};
DRAWICON(结构L,'MACD.DIFF',4){XG51};
CHIGH_0:=REF(HHV(MAX(O,C),EARLYDAY_5-EARLYDAY_4-1),EARLYDAY_4+2){XG51};
CHIGH_1:=REF(HHV(MAX(O,C),EARLYDAY_3-EARLYDAY_2-1),EARLYDAY_2+2){XG51};
CHIGH_2:=HHV(MAX(O,C),EARLYDAY_1){XG51};
DIFFHIGH_0:=REF(HHV('MACD.DIFF',EARLYDAY_5-EARLYDAY_4-1),EARLYDAY_4+2){XG51};
DIFFHIGH_1:=REF(HHV('MACD.DIFF',EARLYDAY_3-EARLYDAY_2-1),EARLYDAY_2+2){XG51};
DIFFHIGH_2:=HHV('MACD.DIFF',EARLYDAY_1){XG51};
钝化H:=
'MACD.MACD'>0 AND (
(INTPART(DIFFHIGH_2)-INTPART(DIFFHIGH_1)<0 AND CHIGH_1<CHIGH_2) OR
(INTPART(DIFFHIGH_2)-INTPART(DIFFHIGH_0)<0 AND CHIGH_0<CHIGH_2)
){XG51};
结构H:=
'MACD.MACD'>0 AND INTPART('MACD.DIFF')<REF(INTPART('MACD.DIFF'),1) AND(
(INTPART(DIFFHIGH_2)-INTPART(DIFFHIGH_1)<0 AND CHIGH_1<CHIGH_2 AND INTPART('MACD.DIFF')<INTPART(DIFFHIGH_2)) OR
(INTPART(DIFFHIGH_2)-INTPART(DIFFHIGH_0)<0 AND CHIGH_0<CHIGH_2 AND INTPART('MACD.DIFF')<INTPART(DIFFHIGH_2))
){XG51};
DRAWTEXT(钝化H,'MACD.DIFF'*1.02,'H'),COLORCYAN{XG51};
DRAWICON(结构H,'MACD.DIFF',5),COLORCYAN{X_G?5*1_C_N_{};

源码正文：

A1:=((ma(C,60)-L)/MA(C,20))*200{XG51};
B1:=((MA(C,60)-L)/MA(C,60))*200{XG51};
C1:=((MA(C,30)-L)/MA(C,60))*200{XG51};
M1:=REF(CLOSE,1){XG51};
M2:=SMA(MAX(CLOSE-M1,0),7,1)/SMA(Abs(CLOSE-M1),7,1)*100{XG51};
G1:=FILTER(REF(M2,1)<20 AND M2>REF(M2,1),5){XG51};
TU:=C/MA(C,40)<0.74{XG51};
PER1:=5{XG51};
MMA:=ema(C,PER1){XG51};
SMMA:=EMA(MMA,PER1){XG51};
IMPETMMA:=MMA - REF(MMA,1){XG51};
IMPETSMMA:=SMMA - REF(SMMA,1){XG51};
DIVMA:= ABS(MMA - SMMA){XG51};
TDJ:=(H-L)/REF(C,1)>0.05{XG51};
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2{XG51};
TDF:= POW(DIVMA,1)*POW(AVERIMPET,3){XG51};
NTDF:=TDF/HHV(ABS(TDF),PER1*3){XG51};
YUL:=COUNT(TDJ,5)>1{XG51};
启动:=TU AND TDJ AND YUL{XG51};
确定:=crOSS(NTDF,-0.9){XG51};
波段:=FILTER((G1 AND C1>20 OR C>REF(C,1)) AND REF(启动,1),10){XG51};
选股:=FILTER(REF(启动,1) AND (确定 OR C>REF(C,1)) AND macd.MacD>-1.5,10){XG51};
卧底:COUNT(选股,13)>=1 AND 波段{X-G^5+1-C-N-{};