相關標簽:

?

MACD最經典的指標啦這指標會提醒頂底背離根據顏色還能夠看紅綠柱的力道

?

?

原理解析：
輸出DIFF : 收盤價的12日指數移動平均 - 收盤價的26日指數移動平均 輸出DEA : DIFF的9日指數移動平均 平滑異同平均=2*(DIFF-DEA) 輸出ZERO : 0 GJ賦值:收盤價和開盤價的較大值 當滿足條件平滑異同平均>0ANDMACD>=1日前的平滑異同平均時,在0和平滑異同平均位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0000FF 當滿足條件平滑異同平均>0ANDMACD<1日前的平滑異同平均時,在0和平滑異同平均位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFFF00 當滿足條件平滑異同平均<0ANDMACD>=1日前的平滑異同平均時,在0和平滑異同平均位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFF00FF 當滿足條件平滑異同平均<0ANDMACD<1日前的平滑異同平均時,在0和平滑異同平均位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00FF00 L4賦值:4日內GJ的最低值 JL賦值:(55日內DIFF的最高值-55日內DIFF的最低值)/5 GT賦值:DEA>1日前的DEA AND 1日前的DEA<2日前的DEA A1賦值:上次1日前的GT距今天數 底背離賦值:A1+1日前的L4>收盤價 AND DIFF>A1+1日前的DIFF AND GT 當滿足條件A1=0時,在DEA位置畫直線起點，當滿足條件底背離時,在A1日前的DEA位置畫直線終點,0表示是否延長.,畫紅色,線寬為2 當滿足條件底背離時,在DEA位置畫直線起點，當滿足條件底背離時,在A1日前的DEA位置畫直線終點,0表示是否延長.,畫紅色,線寬為2 當滿足條件底背離時,在A1日前的DEA*1.18位置書寫文字,COLORFF00FF H4賦值:4日內GJ的最高值 GT2賦值:DEA<1日前的DEA AND 1日前的DEA>2日前的DEA A2賦值:上次1日前的GT2距今天數 頂背離賦值: A2+1日前的H4<H4 AND DIFF<A2+1日前的DIFF AND GT2 當滿足條件A2=0時,在DEA位置畫直線起點，當滿足條件頂背離時,在A2日前的DEA位置畫直線終點,0表示是否延長.,畫綠色,線寬為2 當滿足條件頂背離時,在DEA位置畫直線起點，當滿足條件頂背離時,在A2日前的DEA位置畫直線終點,0表示是否延長.,畫綠色,線寬為2 當滿足條件頂背離時,在A2日前的DEA*1.18位置書寫文字,畫綠色 A0賦值:DIFF<0 AND DEA<0 A11賦值:A0>1日前的A0 A3賦值:上次A11距今天數 A4賦值:統計A3日中滿足DEA>0ANDDIFF>0的天數=0 A5賦值:DIFF上穿DEA A6賦值:上次A5距今天數 A7賦值:A6+1日前的A6+A6 A8賦值:(DIFF+DEA)/2 A9賦值:(最高價+最低價)/2 A10賦值:A5 AND A7<A3 AND A4 AND A8>A7日前的A8 AND A9<A7日前的A9 AND 平滑異同平均>0 當滿足條件A10時,在DIFF*0.95位置書寫文字,畫黃色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

?

DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD=2*(DIFF-DEA);
Zero : 0;
gj:=MAX(C,O);
STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,2,0),color0000ff;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,2,0),colorffff00;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),colorff00ff;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,0),color00ff00;
L4:=LLV(gj,4);
jl:=(HHV(diff,55)-LLV(diff,55))/5;
gt:=dea>REF(dea,1) AND REF(dea,1)<REF(dea,2);
A1:=BARSLAST(REF(gt,1));
底背離:=REF(L4,A1+1)>CLOSE AND diff>REF(diff,A1+1) AND gt;
DRAWLINE(A1=0,DEA,底背離,REF(DEA,A1),0),colorred,LINETHICK2;
DRAWLINE(底背離,DEA,底背離,REF(DEA,A1),0),colorred,LINETHICK2;
DRAWTEXT(底背離,REF(DEA,A1)*1.18,' 底背離'),COLORFF00FF;
H4:=HHV(gj,4);
gt2:=dea<REF(dea,1) AND REF(dea,1)>REF(dea,2);
A2:=BARSLAST(REF(gt2,1));
頂背離:= REF(H4,A2+1)<H4 AND diff<REF(diff,A2+1) AND gt2;
DRAWLINE(A2=0 ,DEA,頂背離,REF(DEA,A2),0),colorgreen,LINETHICK2;
DRAWLINE(頂背離,DEA,頂背離,REF(DEA,A2),0),colorgreen,LINETHICK2;
DRAWTEXT(頂背離,REF(DEA,A2)*1.18,' 頂背離'),colorgreen;
A0:=DIFF<0 AND DEA<0;
A11:=A0>REF(A0,1);
A3:=BARSLAST(A11);
A4:=COUNT(DEA>0 AND DIFF >0,A3)=0;
A5:=CROSS(DIFF ,DEA);
A6:=BARSLAST(A5);
A7:=REF(A6,A6+1)+A6;
A8:=(DIFF+DEA)/2;
A9:=(HIGH+LOW)/2;
A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0;
DRAWTEXT(A10,DIFF*0.95,'金叉買入'),coloryellow;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?