通达信MACD顶底背离改良版

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DIF:EMA(CLOSE,12)-EMA(CLOSE,26),LINETHICK2;

DEA:EMA(DIF,9),COLORWHITE;

MACD:(DIF-DEA)*2,NODRAW;

STICKLINE(MACD>0,0,MACD,1,0),COLORRED;

STICKLINE(MACD< 0,0,MACD,1,0),COLORGREEN;

STICKLINE(MACD>0&&MACD<=REF(MACD,1),0,MACD,1,0),COLORYELLOW;

STICKLINE(MACD< 0&&MACD>=REF(MACD,1),0,MACD,1,0),COLORWHITE;

AAA:=REF(MACD,1)< REF(MACD,2)&&REF(MACD,2)< REF(MACD,3)&&REF(MACD,3)< REF(MACD,4);

BBB:=MACD>=0&&COUNT(MACD>REF(MACD,1),1)=1;

CCC:=AAA&&BBB&&EMA(C,13)>REF(EMA(C,13),1);

DDD:=AAA&&BBB&&ABS((DIF-DEA)/C)< 0.018;

FFF:=AAA&&BBB&&MACD< 0.10;

EEE:=(CCC||DDD||FFF);

公式平台:=REF(MACD,1)>REF(MACD,2)&&REF(MACD,2)>REF(MACD,3)&&REF(MACD,3)>REF(MACD,4);

QQQ:=MACD<=0&&COUNT(MACD< REF(MACD,1),1)=1;

YYY:=公式平台&&QQQ&&EMA(C,13)< REF(EMA(C,13),1);

ZZZ:=公式平台&&QQQ&&ABS((DIF-DEA)/C)>0.018;

UUU:=公式平台&&QQQ&&MACD>0.10;

OOO:=YYY||ZZZ||UUU;

DRAWICON(EEE,-0.05,1);

DRAWTEXT(EEE,DEA,'翻红'),COLORRED;

DRAWICON(OOO,0.05,2);

DRAWTEXT(OOO,DEA,'翻绿'),COLORGREEN;

DIWEIJINC:=CROSS(DIFF,DEA)&&DIFF< -0.1;

DRAWICON(DIWEIJINC,DEA,4);

GAOWEISC:=CROSS(DEA,DIFF)&&DIFF>0.1;

DRAWICON(GAOWEISC,DEA,5);

JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));

ERCIJINC:=CROSS(DIFF,DEA)&&DEA< 0&&COUNT(JCCOUNT=2,21)=1;

DRAWICON(ERCIJINC,DEA*0.9,1);

JKCT:=COUNT(CROSS(DEA,DIFF),BARSLAST(DEA<=0));

ERCISICHA:=CROSS(DEA,DIFF)&&DEA>0&&COUNT(JKCT=2,21)=1;

DRAWICON(ERCISICHA,DEA*1.1,2);

B1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

DDDD:=REF(CLOSE,B1+1)>CLOSE&&DIFF>REF(DIFF,B1+1)&&CROSS(DIFF,DEA);

DRAWTEXT(DDDD,DEA,'底背离'),COLORFF00FF;

B2:=BARSLAST(REF(CROSS(DEA,DIFF),1));

KKKK:=REF(CLOSE,B2+1)< CLOSE&&REF(DIFF,B2+1)>DIFF&&CROSS(DEA,DIFF);

DRAWTEXT(KKKK,DEA,'顶背离'),COLORYELLOW;

DRAWTEXT(DIWEIJINC&&ERCIJINC&&DDDD,DIFF,'三全多'),COLOR0000FF;

DRAWTEXT(GAOWEISC&&ERCISICHA&&KKKK,DIFF,'三全空'),COLORGREEN;

IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORRED,LINETHICK2;

IF(DIF< REF(DIF,1),DIF,DRAWNULL),COLOR00FF00,LINETHICK2;

LIJIN0:=EMA(DIF,20);

E60:=EMA(DIF,60);

E120:=EMA(DIF,120);

LIJIN40:=EMA(DIF,240);

E480:=EMA(DIF,480);

ELIJIN:=(LIJIN0*20+E60*60+E120*120+LIJIN40*240+E480*480)/920;

HH:ELIJIN*(1+0.01*344),CIRCLEDOT,COLORRED;

LL:ELIJIN*(1-0.01*344),CIRCLEDOT,COLORBLUE;