通达信整合MACD划线选股指标公式源码

通达信整合MACD划线选股指标公式源码

源码正文：

dif:ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:EMA(DIF,9),COLOR888888{XG51};
NOTEXT5:IF(DIF>=DEA, DIF,DRAWNULL),COLORWHITE{XG51};
NOTEXT6:IF(DIF<DEA, DIF,DRAWNULL),COLORRED{XG51};
AT1:=BArslAst(REF(crOSS(DIF,DEA),1)){XG51};
BT1:=REF(C,AT1+1)>C AND REF(DIF,AT1+1)<DIF AND CROSS(DIF,DEA){XG51};
AT2:=BARSLAST(REF(CROSS("kdj.K"(9,3,3),"kdJ.D"(9,3,3)),1)){XG51};
CT1:=BARSLAST(REF(CROSS(DEA,DIF),1)){XG51};
DT1:=REF(C,CT1+1)<C AND REF(DIF,CT1+1)>DIF AND CROSS(DEA,DIF){XG51};
macd底背:IF(BT1>0,-0.1,0),COLORWHITE{XG51};
MacD顶背:IF(DT1>0,0.1,0),COLOR00FF00{XG51};
STICKLINE(BT1>0,0.5*DIF,0,2,0),COLORWHITE{XG51};
STICKLINE(DT1>0,0.5*DIF,0,2,0),COLOR00FF00{XG51};
MACD:(DIF-DEA)*2,COLORSTICK{XG51};
STICKLINE(MACD<REF(MACD,1) AND MACD>0, 0,MACD,0,0),COLOR44FF00{XG51};
STICKLINE(MACD>REF(MACD,1) AND MACD<0, 0,MACD,0,0),COLOR0066FF{XG51};
M1:=13{XG51};
M2:=13{XG51};
A1:=REF(DIF,M1)=HHV(DIF,2*M1+1){XG51};
B1:=FILTER(A1,M1){XG51};
C1:=BACKSET(B1,M1+1){XG51};
D1:=FILTER(C1,M1){XG51};
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1){XG51};
F1:=E1>REF(E1,1){XG51};
A2:=REF(DIF,M2)=LLV(DIF,2*M2+1){XG51};
B2:=FILTER(A2,M2){XG51};
C2:=BACKSET(B2,M2+1){XG51};
D2:=FILTER(C2,M2){XG51};
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1){XG51};
F2:=E2>REF(E2,1){XG51};
压力线:DRAWLINE(D1,DIF,F1,DIF,0),COLORFFFF00,DOTLINE{XG51};
支撑线:DRAWLINE(D2,DIF,F2,DIF,0),COLOR00AAFF,DOTLINE{XG51};
G3:=FILTERX(支撑线>REF(支撑线,1) && DIF>支撑线 && REF(支撑线,1)=REF(DIF,1),2){XG51};
底抬高:DRAWLINE(D2,DIF,G3,支撑线,0),COLORBLUE,DOTLINE{XG51};
M:=INTPART(3*10/5){XG51};
A12:=REF(DIF,M)=HHV(DIF,2*M+1){XG51};
B12:=FILTER(A12,M){XG51};
C12:=BACKSET(B12,M+1){XG51};
D12:=FILTER(C12,M){XG51};
R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1){XG51};
S112:=R112>REF(R112,1){XG51};
AL12:=REF(DIF,M)=LLV(DIF,2*M+1){XG51};
BL12:=FILTER(AL12,M){XG51};
CL12:=BACKSET(BL12,M+1){XG51};
DL12:=FILTER(CL12,M){XG51};
RL112:=BACKSET(ISLASTBAR,BARSLAST(DL12)+1){XG51};
SL112:=RL112>REF(RL112,1){XG51};
短压线:DRAWLINE(D12,DIF,S112,DIF,0),COLOR99FF00,DOTLINE{XG51};
短撑线:DRAWLINE(DL12,DIF,SL112,DIF,0),COLOR0055FF,DOTLINE{XG51};
VARX2:=LLV(DEA,43){XG51};
VARX3:=DEA-(DIF-DEA){XG51};
低点线:=IF(DIF<VARX2 AND DEA=VARX2,MIN(HHV(VARX2,10),VARX3),VARX2){XG51};
VL:=REF(LOW,1){XG51};
VAR12:=(SMA(Abs(LOW-VL),13,1))/(SMA(MAX(LOW-VL,0),13,1))*100{XG51};
VAR14:=MA(VAR12,13){XG51};
VAR15:=LLV(LOW,34){XG51};
VAR18:=EMA(IF(LOW<=VAR15,VAR14,0),3){XG51};
VAR110:=SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,7,1),5,1){XG51};
VAR111:=SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,8,1)*15-VAR110*10.38{XG51};
T:=FILTER(IF(VAR111<=VAR110 AND VAR18>0,VAR18*8,0),5){XG51};
止跌:DRAWTEXT(T AND DIF<低点线,DIF*1.01,'止跌'),COLORBLUE{XG51};
A:=IF(CROSS(0,DEA),1,0){XG51};
A11:=IF(DIF<0 AND CROSS(DIF,DEA),1,0){XG51};
SS:=IF(A,SUM(A11,0),0){XG51};
SSB:=HHV(SS,0){XG51};
SSS:=SUM(A11,0){XG51};
W底:=SSS-SSB=2 AND SSS>REF(SSS,1){XG51};
DRAWTEXT(W底,DIF,'↖W底'),COLOR0080FF{XG51};
MACD金叉:=CROSS(MACD,DIF) AND MACD>=(0-0.05) AND MACD<=0.02{XG51};
DRAWTEXT(MACD金叉,MACD,'-MACD金叉'),COLOR00FFFF{XG51};
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1{XG51};
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
DRAWTEXT(二次金叉,0.01,'二次金叉'),COLOR5500FF{XG51};
AA11:=BARSLAST(REF(CROSS(DIF,DEA),1)){XG51};
底背离:=REF(CLOSE,AA11+1)>CLOSE AND DIF>REF(DIF,AA11+1) AND CROSS(DIF,DEA){XG51};
底背:DRAWLINE(AA11=0,DIF,底背离,DIF,0),COLORBLUE,LINETHICK2{XG51};
AA22:=BARSLAST(REF(CROSS(DEA,DIF),1)){XG51};
顶背离:=REF(CLOSE,AA22+1)<CLOSE AND REF(DIF,AA22+1)>DIF AND CROSS(DEA,DIF){XG51};
顶背:DRAWLINE(AA22=0,DIF,顶背离,DIF,0),COLORCYAN,LINETHICK2{XG51};
DRAWTEXT(底背离,DIF*0.5,'-DIF底背'),COLOR0055FF{XG51};
DRAWTEXT(顶背离,DIF*0.5,'-DIF顶背'),COLOR99FF00{XG51};
N:=3{XG51};
DIF3_6.5F:=(EMA(CLOSE,3)-(EMA(CLOSE,6)+EMA(CLOSE,7))/2){XG51};
DEA3_6.5F:=(EMA(DIF3_6.5F,3)+EMA(DIF3_6.5,2)){XG51};
AA:=REF(DIF3_6.5F,N)=HHV(DIF3_6.5F,2*N+1){XG51};
CC:=FILTER(BB,N) AND DIF3_6.5F=HHV(DIF3_6.5F,N+1){XG51};
AX1:=BARSLAST(REF(CC,1)){XG51};
小顶背离:=REF(CLOSE,AX1+1)<CLOSE AND REF(DIF3_6.5F,AX1+1)>DIF3_6.5F AND CC{XG51};
DRAWTEXT(小顶背离,DIF3_6.5F*1.2,'-小顶背离'),COLORCYAN{XG51};
DRAWICON(小顶背离>0,DIF3_6.5F*1.2,2){XG51};
AAA2:=REF(DIF3_6.5F,N)=LLV(DIF3_6.5F,2*N+1){XG51};
BBB2:=BACKSET(AAA2,N+1){XG51};
CCC2:=FILTER(BBB2,N) AND DIF3_6.5F=LLV(DIF3_6.5F,N+1){XG51};
AX2:=BARSLAST(REF(CCC2,1)){XG51};
小底背离:=REF(CLOSE,AX2+1)>CLOSE AND REF(DIF3_6.5F,AX2+1)<DIF3_6.5F{XG51};
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1){XG51};
VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5){XG51};
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5){XG51};
前高:=DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORLIMAGENTA{XG51};
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1){XG51};
VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5){XG51};
前低:=DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1){XG51};
BD:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(C))){XG51};
BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)),
BARSCOUNT(C)),DRAWNULL){XG51};
TSBDTJ:=BARSLAST(BDTJ){XG51};
BDZH:=FILTERX(MACD<CONST(LLV(MACD,BD+1)),BARSCOUNT(C)){XG51};
BDTS:=BARSLAST(BDZH){XG51};
本低:=IF(BD+1>=1,CONST(LLV(MACD,BD+1)),DRAWNULL){XG51};
BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 AND MACD<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0{XG51};
终点:=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL)){XG51};
UU:=(终点=1 OR 终点=2) AND MACD>0{XG51};
ZZ:=FILTERX(UU,BARSCOUNT(C)){XG51};
本高:=DRAWLINE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),1),COLORRED{XG51};
WQG:=CROSS(COUNT(CROSS(MACD<本高/2 AND MACD>0,0.5),ZZ)=1,0.5) AND ZZ>=0{XG51};
STICKLINE(MACD>前高,MACD,前高,0,0),COLORFFFFFF{XG51};
STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,0,0),COLORFFFFFF{XG51};
DRAWICON(CROSS(DIF,DEA),DEA,1){XG51};
DRAWICON(CROSS(DEA,DIF),DEA,2){XG51};
底:ABS((CROSS("MACD.DIF","MACD.DEA")&&"MACD.DEA"<=-0.07)*"MACD.DIF")*1.50,COLORMAGENTA{XG51};
DRAWTEXT(ABS(底)>0,底*1.20,'底'),COLORBLUE{X_G~5_1_C_N_{};