通达信MACD顶底背离改良版副图指标 源码 贴图
通达信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);{公式指标WWW.GSZB.TOP}
HGW:=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:=HGW&&QQQ&&EMA(C,13)< REF(EMA(C,13),1);
ZZZ:=HGW&&QQQ&&ABS((DIF-DEA)/C)>0.018;
UUU:=HGW&&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;
页:
[1]