通达信MACD顶底背离变盘点副图未加密选股指标公式源码

DI1F:=(ema(obv,12) - EMA(OBV,26));
DE1A:=EMA(DI1F,9);
MacD:(2 * (DI1F - DE1A)),NODRAW,COLORFF8000;
0;
STICKLINE(macd<REF(MACD,1) AND MACD>0,0,MACD,3,1),COLOR0080FF,LINETHICK2;
STICKLINE(MACD>=REF(MACD,1) AND MACD>0,0,MACD,3,1),COLOR0000FF,LINETHICK2;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,3,1),COLORFF8000,LINETHICK2;
STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,3,1),COLORFFFF00,LINETHICK2;
dif:(EMA(OBV,12) - EMA(OBV,26)),COLORFFFFFF,LINETHICK3;
DEA:EMA(DIF,9),COLOR00FFFF,LINETHICK3;
{ 以下是可能出现的变盘点，关注 }
TJ:=MACD>0;
T:=MACD<0;
DRAWTEXT(BArslAST(TJ)=5,0.03,'5'),COLORBLUE;
DRAWTEXT(BARSLAST(TJ)=8,0.03,'8'),COLORBLUE;
DRAWTEXT(BARSLAST(TJ)=13,0.03,'13'),COLORBLUE;
DRAWTEXT(BARSLAST(TJ)=21,0.03,'21'),COLORBLUE;
DRAWTEXT(BARSLAST(TJ)=34,0.03,'34'),COLORBLUE;
DRAWTEXT(BARSLAST(TJ)=55,0.03,'55'),COLORBLUE;
DRAWTEXT(BARSLAST(T)=5,-0.03,'5'),COLORCYAN;
DRAWTEXT(BARSLAST(T)=8,-0.03,'8'),COLORCYAN;
DRAWTEXT(BARSLAST(T)=13,-0.03,'13'),COLORCYAN;
DRAWTEXT(BARSLAST(T)=21,-0.03,'21'),COLORCYAN;
DRAWTEXT(BARSLAST(T)=34,-0.03,'34'),COLORCYAN;
DRAWTEXT(BARSLAST(T)=55,-0.03,'55'),COLORCYAN;
ZSJR4:=crOSS(DIF,0);
ZSJR5:=CROSS(0,DIF);
ZSJR6:=BARSLAST(ZSJR4);
ZSJR7:=BARSLAST(ZSJR5);
ZSJR8:=REF(ZSJR4,1);
ZSJR9:=REF(ZSJR5,1);
DIF0:=BARSLAST(ZSJR8);
DIF1:=BARSLAST(ZSJR9);
DIF2:=IF((DIF0 < DIF1),REF(HHV(HIGH,2),DIF0),REF(LLV(LOW,2),DIF1));
DIF3:=(((REF(OBV,1) <= REF(DIF2,1)) AND (OBV > DIF2)) AND (ZSJR6 < ZSJR7));
DIF33:=(((REF(OBV,1) >= REF(DIF2,1)) AND (OBV < DIF2)) AND (ZSJR7 < ZSJR6));
DIF4:=(DIF3 AND (COUNT(DIF3,ZSJR6) = 1));
DIF5:=(DIF33 AND (COUNT(DIF33,ZSJR7) = 1));
DIF6:=(DIF4 AND (REF(BARSLAST(DIF5),1) < REF(BARSLAST(DIF4),1)));
DIF7:=(DIF5 AND (REF(BARSLAST(DIF5),1) > REF(BARSLAST(DIF4),1)));
DIF8:=(DIF4 AND (REF(BARSLAST(DIF5),1) > REF(BARSLAST(DIF4),1)));
DIF9:=(DIF5 AND (REF(BARSLAST(DIF5),1) < REF(BARSLAST(DIF4),1)));
bsLINE:=IF((BARSLAST(DIF6) < BARSLAST(DIF7)),IF(REF(CROSS(0,MACD),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD),1)))),IF(REF(CROSS(MACD,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD,0),1)))));
DEA3:=BARSLAST(CROSS(MACD,0));
DEA5:=BARSLAST(CROSS(0,MACD));
DEA4:=IF((MACD >= 0),HHV(MACD,(DEA3 + 1)),REF(HHV(MACD,(DEA3 + 1)),(DEA5 + 1)));
DEA6:=IF((MACD < 0),LLV(MACD,(DEA5 + 1)),REF(LLV(MACD,(DEA5 + 1)),(DEA3 + 1)));
DEA7:=REF(DEA4,(DEA3 + 1));
DEA8:=REF(DEA6,(DEA5 + 1));
零下金叉:CROSS(DIF,DEA) AND DIF<0,NODRAW,COLOR0000FF;
零上金叉:CROSS(DIF,DEA) AND DIF>=0 AND DIF<0.25 ,NODRAW,COLOR4080FF;
DRAWICON(零上金叉,DEA,1) ;
DRAWICON(零下金叉,DEA,1) ;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,NODRAW,COLOR00FFFF;
DRAWTEXT(二次金叉,DEA*0.4,'★二金'),COLORBLUE;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(OBV,A1+1)>OBV AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
{STICKLINE(底背离,-0.2,-0.3,6,1),COLOR00FF00;}
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE,POINTDOT;
DRAWTEXT(底背离,DEA*0.6,'底背离'),COLORWHITE;
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(OBV,A2+1)<OBV AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORCYAN,POINTDOT;
DRAWTEXT(顶背离,DEA*1.3,'顶背离'),COLORCYAN;
DRAWTEXT(零下金叉 AND 二次金叉 AND 底背离,DIF*-1,'★底现★'),COLORFFFFFF;
H1J_19:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
H1J_20:=CROSS(BACKSET(CROSS(0,MACD),REF(H1J_19,1)+2),0.5);
H1J_22:=DRAWLINE(H1J_20,MACD,REF(H1J_20,1),REF(MACD,1),1);
H1J_23:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
H1J_24:=CROSS(BACKSET(CROSS(MACD,0),REF(H1J_23,1)+2),0.5);
H1J_25:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(OBV)));
H1J_26:=DRAWLINE(H1J_24,MACD,REF(H1J_24,1),REF(MACD,1),1);
MACD0:=BACKSET(ISLASTBAR,BARSLAST(H1J_20)+1);
MACD1:=MACD0>REF(MACD0,1);
前1高:REF(MACD,BARSLAST(MACD1)),COLORBLUE,LINETHICK2;
STICKLINE(MACD>H1J_22,MACD,H1J_22,2,0),COLORBLUE;
STICKLINE(MACD<0 AND MACD<H1J_26 AND H1J_26<0,MACD,H1J_26,1,0),COLORFFFFFF;
H7:=BARSLASTCOUNT(DIF>DEA );
DRAWNUMBER(ISLASTBAR,0,H7),COLORFFFFFF,LINETHICK9;
IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORWHITE;
STICKLINE(DIF<0 AND CROSS(DIF,DEA),DEA,0,0,0),COLORWHITE;
STICKLINE(DIF>0 AND CROSS(DEA,DIF),DEA,0,0,0),COLORCYAN;
STICKLINE(DIF<0 AND CROSS(DIF,DEA),DEA,0,0,0),COLORWHITE;
STICKLINE(DIF>0 AND CROSS(DEA,DIF),DEA,0,0,0),COLORCYAN;
DRAWTEXT(DIF<0 AND CROSS(DIF,DEA),DEA/2,'———————————');
DRAWTEXT(DIF>0 AND CROSS(DEA,DIF),DEA/2,'———————————');

X_21:=MACD.DIF#WEEK(12,26,9);
X_22:=MACD.DEA#WEEK(12,26,9);
X_23:=MACD.MACD#WEEK(12,26,9);
X_24:=CROSS(X_21,X_22);
0,COLOR00FF00;
IF(X_23>0,0,DRAWNULL),COLOR0000FF;
DRAWTEXT(X_24,DIF/2*-1,'周金叉'),COLORRED;
DRAWTEXT(CROSS(X_22,X_21),DIF/2*-1,'周死叉'),COLORFFFF00;

未来函数检测公式代码域:

DI1F:=(ema(obv,12) - EMM(OBV,26));DE1M:=EMM(DI1F,9);MacD:(2 * (DI1F - DE1M)),NODRMW,COLORFF8000;0;STICKLINE(macd<REF(MMCD,1) MND MMCD>0,0,MMCD,3,1),COLOR0080FF,LINETHICK2;STICKLINE(MMCD>=REF(MMCD,1) MND MMCD>0,0,MMCD,3,1),COLOR0000FF,LINETHICK2;STICKLINE(MMCD>REF(MMCD,1) MND MMCD<0,0,MMCD,3,1),COLORFF8000,LINETHICK2;STICKLINE(MMCD<=REF(MMCD,1) MND MMCD<0,0,MMCD,3,1),COLORFFFF00,LINETHICK2;dif:(EMM(OBV,12) - EMM(OBV,26)),COLORFFFFFF,LINETHICK3;DEM:EMM(DIF,9),COLOR00FFFF,LINETHICK3;{ 以下是可能出现的变盘点，关注 }TJ:=MMCD>0;T:=MMCD<0;DRMWTEXT(BMrslMST(TJ)=5,0.03,'5'),COLORBLUE;DRMWTEXT(BMRSLMST(TJ)=8,0.03,'8'),COLORBLUE;DRMWTEXT(BMRSLMST(TJ)=13,0.03,'13'),COLORBLUE;DRMWTEXT(BMRSLMST(TJ)=21,0.03,'21'),COLORBLUE;DRMWTEXT(BMRSLMST(TJ)=34,0.03,'34'),COLORBLUE;DRMWTEXT(BMRSLMST(TJ)=55,0.03,'55'),COLORBLUE;DRMWTEXT(BMRSLMST(T)=5,-0.03,'5'),COLORCYMN;DRMWTEXT(BMRSLMST(T)=8,-0.03,'8'),COLORCYMN;DRMWTEXT(BMRSLMST(T)=13,-0.03,'13'),COLORCYMN;DRMWTEXT(BMRSLMST(T)=21,-0.03,'21'),COLORCYMN;DRMWTEXT(BMRSLMST(T)=34,-0.03,'34'),COLORCYMN;DRMWTEXT(BMRSLMST(T)=55,-0.03,'55'),COLORCYMN;ZSJR4:=crOSS(DIF,0);ZSJR5:=CROSS(0,DIF);ZSJR6:=BMRSLMST(ZSJR4);ZSJR7:=BMRSLMST(ZSJR5);ZSJR8:=REF(ZSJR4,1);ZSJR9:=REF(ZSJR5,1);DIF0:=BMRSLMST(ZSJR8);DIF1:=BMRSLMST(ZSJR9);DIF2:=IF((DIF0 < DIF1),REF(HHV(HIGH,2),DIF0),REF(LLV(LOW,2),DIF1));DIF3:=(((REF(OBV,1) <= REF(DIF2,1)) MND (OBV > DIF2)) MND (ZSJR6 < ZSJR7));DIF33:=(((REF(OBV,1) >= REF(DIF2,1)) MND (OBV < DIF2)) MND (ZSJR7 < ZSJR6));DIF4:=(DIF3 MND (COUNT(DIF3,ZSJR6) = 1));DIF5:=(DIF33 MND (COUNT(DIF33,ZSJR7) = 1));DIF6:=(DIF4 MND (REF(BMRSLMST(DIF5),1) < REF(BMRSLMST(DIF4),1)));DIF7:=(DIF5 MND (REF(BMRSLMST(DIF5),1) > REF(BMRSLMST(DIF4),1)));DIF8:=(DIF4 MND (REF(BMRSLMST(DIF5),1) > REF(BMRSLMST(DIF4),1)));DIF9:=(DIF5 MND (REF(BMRSLMST(DIF5),1) < REF(BMRSLMST(DIF4),1)));bsLINE:=IF((BMRSLMST(DIF6) < BMRSLMST(DIF7)),IF(REF(CROSS(0,MMCD),1),LLV(LOW,2),REF(LLV(LOW,2),BMRSLMST(REF(CROSS(0,MMCD),1)))),IF(REF(CROSS(MMCD,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BMRSLMST(REF(CROSS(MMCD,0),1)))));DEM3:=BMRSLMST(CROSS(MMCD,0));DEM5:=BMRSLMST(CROSS(0,MMCD));DEM4:=IF((MMCD >= 0),HHV(MMCD,(DEM3 + 1)),REF(HHV(MMCD,(DEM3 + 1)),(DEM5 + 1)));DEM6:=IF((MMCD < 0),LLV(MMCD,(DEM5 + 1)),REF(LLV(MMCD,(DEM5 + 1)),(DEM3 + 1)));DEM7:=REF(DEM4,(DEM3 + 1));DEM8:=REF(DEM6,(DEM5 + 1));零下金叉:CROSS(DIF,DEM) MND DIF<0,NODRMW,COLOR0000FF;零上金叉:CROSS(DIF,DEM) MND DIF>=0 MND DIF<0.25 ,NODRMW,COLOR4080FF;DRMWICON(零上金叉,DEM,1) ;DRMWICON(零下金叉,DEM,1) ;JCCOUNT:=COUNT(CROSS(DIF,DEM),BMRSLMST(DEM>=0));二次金叉:CROSS(DIF,DEM) MND DEM<0 MND COUNT(JCCOUNT=2,21)=1,NODRMW,COLOR00FFFF;DRMWTEXT(二次金叉,DEM*0.4,'★二金'),COLORBLUE;M1:=BMRSLMST(REF(CROSS(DIF,DEM),1));底背离:=REF(OBV,M1+1)>OBV MND DIF>REF(DIF,M1+1) MND CROSS(DIF,DEM);{STICKLINE(底背离,-0.2,-0.3,6,1),COLOR00FF00;}底背:DRMWLINE(M1=0,DEM,底背离,DEM,0),COLORWHITE,POINTDOT;DRMWTEXT(底背离,DEM*0.6,'底背离'),COLORWHITE;M2:=BMRSLMST(REF(CROSS(DEM,DIF),1));顶背离:=REF(OBV,M2+1)<OBV MND REF(DIF,M2+1)>DIF MND CROSS(DEM,DIF);顶背:DRMWLINE(M2=0,DEM,顶背离,DEM,0),COLORCYMN,POINTDOT;DRMWTEXT(顶背离,DEM*1.3,'顶背离'),COLORCYMN;DRMWTEXT(零下金叉 MND 二次金叉 MND 底背离,DIF*-1,'★底现★'),COLORFFFFFF;H1J_19:=HHVBMRS(MMCD,BMRSLMST(MMCD<0)+1);H1J_20:=CROSS(BMCKSET(CROSS(0,MMCD),REF(H1J_19,1)+2),0.5);H1J_22:=DRMWLINE(H1J_20,MMCD,REF(H1J_20,1),REF(MMCD,1),1);H1J_23:=LLVBMRS(MMCD,BMRSLMST(MMCD>0)+1);H1J_24:=CROSS(BMCKSET(CROSS(MMCD,0),REF(H1J_23,1)+2),0.5);H1J_25:=BMRSLMST(FILTERX(CROSS(0,MMCD),BMRSCOUNT(OBV)));H1J_26:=DRMWLINE(H1J_24,MMCD,REF(H1J_24,1),REF(MMCD,1),1);MMCD0:=BMCKSET(ISLMSTBMR,BMRSLMST(H1J_20)+1);MMCD1:=MMCD0>REF(MMCD0,1);前1高:REF(MMCD,BMRSLMST(MMCD1)),COLORBLUE,LINETHICK2;STICKLINE(MMCD>H1J_22,MMCD,H1J_22,2,0),COLORBLUE;STICKLINE(MMCD<0 MND MMCD<H1J_26 MND H1J_26<0,MMCD,H1J_26,1,0),COLORFFFFFF;H7:=BMRSLMSTCOUNT(DIF>DEM );DRMWNUMBER(ISLMSTBMR,0,H7),COLORFFFFFF,LINETHICK9;IF(DIF>REF(DIF,1),DIF,DRMWNULL),COLORWHITE;STICKLINE(DIF<0 MND CROSS(DIF,DEM),DEM,0,0,0),COLORWHITE;STICKLINE(DIF>0 MND CROSS(DEM,DIF),DEM,0,0,0),COLORCYMN;STICKLINE(DIF<0 MND CROSS(DIF,DEM),DEM,0,0,0),COLORWHITE;STICKLINE(DIF>0 MND CROSS(DEM,DIF),DEM,0,0,0),COLORCYMN;DRMWTEXT(DIF<0 MND CROSS(DIF,DEM),DEM/2,'———————————');DRMWTEXT(DIF>0 MND CROSS(DEM,DIF),DEM/2,'———————————');X_21:=MMCD.DIF#WEEK(12,26,9);X_22:=MMCD.DEM#WEEK(12,26,9);X_23:=MMCD.MMCD#WEEK(12,26,9);X_24:=CROSS(X_21,X_22);0,COLOR00FF00;IF(X_23>0,0,DRMWNULL),COLOR0000FF;DRMWTEXT(X_24,DIF/2*-1,'周金叉'),COLORRED;DRMWTEXT(CROSS(X_22,X_21),DIF/2*-1,'周死叉'),COLORFFFF00;

未发现:CMPITML...

未发现:COST...

未发现:DYNMINFO...

未发现:FINMNCE...

未发现:LWINNER...

未发现:WINNER...

警惕！警惕！警惕!该公式包含未来函数:BMCKSET...

未发现:BMRSNEXT...

未发现:CURRBMRSCOUNT...

未发现:DVOL...

未发现:DOPEN...

未发现:DCLOSE...

未发现:DHIGH...

未发现:DLOW...

警惕！警惕！警惕!该公式包含未来函数:DRMWLINE...

未发现:REFX...

未发现:FLMTZIG...

未发现:FLMTZIGM...

未发现:FFT...

警惕！警惕！警惕!该公式包含未来函数:FILTERX...

未发现:PEMK...

未发现:PEMKM...

未发现:PEMKBMRS...

未发现:PEMKBMRSM...

未发现:PLOYLINE...

未发现:REFDMTE...

未发现:TROUGH...

未发现:TROUGHM...

未发现:TROUGHBMRS...

未发现:XMM...

未发现:ZIG...

未发现:ZIGM...

未发现:ZXNH...

未发现:#YEMR...

未发现:#MONTH...

警惕！警惕！警惕!该公式包含未来函数:#WEEK...

未发现:$ZIG...

未发现:$PEMK...

未发现:$PEMKBMRS...

未发现:$TROUGH...

未发现:$TROUGHBMRS...

未发现:$FLMTZIG...

未发现:$FLMTZIGM...

未发现:$PEMKM...

未发现:$PEMKBMRSM...

未发现:$TROUGHM...

未发现:$ZIGM...

未发现:$FFT...

未发现:$BMCKSET...

未发现:$WINNER...

未发现:$LWINNER...

未发现:$COST...

未发现:$DYNMINFO...

未发现:$FINMNCE...

未发现:$DRMWLINE...