DIFF:EMA(CLOSE,12) - EMA(CLOSE,26),NOTEXT;
DEA:EMA(DIFF,9),NOTEXT;
MACD:2*(DIFF-DEA),NODRAW;
STICKLINE1(MACD>=0,0,MACD,0.5,1),COLORRED;
STICKLINE1(MACD<0,0,MACD,0.5,1),COLORCYAN;
STICKLINE1(MACD>0&&MACD<REF(MACD,1)&&REF(MACD,1)>REF(MACD,2),0,MACD,1,1),COLORYELLOW;
STICKLINE1(MACD<0&&MACD>REF(MACD,1)&&REF(MACD,1)<REF(MACD,2),0,MACD,1,1),COLORYELLOW;
STICKLINE1(MACD>=0,0,MACD,0.5,1),COLORRED;
STICKLINE1(MACD<0,0,MACD,0.5,1),COLORCYAN;
STICKLINE1(MACD>0&&MACD<REF(MACD,1)&&REF(MACD,1)>REF(MACD,2),0,MACD,1,1),COLORYELLOW;
STICKLINE1(MACD<0&&MACD>REF(MACD,1)&&REF(MACD,1)<REF(MACD,2),0,MACD,1,1),COLORYELLOW;
STICKLINE1(MACD>=0,0,MACD,0.5,1),COLORRED;
STICKLINE1(MACD<0,0,MACD,0.5,1),COLORCYAN;
STICKLINE1(MACD>0&&MACD<REF(MACD,1)&&REF(MACD,1)>REF(MACD,2),0,MACD,1,1),COLORYELLOW;
STICKLINE1(MACD<0&&MACD>REF(MACD,1)&&REF(MACD,1)<REF(MACD,2),0,MACD,1,1),COLORYELLOW;
JC:=CROSS(DIFF,DEA);
SC:=CROSSDOWN(DIFF,DEA);
N1:=BARSLAST(JC)+1;
N2:=BARSLAST(SC)+1;
HH3:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(H,N1));//上次MACD红柱期间合约最大值
HH4:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(HH3,1));//上上次MACD红柱期间合约最大值
MHD:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(MACD,N1));//上次MACD红柱期间MACD最大值
MHD2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(MHD,1));//上上次MACD红柱期间MACD最大值
LL3:=VALUEWHEN(CROSS(DIFF,DEA),LLV(L,N2));//上次MACD绿柱期间合约最小值
LL4:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL3,1));//上上次MACD绿柱期间合约最小值
MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(MACD,N2));//上次MACD绿柱期间MACD最小值
MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1));//上上次MACD绿柱期间MACD最小值
AA:=CROSSDOWN(DIFF,DEA)&&HH3>HH4&&MHD<MHD2;//顶背离
BB:=CROSS(DIFF,DEA)&&LL3<LL4&&MLD>MLD2;//底背离
DRAWTEXT(CROSS(AA=1,0.5),DIFF,'顶背'),VALIGN2,COLORCYAN;
DRAWTEXT(CROSS(BB=1,0.5),DIFF,'底背'),VALIGN0,COLORMAGENTA;
XN2:=SUMBARS(SC,2);
XM2:=SUMBARS(JC,2);
MACD3:=REF(LV(DIFF,N2),N1-1);
MACD4:=REF(LV(DIFF,N2),XM2-1);
MACD1:=REF(HV(DIFF,N1),N2-1);
MACD2:=REF(HV(DIFF,N1),XN2-1);
顶背离:=CROSS(0,MACD) && HH3>HH4 && MACD1<MACD2 ;
DRAWTEXT(顶背离,DIFF,'顶背'),VALIGN2,COLORCYAN;
Q:=BACKSET(CROSS(0,MACD),HHVBARS(DIFF,N1)+1);
QQ:=BACKSET(顶背离,SUMBARS(Q>REF(Q,1),2));
DRAWLINE1(QQ>REF(QQ,1),DIFF,Q>REF(Q,1),DIFF,0),COLORCYAN;
底背离:=CROSS(MACD,0) && LL3<LL4 && MACD3>MACD4;
DRAWTEXT(底背离,DIFF,'底背'),VALIGN0,COLORMAGENTA;
W:=BACKSET(CROSS(MACD,0),LLVBARS(DIFF,N2)+1);
WW:=BACKSET(底背离,SUMBARS(W>REF(W,1),2));
DRAWLINE1(WW>REF(WW,1),DIFF,W>REF(W,1),DIFF,0),COLORMAGENTA;
快线:DIFF;
DRAWCOLORLINE(快线>REF(快线,1),快线,RGB(255,0,128),RGB(0,128,255));
慢线:DEA;
DRAWCOLORLINE(慢线>REF(慢线,1),慢线,RGB(255,128,64),RGB(0,255,0)),LINETHICK2;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.04,6,0),COLORFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离1:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离1,0,0.03,6,0),COLOR00FF00;
DRAWLINE1(CROSS(BACKSET(底背离1,BARSLAST(A1=0)+1),0.5),DEA,底背离1,DEA,0),RGB(255,255,0),LINETHICK2;
A22:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离1:=REF(CLOSE,A22+1)<CLOSE && REF(DIFF,A22+1)>DIFF && CROSS(DEA,DIFF);
STICKLINE(顶背离1,0,0.03,6,0),RGB(0,128,255);
DRAWTEXT(顶背离1,DIFF,'顶背'),VALIGN2,COLORCYAN;
DIFF1 : EMA(CLOSE,12) - EMA(CLOSE,26),NOTEXT,NODRAW;
DEA1 : EMA(DIFF1,9),NOTEXT,NODRAW;
MACD11:2*(DIFF-DEA),COLORSTICK,NOTEXT,NODRAW;
DRAWICON(CROSS(MACD11,0),MACD,4);
DRAWICON(CROSSDOWN(MACD1,0),MACD,5),VALIGN0;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;
STICKLINE1(MACD>=0,0,MACD,0.5,1),COLORRED;
STICKLINE1(MACD<0,0,MACD,0.5,1),COLORCYAN;
STICKLINE1(MACD>0&&MACD<REF(MACD,1)&&REF(MACD,1)>REF(MACD,2),0,MACD,1,1),COLORYELLOW;
STICKLINE1(MACD<0&&MACD>REF(MACD,1)&&REF(MACD,1)<REF(MACD,2),0,MACD,1,1),COLORYELLOW;
快线:DIFF;
DRAWCOLORLINE(快线>REF(快线,1),快线,RGB(255,0,128),RGB(0,128,255));
慢线:DEA;
DRAWCOLORLINE(慢线>REF(慢线,1),慢线,RGB(255,128,64),RGB(0,255,0)),LINETHICK2;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;
DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
DRAWLINE1(CROSS(BACKSET(底背离,BARSLAST(A1=0)+1),0.5),DEA,底背离,DEA,0),COLORRED,LINETHICK4;
DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF;
A22:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A22+1)<CLOSE && REF(DIFF,A22+1)>DIFF && CROSS(DEA,DIFF);
STICKLINE(顶背离,0,0.03,6,0),RGB(0,128,255);
DRAWTEXT(顶背离,-0.12,' 顶背离'),RGB(0,255,255);
DIFF1 : EMA(CLOSE,12) - EMA(CLOSE,26),NOTEXT,NODRAW;
DEA1 : EMA(DIFF1,9),NOTEXT,NODRAW;
MACD1:2*(DIFF-DEA),COLORSTICK,NOTEXT,NODRAW;
DRAWICON(CROSS(MACD1,0),MACD,4);
DRAWICON(CROSSDOWN(MACD1,0),MACD,5),VALIGN0;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;
STICKLINE1(MACD>=0,0,MACD,0.5,1),COLORRED;
STICKLINE1(MACD<0,0,MACD,0.5,1),COLORCYAN;
STICKLINE1(MACD>0&&MACD<REF(MACD,1)&&REF(MACD,1)>REF(MACD,2),0,MACD,1,1),COLORYELLOW;
STICKLINE1(MACD<0&&MACD>REF(MACD,1)&&REF(MACD,1)<REF(MACD,2),0,MACD,1,1),COLORYELLOW;
快线:DIFF;
DRAWCOLORLINE(快线>REF(快线,1),快线,RGB(255,0,128),RGB(0,128,255));
慢线:DEA;
DRAWCOLORLINE(慢线>REF(慢线,1),慢线,RGB(255,128,64),RGB(0,255,0)),LINETHICK2;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;
DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
DRAWLINE1(CROSS(BACKSET(底背离,BARSLAST(A1=0)+1),0.5),DEA,底背离,DEA,0),COLORRED,LINETHICK4;
DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF;
A22:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A22+1)<CLOSE && REF(DIFF,A22+1)>DIFF && CROSS(DEA,DIFF);
DRAWTEXT(顶背离,DEA,' 顶背离'),COLORGREEN;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),NODRAW;
FILLRGN(DIFF>DEA,DIFF,DEA,RGB(255,128,192));
FILLRGN(DIFF<DEA,DIFF,DEA,RGB(128,255,128));
STICKLINE1(MACD>=0,MACD,0,2.5,1),COLORF00FF0;
STICKLINE1(MACD<0,MACD,0,2.5,1),COLORWHITE;
STICKLINE1(MACD<REF(MACD,1)&& MACD>0,0,MACD,2.5,0 ),COLOR00AAFF;
STICKLINE1(MACD<REF(MACD,1)&& MACD>0,0,MACD,2.5,0 ),COLOR00BBFF;
STICKLINE1(MACD<REF(MACD,1)&& MACD>0,0,MACD,2,0 ),COLOR00CCFF;
STICKLINE1(MACD<REF(MACD,1)&& MACD>0,0,MACD,1.5,0 ),COLOR00DDFF;
STICKLINE1(MACD<REF(MACD,1)&& MACD>0,0,MACD,1,0 ),COLOR00EEFF;
STICKLINE1(MACD<REF(MACD,1)&& MACD>0,0,MACD,0.5,0 ),COLOR00FFFF;
STICKLINE1(MACD>=REF(MACD,1)&& MACD>0,0,MACD,2.5,0 ),COLOR0000AA;
STICKLINE1(MACD>=REF(MACD,1)&& MACD>0,0,MACD,2.5,0 ),COLOR0011BB;
STICKLINE1(MACD>=REF(MACD,1)&& MACD>0,0,MACD,2,0 ),COLOR0022CC;
STICKLINE1(MACD>=REF(MACD,1)&& MACD>0,0,MACD,1.5,0 ),COLOR0033DD;
STICKLINE1(MACD>=REF(MACD,1)&& MACD>0,0,MACD,1,0 ),COLOR0044EE;
STICKLINE1(MACD>=REF(MACD,1)&& MACD>0,0,MACD,0.5,0 ),COLOR0055FF;
STICKLINE1(MACD>REF(MACD,1)&& MACD<0,0,MACD,2.5,0 ),COLORAA00BB;
STICKLINE1(MACD>REF(MACD,1)&& MACD<0,0,MACD,2.5,0 ),COLORBB11BB;
STICKLINE1(MACD>REF(MACD,1)&& MACD<0,0,MACD,2,0 ),COLORCC22BB;
STICKLINE1(MACD>REF(MACD,1)&& MACD<0,0,MACD,1.5,0 ),COLORDD33BB;
STICKLINE1(MACD>REF(MACD,1)&& MACD<0,0,MACD,1.0,0 ),COLOREE44BB;
STICKLINE1(MACD>REF(MACD,1)&& MACD<0,0,MACD,0.5,0 ),COLORFF55BB;
STICKLINE1(MACD<=REF(MACD,1)&& MACD<0,0,MACD,2.5,0 ),COLORFFAA00;
STICKLINE1(MACD<=REF(MACD,1)&& MACD<0,0,MACD,2.5,0 ),COLORFFBB11;
STICKLINE1(MACD<=REF(MACD,1)&& MACD<0,0,MACD,2,0 ),COLORFFCC22;
STICKLINE1(MACD<=REF(MACD,1)&& MACD<0,0,MACD,1.5,0 ),COLORFFDD33;
STICKLINE1(MACD<=REF(MACD,1)&& MACD<0,0,MACD,1,0 ),COLORFFEE44;
STICKLINE1(MACD<=REF(MACD,1)&& MACD<0,0,MACD,0.5,0 ),COLORFFFF55;
IF(DIFF<0,DIFF,0),COLORRED,LINETHICK2;
IF(DIFF<0,0,DIFF),COLORYELLOW,LINETHICK2;
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK2;
IF(DIFF>DEA,DEA,DEA),COLORBLUE,LINETHICK2;
低位金叉:=CROSS(DIFF,DEA) && DIFF<-0.1;
STICKLINE1(低位金叉,0,-0.10,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,-0.05,' 低位金叉'),COLORYELLOW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) && DEA<0 && COUNT(JCCOUNT=2,21)=1;
STICKLINE1(二次金叉,0,-0.10,6,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*1.04,13) ;
DRAWTEXT(二次金叉,-0.08,' 二次金叉'),COLORFF00FF;
A11:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A11+1)>CLOSE && DIFF>REF(DIFF,A11+1) && CROSS(DIFF,DEA);
STICKLINE1(底背离,0,0.13,6,0),COLORRED;
DRAWTEXT(底背离,DEA,' 底背离'),COLORRED;
A22:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A22+1)<CLOSE && REF(DIFF,A22+1)>DIFF && CROSS(DEA,DIFF);
DRAWTEXT(顶背离,DEA,' 顶背离'),COLORGREEN;
A1:=DIFF<0 && DEA<0;
A2:=A1>REF(A1,1);
A3:=BARSLAST(A2);
A4:=COUNT(DEA>0 && DIFF>0,A3)=0;
A5:=CROSS(DIFF,DEA);
A6:=BARSLAST(A5);
A7:=REF(A6,A6+1)+A6;
A8:=(DIFF+DEA)/2;
A9:=(HIGH+LOW)/2;
A10:=A5 && A7<A3 && A4 && A8>REF(A8,A7) && A9<REF(A9,A7) && MACD>0;
DRAWTEXT(A10,DIFF*0.95,'★金叉介入'),COLORYELLOW;
连续走强:BARSLASTCOUNT(MACD>REF(MACD,1) && MACD>0),NODRAW;
强势回调:BARSLASTCOUNT(MACD<REF(MACD,1) && MACD>0),NODRAW;
连续走弱:BARSLASTCOUNT(MACD<REF(MACD,1) && MACD<0),NODRAW;
