通达信MACD变盘点未加密选股指标公式源码

通达信MACD变盘点未加密选股指标公式源码

源码正文：

DI1F:=(ema(obv,12) - Ema(OBV,26)){XG51};
DE1A:=EMA(DI1F,9){XG51};
macd:(2 * (DI1F - DE1A)),NODRAW,COLORFF8000{XG51};
0{XG51};
stICKLINE(MacD<REF(MACD,1) AND MACD>0,0,MACD,3,1),COLOR0080FF,LINETHICK2{XG51};
STICKLINE(MACD>=REF(MACD,1) AND MACD>0,0,MACD,3,1),COLOR0000FF,LINETHICK2{XG51};
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,3,1),COLORFF8000,LINETHICK2{XG51};
STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,3,1),COLORFFFF00,LINETHICK2{XG51};
dif:(EMA(OBV,12) - EMA(OBV,26)),COLORFFFFFF,LINETHICK3{XG51};
DEA:EMA(DIF,9),COLOR00FFFF,LINETHICK3{XG51};
TJ:=MACD>0{XG51};
T:=MACD<0{XG51};
DRAWTEXT(BArslAST(TJ)=5,0.03,'5'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=8,0.03,'8'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=13,0.03,'13'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=21,0.03,'21'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=34,0.03,'34'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=55,0.03,'55'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(T)=5,-0.03,'5'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=8,-0.03,'8'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=13,-0.03,'13'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=21,-0.03,'21'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=34,-0.03,'34'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=55,-0.03,'55'),COLORCYAN{XG51};
ZSJR4:=crOSS(DIF,0){XG51};
ZSJR5:=CROSS(0,DIF){XG51};
ZSJR6:=BARSLAST(ZSJR4){XG51};
ZSJR7:=BARSLAST(ZSJR5){XG51};
ZSJR8:=REF(ZSJR4,1){XG51};
ZSJR9:=REF(ZSJR5,1){XG51};
DIF0:=BARSLAST(ZSJR8){XG51};
DIF1:=BARSLAST(ZSJR9){XG51};
DIF2:=IF((DIF0 < DIF1),REF(HHV(HIGH,2),DIF0),REF(LLV(LOW,2),DIF1)){XG51};
DIF3:=(((REF(OBV,1) <= REF(DIF2,1)) AND (OBV > DIF2)) AND (ZSJR6 < ZSJR7)){XG51};
DIF33:=(((REF(OBV,1) >= REF(DIF2,1)) AND (OBV < DIF2)) AND (ZSJR7 < ZSJR6)){XG51};
DIF4:=(DIF3 AND (COUNT(DIF3,ZSJR6) = 1)){XG51};
DIF5:=(DIF33 AND (COUNT(DIF33,ZSJR7) = 1)){XG51};
DIF6:=(DIF4 AND (REF(BARSLAST(DIF5),1) < REF(BARSLAST(DIF4),1))){XG51};
DIF7:=(DIF5 AND (REF(BARSLAST(DIF5),1) > REF(BARSLAST(DIF4),1))){XG51};
DIF8:=(DIF4 AND (REF(BARSLAST(DIF5),1) > REF(BARSLAST(DIF4),1))){XG51};
DIF9:=(DIF5 AND (REF(BARSLAST(DIF5),1) < REF(BARSLAST(DIF4),1))){XG51};
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))))){XG51};
DEA3:=BARSLAST(CROSS(MACD,0)){XG51};
DEA5:=BARSLAST(CROSS(0,MACD)){XG51};
DEA4:=IF((MACD >= 0),HHV(MACD,(DEA3 + 1)),REF(HHV(MACD,(DEA3 + 1)),(DEA5 + 1))){XG51};
DEA6:=IF((MACD < 0),LLV(MACD,(DEA5 + 1)),REF(LLV(MACD,(DEA5 + 1)),(DEA3 + 1))){XG51};
DEA7:=REF(DEA4,(DEA3 + 1)){XG51};
DEA8:=REF(DEA6,(DEA5 + 1)){XG51};
零下金叉:CROSS(DIF,DEA) AND DIF<0,NODRAW,COLOR0000FF{XG51};
零上金叉:CROSS(DIF,DEA) AND DIF>=0 AND DIF<0.25 ,NODRAW,COLOR4080FF{XG51};
DRAWICON(零上金叉,DEA,1) {XG51};
DRAWICON(零下金叉,DEA,1) {XG51};
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0)){XG51};
二次金叉:CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,NODRAW,COLOR00FFFF{XG51};
DRAWTEXT(二次金叉,DEA*0.4,'★二金'),COLORBLUE{XG51};
A1:=BARSLAST(REF(CROSS(DIF,DEA),1)){XG51};
底背离:=REF(OBV,A1+1)>OBV AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA){XG51};
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE,POINTDOT{XG51};
DRAWTEXT(底背离,DEA*0.6,'底背离'),COLORWHITE{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIF),1)){XG51};
顶背离:=REF(OBV,A2+1)<OBV AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF){XG51};
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORCYAN,POINTDOT{XG51};
DRAWTEXT(顶背离,DEA*1.3,'顶背离'),COLORCYAN{XG51};
DRAWTEXT(零下金叉 AND 二次金叉 AND 底背离,DIF*-1,'★底现★'),COLORFFFFFF{XG51};
H1J_19:=HHVBARS(MACD,BARSLAST(MACD<0)+1){XG51};
H1J_20:=CROSS(BACKSET(CROSS(0,MACD),REF(H1J_19,1)+2),0.5){XG51};
H1J_22:=DRAWLINE(H1J_20,MACD,REF(H1J_20,1),REF(MACD,1),1){XG51};
H1J_23:=LLVBARS(MACD,BARSLAST(MACD>0)+1){XG51};
H1J_24:=CROSS(BACKSET(CROSS(MACD,0),REF(H1J_23,1)+2),0.5){XG51};
H1J_25:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(OBV))){XG51};
H1J_26:=DRAWLINE(H1J_24,MACD,REF(H1J_24,1),REF(MACD,1),1){XG51};
MACD0:=BACKSET(ISLASTBAR,BARSLAST(H1J_20)+1){XG51};
MACD1:=MACD0>REF(MACD0,1){XG51};
前1高:REF(MACD,BARSLAST(MACD1)),COLORBLUE,LINETHICK2{XG51};
STICKLINE(MACD>H1J_22,MACD,H1J_22,2,0),COLORBLUE{XG51};
STICKLINE(MACD<0 AND MACD<H1J_26 AND H1J_26<0,MACD,H1J_26,1,0),COLORFFFFFF{XG51};
H7:=BARSLASTCOUNT(DIF>DEA ){XG51};
DRAWNUMBER(ISLASTBAR,0,H7),COLORFFFFFF,LINETHICK9{XG51};
IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORWHITE{XG51};
STICKLINE(DIF<0 AND CROSS(DIF,DEA),DEA,0,0,0),COLORWHITE{XG51};
STICKLINE(DIF>0 AND CROSS(DEA,DIF),DEA,0,0,0),COLORCYAN{XG51};
STICKLINE(DIF<0 AND CROSS(DIF,DEA),DEA,0,0,0),COLORWHITE{XG51};
STICKLINE(DIF>0 AND CROSS(DEA,DIF),DEA,0,0,0),COLORCYAN{XG51};
DRAWTEXT(DIF<0 AND CROSS(DIF,DEA),DEA/2,'———————————'){XG51};
DRAWTEXT(DIF>0 AND CROSS(DEA,DIF),DEA/2,'———————————'){XG51};
X_21:=MACD.DIF#WEEK(12,26,9){XG51};
X_22:=MACD.DEA#WEEK(12,26,9){XG51};
X_23:=MACD.MACD#WEEK(12,26,9){XG51};
X_24:=CROSS(X_21,X_22){XG51};
0,COLOR00FF00{XG51};
IF(X_23>0,0,DRAWNULL),COLOR0000FF{XG51};
DRAWTEXT(X_24,DIF/2*-1,'周金叉'),COLORRED{XG51};
DRAWTEXT(CROSS(X_22,X_21),DIF/2*-1,'周死叉'),COLORFFFF00{X_G*5_1_C_N_{};

通达信起飞未加密选股指标公式源码

源码正文：

X_1:=HHV(HIGH,240){XG51};
X_2:=HHV(HIGH,240)*0.75{XG51};
X_3:=HHV(HIGH,240)*0.5{XG51};
起飞:=CLOSE>X_2 AND CLOSE>OPEN AND X_1>REF(X_1,1){XG51};
XG:FILTER(起飞,20){X~G.5!1~C~N~{};