通达信MACD改良版指标公式

SHORT:=12; LONG:=26; MID:=9; DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG); DEA:EMA(DIF,MID); MACD:(DIF-DEA)*2,COLORSTICK; IF(DIF DEA,DIF,DRAWNULL)COLOR0099FF; {0,COLORWHITE,DOTLINE;} A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1)); B1:=REF(C,A1+1) CANDREF("MACD.DIF",A1+1) "MACD.DIF"ANDCROSS("MACD.DIF","MACD.DEA"); DRAWICON(B1 0,LLV(DIF,60)*0.84,1); DRAWTEXT(B1 0,LLV(DIF,60)*0.85,'..MACD'),COLOR9900FF;{MACD底} C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1)); D1:=REF(C,C1+1) CANDREF("MACD.DIF",C1+1) "MACD.DIF"ANDCROSS("MACD.DEA","MACD.DIF"); DRAWICON(D1 0,HHV(DIF,60)*0.84,2); DRAWTEXT(D1 0,HHV(DIF,60)*0.85,'..MACD'),COLORFFCC00;{MACD顶背离} A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1)); B2:=REF(C,A2+1) CANDREF("KDJ.K",A2+1) "KDJ.K"ANDCROSS("KDJ.K","KDJ.D"){AND"KDJ.J" DRAWICON(B2 0,LLV(DIF,60)*0.59,1); DRAWTEXT(B2 0,LLV(DIF,60)*0.60,'..KDJ'),COLORFF33FF;{KDJ底背离} C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)); D2:=REF(C,C2+1) CANDREF("KDJ.K",C2+1) "KDJ.K"ANDCROSS("KDJ.D","KDJ.K"){AND"KDJ.J" DRAWICON(D2 0,HHV(DIF,60)*0.59,2); DRAWTEXT(D2 0,HHV(DIF,60)*0.60,'..KDJ'),COLORFFFF99;{KDJ顶背离} A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1)); B3:=REF(C,A3+1) CANDREF("RSI.RSI1",A3+1) "RSI.RSI1"ANDCROSS("RSI.RSI1","RSI.RSI2"){AND"RSI.RSI1" DRAWICON(B3 0,LLV(DIF,60)*0.34,1); DRAWTEXT(B3 0,LLV(DIF,60)*0.35,'..RSI'),COLOR6699FF;{RSI底背离} C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)); D3:=REF(C,C3+1) CANDREF("RSI.RSI1",C3+1) "RSI.RSI1"ANDCROSS("RSI.RSI2","RSI.RSI1"){AND"RSI.RSI1" DRAWICON(D3 0,HHV(DIF,60)*0.34,2); DRAWTEXT(D3 0,HHV(DIF,60)*0.35,'..RSI'),COLORFFCC99;{RSI顶背离} JC:=DEA-DIF; 绿柱:=IF(MACD 0,SUM(MACD,BARSLAST(JC 0)),0); 红柱:=IF(MACD 0,SUM(MACD,BARSLAST(JC 0)),0); 本次最低价:=LLV(L,BARSLAST(JC 本次最高价:=HHV(H,BARSLAST(JC X1:=IF(MACD 0,BARSLAST(CROSS(DIF,DEA)),0); 前次绿柱:=REF(绿柱,X1+1); 前次最低价:=REF(本次最低价,X1+1); Y1:=IF((绿柱 0ANDABS(绿柱) ABS(前次绿柱) AND本次最低价前次最低价),1,0); RS1:=MACD 0ANDREF(MACD,1) 0ANDC 前次最低价 ANDABS(绿柱) ABS(前次绿柱)ANDABS(MACD) ABS(REF(MACD,1)); 底背驰:=IF(CROSS(DIF,DEA),REF(Y1,1),0); DRAWICON(底背驰,LLV(DIF,60)*0.1,1); DRAWTEXT(底背驰,LLV(DIF,60)*0.1,'..柱'),COLOR00CCFF;{柱底背离} X2:=IF(MACD 0,BARSLAST(CROSS(DEA,DIF)),0); 前次红柱:=REF(红柱,X2+1); 前次最高价:=REF(本次最高价,X2+1); Y2:=IF((红柱 0AND红柱前次红柱AND本次最高价前次最高价),1,0); RS2:=MACD 0ANDREF(MACD,1) 0ANDC 前次最高价ANDABS(红柱) ABS(前次红柱)ANDABS(MACD) ABS(REF(MACD,1)); 顶背驰:=IF(CROSS(DEA,DIF),REF(Y2,1),0); DRAWICON(顶背驰,HHV(DIF,60)*0.1,2); DRAWTEXT(顶背驰,HHV(DIF,60)*0.1,'..柱'),COLORFFCCCC;{柱顶背离} {以下是可能出现的变盘点，关注} STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=7,0,MACD,0.5,0),COLORFF6666; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=15,0,MACD,0.5,0),COLORFF6666; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=28,0,MACD,0.5,0),COLORFF6666; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=36,0,MACD,0.5,0),COLORFF6666; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=48,0,MACD,0.5,0),COLORFF6666; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=7,0,MACD,0.5,0),COLOR006699; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=15,0,MACD,0.5,0),COLOR006699; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=28,0,MACD,0.5,0),COLOR006699; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=36,0,MACD,0.5,0),COLOR006699; STICKLINE(COUNT(DIF DEA,BARSLAST(CROSS(DIF,DEA))+1)=48,0,MACD,0.5,0),COLOR006699; DIFF:(Ema(CLOSE,12)-EMA(CLOSE,26))*100/EMA(CLOSE,26),COLORRED; DEA:EMA(DIFF,9),COLORRED,LINETHICK2; DIF:IF(DIFF REF(DIFF,1),DIFF,DRAWNULL),COLORGREEN; ADEA:IF(DEA REF(DEA,1),DEA,DRAWNULL),COLORGREEN,LINETHICK2; macd:2*(DIFF-DEA),COLORstICK,LINETHICK2; A1:=BArslAST(REF(crOSS(DIFF,DEA),1)); 背离:=REF(CLOSE,A1+1) CLOSEANDDIFF REF(DIFF,A1+1)ANDCROSS(DIFF,DEA); STICKLINE(背离,0,3,2,0),COLOR00FF00; DRAWLINE(A1=0,DEA,背离,DEA,0),COLORRED; DRAWTEXT(背离,5.2,'背离'); STICKLINE(MacD REF(MACD,1)ANDMACD 0,0,MACD,0.5,0),COLORFF00FF; STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD,0.5,0)COLOR00FF00; STICKLINE(MACD REF(MACD,1)ANDMACD,0,MACD,0.5,0),COLORYELLOW; STICKLINE(MACD REF(MACD,1)ANDMACD 0,0,MACD,0.5,0),COLORRED;

[源码注释通达信MACD改良版指标公式]公式解读

SHORT赋值:12

LONG赋值:26

MID赋值:9

输出DIF:收盘价的SHORT日指数移动平均-收盘价的LONG日指数移动平均

输出DEA:DIF的MID日指数移动平均

输出平滑异同平:(DIF-DEA)*2,COLORSTICK

如果DIF ,返回?,否则返回?

DEA,DIF,无效数)COLOR0099FF

A1赋值:上次1日前的"MACD.DIF"上穿"MACD.DEA"距今天数

B1赋值:A1+1日前的收盘价

CANDREF("MACD.DIF",A1+1)

"MACD.DIF"ANDCROSS("MACD.DIF","MACD.DEA")

当满足条件B1 时,在?位置画?号图标

0,60日内DIF的最低值*0.84,1)

当满足条件B1 时,在?位置书写文字

0,60日内DIF的最低值*0.85,'..MACD'),COLOR9900FF

C1赋值:上次1日前的"MACD.DEA"上穿"MACD.DIF"距今天数

D1赋值:C1+1日前的收盘价

CANDREF("MACD.DIF",C1+1)

"MACD.DIF"ANDCROSS("MACD.DEA","MACD.DIF")

当满足条件D1 时,在?位置画?号图标

0,60日内DIF的最高值*0.84,2)

当满足条件D1 时,在?位置书写文字

0,60日内DIF的最高值*0.85,'..MACD'),COLORFFCC00

A2赋值:上次1日前的"KDJ的K"上穿"KDJ的D"距今天数

B2赋值:A2+1日前的收盘价

CANDREF("KDJ的K",A2+1)

"KDJ的K"ANDCROSS("KDJ的K","KDJ的D")

当满足条件B2 时,在?位置画?号图标

0,60日内DIF的最低值*0.59,1)

当满足条件B2 时,在?位置书写文字

0,60日内DIF的最低值*0.60,'..KDJ'),COLORFF33FF

C2赋值:上次1日前的"KDJ的D"上穿"KDJ的K"距今天数

D2赋值:C2+1日前的收盘价

CANDREF("KDJ的K",C2+1)

"KDJ的K"ANDCROSS("KDJ的D","KDJ的K")

当满足条件D2 时,在?位置画?号图标

0,60日内DIF的最高值*0.59,2)

当满足条件D2 时,在?位置书写文字

0,60日内DIF的最高值*0.60,'..KDJ'),COLORFFFF99

A3赋值:上次1日前的"RSI的RSI1"上穿"RSI的RSI2"距今天数

B3赋值:A3+1日前的收盘价

CANDREF("RSI的RSI1",A3+1)

"RSI的RSI1"ANDCROSS("RSI的RSI1","RSI的RSI2")

当满足条件B3 时,在?位置画?号图标

0,60日内DIF的最低值*0.34,1)

当满足条件B3 时,在?位置书写文字

0,60日内DIF的最低值*0.35,'..RSI'),COLOR6699FF

C3赋值:上次1日前的"RSI的RSI2"上穿"RSI的RSI1"距今天数

D3赋值:C3+1日前的收盘价

CANDREF("RSI的RSI1",C3+1)

"RSI的RSI1"ANDCROSS("RSI的RSI2","RSI的RSI1")

当满足条件D3 时,在?位置画?号图标

0,60日内DIF的最高值*0.34,2)

当满足条件D3 时,在?位置书写文字

0,60日内DIF的最高值*0.35,'..RSI'),COLORFFCC99

JC赋值:DEA-DIF

绿柱赋值:如果MACD ,返回?,否则返回?

0,MACD的上次JC 距今天数日累和

0)),0)

红柱赋值:如果MACD ,返回?,否则返回?

0,MACD的上次JC 距今天数日累和

0)),0)

本次最低价赋值:上次JC 距今天数日内最低价的最低值

0))

本次最高价赋值:上次JC 距今天数日内最高价的最高值

0))

X1赋值:如果MACD ,返回?,否则返回?

0,上次DIF上穿DEA距今天数,0)

前次绿柱赋值:X1+1日前的绿柱

前次最低价赋值:X1+1日前的本次最低价

Y1赋值:如果(绿柱 ,返回?,否则返回?

0ANDABS(绿柱)

前次绿柱的绝对值AND本次最低价

前次最低价),1,0)

RS1赋值:MACD

0ANDREF(MACD,1)

0ANDC

前次最低价ANDABS(绿柱)

前次绿柱的绝对值ANDABS(MACD)

1日前的MACD的绝对值

底背驰赋值:如果DIF上穿DEA,返回1日前的Y1,否则返回0

当满足条件底背驰时,在60日内DIF的最低值*0.1位置画1号图标

当满足条件底背驰时,在60日内DIF的最低值*0.1位置书写文字,COLOR00CCFF

X2赋值:如果MACD ,返回?,否则返回?

0,上次DEA上穿DIF距今天数,0)

前次红柱赋值:X2+1日前的红柱

前次最高价赋值:X2+1日前的本次最高价

Y2赋值:如果(红柱 ,返回?,否则返回?

0AND红柱

前次红柱AND本次最高价

前次最高价),1,0)

RS2赋值:MACD

0ANDREF(MACD,1)

0ANDC

前次最高价ANDABS(红柱)

前次红柱的绝对值ANDABS(MACD)

1日前的MACD的绝对值

顶背驰赋值:如果DEA上穿DIF,返回1日前的Y2,否则返回0

当满足条件顶背驰时,在60日内DIF的最高值*0.1位置画2号图标

当满足条件顶背驰时,在60日内DIF的最高值*0.1位置书写文字,COLORFFCCCC