通达信《MACD牛起顶底背离》副图指标公式源码

以下是通达信MACD牛起顶底背离副图指标公式源码和截图，其中副线功能用到未来函数，介意者可自行删除。有关MACD顶底背离的用法百度有很多，指标设计很简洁，一看就懂。

通达信《MACD牛起顶底背离》副图指标公式源码：

涨家数:INDEXADV,NODRAW,COLORLIMAGENTA ;
跌家数:INDEXDEC,NODRAW,COLORGREEN;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),COLORSTICK;

STICKLINE(MACD<REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORLIGREEN;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,0,0),COLORFF8000;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=1,21)=1;
STICKLINE(金叉,0,0.1,4,0),COLOR0000FF;
DRAWTEXT(金叉,0.15,’金叉’),COLOR0000FF;
二金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二金叉,0,0.15,4,0),COLORLIRED;
DRAWTEXT(二金叉,0.23,’二次金叉’),COLORLIRED;
三金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=3,28)=1;
STICKLINE(三金叉,0,0.15,4,0),COLORLIGREEN;
DRAWTEXT(三金叉,0.23,’三次金叉’),COLORLIGREEN;
四金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=4,28)=1;
STICKLINE(四金叉,0,0.2,4,0),COLORCYAN;
DRAWTEXT(四金叉,0.23,’四次金叉’),COLORCYAN;
五金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=5,33)=1;
STICKLINE(五金叉,0,0.2,4,0),COLORBLUE;
DRAWTEXT(五金叉,0.23,’五次金叉’),COLORBLUE;
六金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=6,33)=1;
STICKLINE(六金叉,0,0.25,4,0),COLORYELLOW;
DRAWTEXT(六金叉,0.0.45,’黄金底’),COLORYELLOW;
DRAWTEXT(六金叉,0.32,’六次金叉’),COLORYELLOW;
七金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=7,33)=1;
STICKLINE(七金叉,0,0.3,4,0),COLORWHITE;
DRAWTEXT(七金叉,0.45,’白金底’),COLORWHITE;
DRAWTEXT(七金叉,0.35,’七次金叉’),COLORWHITE;
八金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=8,33)=1;
STICKLINE(八金叉,0,0.35,4,0),COLORMAGENTA;
DRAWTEXT(八金叉,0.45,’钻石底’),COLORMAGENTA;
DRAWTEXT(八金叉,0.35,’八次金叉’),COLORMAGENTA;
九金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=9,33)=1;
STICKLINE(九金叉,0,0.4,4,0),COLORRED;
DRAWTEXT(九金叉,0.5,’金钻底’),COLORRED;
DRAWTEXT(九金叉,0.4,’九次金叉’),COLORRED;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=(REF(L,A1+1)>L OR REF(C,A1+1)>C) AND (L,DIFF)>REF((L,DIFF),A1+1) AND CROSS(DIFF,DEA);
{STICKLINE(底背离,0,-0.1,5,0),COLORRED;}
DRAWTEXT(底背离,DEA,’线底背’)COLORRED;
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLOR0000FF,LINETHICK2;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=(REF(C,A2+1)<C OR REF(H,A2+1)<H) AND REF((H,DIFF),A2+1)>(H,DIFF) AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORBLUE,LINETHICK3;

DRAWTEXT(顶背离,DEA,’线顶背’)COLORGREEN;
DRAWTEXT(CROSS(DIFF,DEA) AND 二金叉 AND 底背离,0.3,’三全底’),COLOR0000FF;
IF(DIFF>DEA,DIFF,DRAWNULL),COLORWHITE,LINETHICK2;
IF(DEA>REF(DEA,1) AND DIFF>DEA,DEA,DRAWNULL),COLORYELLOW,LINETHICK2;
{涨停100%}
T:=IF((BARSCOUNT(C) > 7),(100)*((MA(C,7))/(LLV(MA(C,7),7)) – 1),1);
N:=IF((T > 0.35),6,65);
W:=((-((100)*(HHV(H,N) – C))/(HHV(HIGH,N) – LLV(L,N))));
RV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
J0:=(HIGH+LOW)/2;
QJ:=EMA(J0,3);
J1:=IF(CLOSE>QJ,VOL,0);
J2:=IF(CLOSE<QJ,VOL,0);
BB:=MA(SUM(J1-J2,22),3);
累加:=21*BB+20*REF(BB,1)+19*REF(BB,2)+18*REF(BB,3)+17*REF(BB,4)
+16*REF(BB,5)+15*REF(BB,6)+14*REF(BB,7)+13*REF(BB,8)+12*REF
(BB,9)+11*REF(BB,10)+10*REF(BB,11)+9*REF(BB,12)+8*REF(BB,13)
+7*REF(BB,14)+6*REF(BB,15)+5*REF(BB,16)+4*REF(BB,17)+3*REF
(BB,18)+2*REF(BB,19)+REF(BB,20);
WMA1:=累加/(21+1)/21*2;
CC:=WMA1;
VAR3:=(BB-CC);VAR4:=SMA(RV,3,1);
VAR5:=SMA(VAR4,3,1);
KK:=EMA(SMA(RG,3,1),2);
DD:=SMA(KK,3,1);
涨停100%:=CROSS(W,-2) AND CROSS(VAR4,VAR5) AND CROSS(KK,DD),COLORRED,LINETHICK1;
STICKLINE(涨停100%,0,0.4,0.3,0),COLORYELLOW;
DRAWTEXT(涨停100%,0.4,’涨停’)COLORRED;

 

{底部信号}
BB值:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3);
AAA:=EMA(CLOSE,12)-EMA(CLOSE,26);
DRAWTEXT(CROSS(BB值,9),0.25, ‘‘底部’),COLORYELLOW;
DRAWICON(CROSS(BB值,9),0,41);
STICKLINE(CROSS(BB值,9),0.25,0,0.2,0),COLORYELLOW;
{DRAWICON(REF(DIF,1)>REF(DIF,2) AND DIF<REF(DIF,1) AND DIF>0 AND DIF>DEA,DIF*1.1,2),COLORGREEN;
DRAWICON(CROSS(DEA,DIF) AND DIF>0,DIF,37),COLORGREEN;
DRAWICON(REF(DIF,1)<REF(DIF,2) AND DIF>REF(DIF,1) AND DIF<0 AND DIF<DEA,DIF*1.1,1),COLORRED;
DRAWICON(CROSS(DIF,DEA) AND DIF<0,DIF,36),COLORRED;}
X_2:=BARSLAST(REF(MACD,1)<0 AND MACD>0);
X_3:=LLVBARS(MACD,X_2+20);

低背:DRAWLINE(X_4=X_3,MACD,X_6,MACD,0),COLOREE00EE,LINETHICK2;
DRAWICON(X_6,MACD*1.2,26);
DRAWTEXT(低背,DEA,’柱低背’)COLOREE00EE;

X_7:=HHVBARS(MACD,X_2+20);
X_8:=IF(X_7>X_2,REF(MACD,X_7),0);

顶背:DRAWLINE(X_8=X_7,MACD,X_10,MACD,0),COLORGREEN,LINETHICK2;
DRAWICON(X_10,MACD*1.2,15);
DRAWTEXT(顶背,DEA,’柱顶背’),COLORGREEN;

X_11:=CLOSE/MA(CLOSE,40)*100<78;
X_12:=CLOSE/MA(CLOSE,60)*100<74;
X_13:=HIGH>LOW*1.051;
X_14:=X_13 AND COUNT(X_13,5)>1;
X_15:=IF(X_14 AND (X_11 OR X_12),2,0);
X_16:=CLOSE/REF(CLOSE,25)<=1.1;

X_19:=SMA(X_18,2,1);
X_20:=SMA(X_19,2,1);
X_21:=IF(X_19>REF(X_19,1) AND REF(X_19,1)<REF(X_19,2) AND X_19<23,1.5,0);
抄底:=X_16 AND X_15 AND X_17 AND X_21 ;
大底:抄底*0.5,COLORDDDDDD;
DRAWTEXT(抄底,0.6,’抄底’),COLORDDDDDD;

{RSI买入}
WRSI:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
相对强弱RSI买入:=CROSS(WRSI,20),STICK,LINETHICK2,COLORYELLOW;

DRAWTEXT(相对强弱RSI买入,MACD-0.05, ‘‘RSI入’),COLORYELLOW;
{背离}
A3AA:=BARSLAST(REF(CROSS(“RSI.RSI1″,”RSI.RSI2”),1));
B3AA:=REF(C,A3AA+1)>C AND REF(“RSI.RSI1”,A3AA+1)<“RSI.RSI1” AND CROSS(“RSI.RSI1″,”RSI.RSI2”);

D3A:=REF(C,C3A+1)<C AND REF(“RSI.RSI1″,C3A+1)>”RSI.RSI1” AND CROSS(“RSI.RSI2″,”RSI.RSI1”);
DRAWTEXT(D3A>0,0.15,’RSI顶’),COLORGREEN;{RSI顶背离};

{MACD&KDJ 金叉共振}
{DIF:EMA(CLOSE,12)-EMA(CLOSE,26);DEA:EMA(DIF,9);}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:=SMA(RSV,9,3),NODRAW;

DRAWICON(A,DEA*1.2,25);
DRAWTEXT(A,DEA*1.2, ‘ 金叉共振’),COLORYELLOW;

{见牛启动}
QSTN:=IF(NAMELIKE(‘ST’),1,0) OR IF(NAMELIKE(‘*ST’),1,0);
RSVN:=(CLOSE-LLV(LOW,40))/(HHV(HIGH,40)-LLV(LOW,40))*100;
KN:=SMA(RSVN,18,1);
DN:=SMA(KN,3,1);
JN:=3*KN-2*DN;
DIFN:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEAN:=EMA(DIFN,9);
MACD1N:=2*(DIFN-DEAN);

STICKLINE(XGN,0.2,0.4,0.1,0),COLOR0000FF;
DRAWTEXT(XGN,0.4, ‘ 牛起’),COLOR0000FF;

通达信《MACD牛起顶底背离》副图指标公式源码：