通达信《macd背离金叉计数》指标公式源码

DRAWGBK(C>O,RGB(20,10,90),RGB(0,0,0),0,'1',0);
FVA:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORFFFFFF;
DVB:=EMA(FVA,9),COLORYELLOW;
MVC:=2*(FVA-DVB);
MVD:=EMA(MVC,5);
STICKLINE(MVC>MVD AND MVC>0,0,MVC,3,0),COLOR000055;
STICKLINE(MVC>MVD AND MVC>0,0,MVC,2.5,0),COLOR000077;
STICKLINE(MVC>MVD AND MVC>0,0,MVC,1.5,0),COLOR000099;
STICKLINE(MVC>MVD AND MVC>0,0,MVC,1,0),COLOR0000FF;
STICKLINE(MVC>MVD AND MVC<0,0,MVC,3,0),COLOR222222;
STICKLINE(MVC>MVD AND MVC<0,0,MVC,2.5,0),COLOR444444;
STICKLINE(MVC>MVD AND MVC<0,0,MVC,1.5,0),COLOR666666;
STICKLINE(MVC>MVD AND MVC<0,0,MVC,0,0),COLOR999999;
STICKLINE(MVC<MVD,0,MVC,3,0),COLORA80000;
STICKLINE(MVC<MVD,0,MVC,2.5,0),COLORB80000;
STICKLINE(MVC<MVD,0,MVC,1.5,0),COLOREC1000;
STICKLINE(MVC<MVD,0,MVC,1,0),COLORFF4600;
STICKLINE(MVC<MVD,0,MVC,0,0),COLORFFAA00;
WQX:=CROSS(FVA,DVB) AND FVA<-0.1;
STICKLINE(WQX,0,FVA,3,0),COLOR002222;
STICKLINE(WQX,0,FVA,2.5,0),COLOR006666;
STICKLINE(WQX,0,FVA,1.5,0),COLOR009999;
STICKLINE(WQX,0,FVA,1,0),COLOR00FFFF;
DRAWTEXT(WQX,0.2,' 低位金叉'),COLOR00FF88;
RQZ:=COUNT(CROSS(FVA,DVB),BARSLAST(DVB>=0));
EQX:=CROSS(FVA,DVB) AND DVB<0 AND COUNT(RQZ=2,21)=1;
STICKLINE(EQX,MVC,-0.01,3,0),COLOR440044;
STICKLINE(EQX,MVC,-0.01,2.5,0),COLOR660066;
STICKLINE(EQX,MVC,-0.01,1.5,0),COLOR990099;
STICKLINE(EQX,MVC,-0.01,1,0),COLORFF00FF;
DRAWTEXT(EQX,DVB*1.3,' 二次金叉'),COLORYELLOW;
PQA:=BARSLAST(REF(CROSS(FVA,DVB),1));
DBL:=REF(CLOSE,PQA+1)>CLOSE AND FVA>REF(FVA,PQA+1) AND CROSS(FVA,DVB);
STICKLINE(DBL,0,0.03,6,0),COLOR00FF00;
DRAWLINE(PQA=0,DVB,DBL,DVB,0),COLORRED,LINETHICK1;
DRAWTEXT(DBL,0.03,' 底背离'),COLORFF00FF;
KWB:=BARSLAST(REF(CROSS(DVB,FVA),1));
DBL2:=REF(CLOSE,KWB+1)<CLOSE AND REF(FVA,KWB+1)>FVA AND CROSS(DVB,FVA);
DRAWLINE(KWB=0,DVB,DBL2,DVB,0),COLORFF8800,LINETHICK1;
DRAWTEXT(DBL2,-0.02,' 顶背离'),COLORFFFF00;
DIFF:FVA,COLOR009922;
DEA:DVB,COLORYELLOW;
ZTA:=CROSS(DVB,FVA);
LSA:=BARSLAST(ZTA);
YQ1:=IF(1,LSA=1,ZTA) AND IF(1,FVA<DVB,0);
DRAWTEXT(YQ1 AND FVA>0,FVA*0.8,'1'),COLOR00FF00;
DRAWTEXT(YQ1 AND FVA<0,FVA*1.8,'1'),COLOR00FF00;
YQ3:=IF(3,LSA=3,ZTA) AND IF(3,FVA<DVB,0);
DRAWTEXT(YQ3 AND FVA>0,FVA*0.8,'3'),COLOR00FF00;
DRAWTEXT(YQ3 AND FVA<0,FVA*1.4,'3'),COLOR00FF00;
YQ5:=IF(5,LSA=5,ZTA) AND IF(5,FVA<DVB,0);
DRAWTEXT(YQ5 AND FVA>0,FVA*0.8,'5'),COLOR00FF00;
DRAWTEXT(YQ5 AND FVA<0,FVA*1.4,'5'),COLOR00FF00;
YQ8:=IF(8,LSA=8,ZTA) AND IF(8,FVA<DVB,0);
DRAWTEXT(YQ8 AND FVA>0,FVA*0.8,'8'),COLOR00FF00;
DRAWTEXT(YQ8 AND FVA<0,FVA*1.8,'8'),COLOR00FF00;
YQ13:=IF(13,LSA=13,ZTA) AND IF(8,FVA<DVB,0);
DRAWTEXT(YQ13 AND FVA>0,FVA*0.8,'13'),COLOR00FF00;
DRAWTEXT(YQ13 AND FVA<0,FVA*1.2,'13'),COLOR00FF00;
YQ21:=IF(21,LSA=21,ZTA) AND IF(21,FVA<DVB,0);
DRAWTEXT(YQ21 AND FVA>0,FVA*0.8,'21'),COLOR00FF00;
DRAWTEXT(YQ21 AND FVA<0,FVA*1.2,'21'),COLOR00FF00;
YQ26:=IF(26,LSA=26,ZTA) AND IF(26,FVA<DVB,0);
DRAWTEXT(YQ26 AND FVA>0,FVA*0.8,'26'),COLOR00FF00;
DRAWTEXT(YQ26 AND FVA<0,FVA*1.2,'26'),COLOR00FF00;
YQ29:=IF(29,LSA=29,ZTA) AND IF(29,FVA<DVB,0);
DRAWTEXT(YQ29 AND FVA>0,FVA*0.8,'29'),COLOR00FF00;
DRAWTEXT(YQ29 AND FVA<0,FVA*1.2,'29'),COLOR00FF00;
YQ34:=IF(34,LSA=34,ZTA) AND IF(34,FVA<DVB,0);
DRAWTEXT(YQ34 AND FVA>0,FVA*0.8,'34'),COLOR00FF00;
DRAWTEXT(YQ34 AND FVA<0,FVA*1.8,'34'),COLOR00FF00;
YQ55:=IF(55,LSA=55,ZTA) AND IF(55,FVA<DVB,0);
DRAWTEXT(YQ55 AND FVA>0,FVA*0.8,'55'),COLOR00FF00;
DRAWTEXT(YQ55 AND FVA<0,FVA*1.8,'55'),COLOR00FF00;
YQ68:=IF(68,LSA=68,ZTA) AND IF(68,FVA<DVB,0);
DRAWTEXT(YQ68 AND FVA>0,FVA*0.8,'68'),COLOR00FF00;
DRAWTEXT(YQ68 AND FVA<0,FVA*1.8,'68'),COLOR00FF00;
ZTB:=CROSS(FVA,DVB);
LSB:=BARSLAST(ZTB);
HJ1:=IF(1,LSB=1,ZTB) AND IF(1,FVA>DVB,0);
DRAWTEXT(HJ1 AND FVA>0,FVA*1.2,'1'),COLORFFFFFF;
DRAWTEXT(HJ1 AND FVA<0,FVA*0.8,'1'),COLORFFFFFF;
HJ3:=IF(3,LSB=3,LSB) AND IF(3,FVA>DVB,0);
DRAWTEXT(HJ3 AND FVA>0,FVA*1.2,'3'),COLORFFFFFF;
DRAWTEXT(HJ3 AND FVA<0,FVA*0.8,'3'),COLORFFFFFF;
HJ5:=IF(5,LSB=5,ZTB) AND IF(5,FVA>DVB,0);
DRAWTEXT(HJ5 AND FVA>0,FVA*1.2,'5'),COLORFFFFFF;
DRAWTEXT(HJ5 AND FVA<0,FVA*0.8,'5'),COLORFFFFFF;
HJ8:=IF(8,LSB=8,ZTB) AND IF(8,FVA>DVB,0);
DRAWTEXT(HJ8 AND FVA>0,FVA*1.2,'8'),COLORFFFFFF;
DRAWTEXT(HJ8 AND FVA<0,FVA*0.8,'8'),COLORFFFFFF;
HJ13:=IF(13,LSB=13,ZTB) AND IF(8,FVA>DVB,0);
DRAWTEXT(HJ13 AND FVA>0,FVA*1.2,'13'),COLORFFFFFF;
DRAWTEXT(HJ13 AND FVA<0,FVA*0.8,'13'),COLORFFFFFF;
HJ18:=IF(18,LSB=18,ZTB) AND IF(8,FVA>DVB,0);
DRAWTEXT(HJ18 AND FVA>0,FVA*1.2,'18'),COLORFFFFFF;
DRAWTEXT(HJ18 AND FVA<0,FVA*0.8,'18'),COLORFFFFFF;
HJ21:=IF(21,LSB=21,ZTB) AND IF(21,FVA>DVB,0);
DRAWTEXT(HJ21 AND FVA>0,FVA*1.2,'21'),COLORFFFFFF;
DRAWTEXT(HJ21 AND FVA<0,FVA*0.8,'21'),COLORFFFFFF;
HJ26:=IF(26,LSB=26,ZTB) AND IF(26,FVA>DVB,0);
DRAWTEXT(HJ26 AND FVA>0,FVA*1.2,'26'),COLORFFFFFF;
DRAWTEXT(HJ26 AND FVA<0,FVA*0.8,'26'),COLORFFFFFF;
HJ29:=IF(29,LSB=29,ZTB) AND IF(29,FVA>DVB,0);
DRAWTEXT(HJ29 AND FVA>0,FVA*1.2,'29'),COLORFFFFFF;
DRAWTEXT(HJ29 AND FVA<0,FVA*0.8,'29'),COLORFFFFFF;
HJ34:=IF(34,LSB=34,ZTB) AND IF(34,FVA>DVB,0);
DRAWTEXT(HJ34 AND FVA>0,FVA*1.2,'34'),COLORFFFFFF;
DRAWTEXT(HJ34 AND FVA<0,FVA*0.8,'34'),COLORFFFFFF;
HJ47:=IF(47,LSB=47,ZTB) AND IF(47,FVA>DVB,0);
DRAWTEXT(HJ47 AND FVA>0,FVA*1.2,'47'),COLORFFFFFF;
DRAWTEXT(HJ47 AND FVA<0,FVA*0.8,'47'),COLORFFFFFF;
HJ55:=IF(55,LSB=55,ZTB) AND IF(55,FVA>DVB,0);
DRAWTEXT(HJ55 AND FVA>0,FVA*1.2,'55'),COLORFFFFFF;
DRAWTEXT(HJ55 AND FVA<0,FVA*0.8,'55'),COLORFFFFFF;
HJ60:=IF(60,LSB=60,ZTB) AND IF(60,FVA>DVB,0);
DRAWTEXT(HJ60 AND FVA>0,FVA*1.2,'63'),COLORFFFFFF;
DRAWTEXT(HJ60 AND FVA<0,FVA*0.8,'63'),COLORFFFFFF;
HJ68:=IF(68,LSB=68,ZTB) AND IF(68,FVA>DVB,0);
DRAWTEXT(HJ68 AND FVA>0,FVA*1.2,'68'),COLORFFFFFF;
DRAWTEXT(HJ68 AND FVA<0,FVA*0.8,'68'),COLORFFFFFF;