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

通达信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-{};