MACDKDJ提前共振副圖公式源碼

相關標簽:

?

把MACD的周期改了一下，提前2到3天金叉和死叉，可以提早判斷。
自用指標，僅供參考

?

原理解析：
輸出DIF:(收盤價的6日指數移動平均-收盤價的13日指數移動平均)*100 輸出DEA:DIF的5日指數移動平均 輸出平滑異同平均:(DIF-DEA)*2,COLORSTICK 當滿足條件DIF上穿DEA時,在DEA位置畫1號圖標 當滿足條件DEA上穿DIF時,在DEA位置畫2號圖標 如果DIF<DEA,返回DIF,否則返回無效數,畫綠色 DD賦值:收盤價=180日內收盤價的最高值 EE賦值:DEA< 1日前的DEA AND 1日前的DEA<1日前的DEA=1 CC賦值:收盤價> 1日前的收盤價 AND 1日前的收盤價>1日前的收盤價=1 頂背離賦值:(DD AND EE AND DEA< 180日內DEA的最高值)*DEA A2賦值:上次1日前的DEA上穿DIF距今天數 當滿足條件A2=0時,在DEA位置畫直線起點，當滿足條件頂背離時,在DEA位置畫直線終點,0表示是否延長.,畫棕色,線寬為2 RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 輸出K:RSV的9日[3日權重]移動平均,畫洋紅色 輸出D:K的9日[3日權重]移動平均,畫藍色 輸出J:3*K-2*D,畫深灰色 如果J<D,返回J,否則返回無效數,COLORFFEE44 A1賦值:上次1日前的DIF上穿DEA距今天數 B1賦值:A1+1日前的收盤價>收盤價 AND A1+1日前的DIF<DIF AND DIF上穿DEA A22賦值:上次1日前的"KDJ的K"(9,3,3)上穿"KDJ的D"(9,3,3)距今天數 B2賦值:A22+1日前的收盤價>收盤價 AND A22+1日前的"KDJ的K"(9,3,3)<"KDJ的K"(9,3,3) AND "KDJ的K"(9,3,3)上穿"KDJ的D"(9,3,3) A3賦值:上次1日前的"RSI的RSI1"(6,12,24)上穿"RSI的RSI2"(6,12,24)距今天數 B3賦值:A3+1日前的收盤價>收盤價 AND A3+1日前的"RSI的RSI1"(6,12,24)<"RSI的RSI1"(6,12,24) AND "RSI的RSI1"(6,12,24)上穿"RSI的RSI2"(6,12,24) 當滿足條件B1時,在DEA-0.20位置書寫文字,畫白色 當滿足條件B2時,在D-0.20位置書寫文字,畫黃色 A賦值:DIF上穿DEA AND K上穿D AND J上穿D 當滿足條件A時,在最低價*0.98位置畫1號圖標 輸出B4:DIF上穿DEA AND "KDJ的K"(9,3,3)上穿"KDJ的D"(9,3,3) 當滿足條件B4時,在最低價-0.20位置書寫文字,COLOR0099FF 當滿足條件K上穿D時,在D位置畫1號圖標 當滿足條件D上穿K時,在D位置畫2號圖標 BA賦值:DEA>1日前的DEA BB賦值:BA的5日累和>=4 BC賦值:收陰線 BD賦值:BC的5日累和>=2 輸出BXG:BBANDBDANDJ>1日前的JANDREF(J,1)<2日前的J的3日過濾 當滿足條件BXG時,在60日內J的最高值和60日內J的最高值-20位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫紅色 SS賦值:收盤價的11日指數移動平均 LL賦值:(收盤價的1日指數移動平均+收盤價的2日指數移動平均+收盤價的3日指數移動平均+收盤價的5日指數移動平均)/4 AA賦值:(收盤價-10日內收盤價的最低值)/(10日內收盤價的最高值-10日內收盤價的最低值)

?

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

源碼：

?

?

DIF:(EMA(CLOSE,6)-EMA(CLOSE,13))*100;
DEA:EMA(DIF,5);
MACD:(DIF-DEA)*2,COLORSTICK;
DRAWICON(CROSS(DIF,DEA),DEA,1);
DRAWICON(CROSS(DEA,DIF),DEA,2);
IF(DIF<DEA,DIF,DRAWNULL),colorgreen;
DD:=C=HHV(C,180);
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1;
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1;
頂背離:=(DD AND EE AND DEA< HHV(DEA,180))*DEA;
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
{頂背:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);}
DRAWLINE(A2=0,DEA,頂背離,DEA,0),colorbrown,LINETHICK2;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,9,3),colormagenta;
D:SMA(K,9,3),colorblue;
J:3*K-2*D,colorgray;
IF(J<D,J,DRAWNULL),COLORFFEE44;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);
A22:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A22+1)>C AND REF("KDJ.K"(9,3,3),A22+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
DRAWTEXT(B1,DEA-0.20,'▲MACD底背'),colorwhite;
DRAWTEXT(B2,D-0.20,'●KDJ底背'),coloryellow;
{DJ:=CROSS(J,D) AND D<20;
DRAWTEXT(DJ,J-0.3,'低金叉'),colormagenta;
MDJ:=CROSS(DIF,DEA) AND DEA<0;
DRAWTEXT(MDJ,DEA-0.3,'低金叉'),colorred;
DRAWTEXT(CROSS(DEA,DIF),DIF+0.3,'死叉'),colorcyan;
DRAWTEXT(CROSS(D,J),J+0.3,'死叉'),colorgreen;}
A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
DRAWICON(A,LOW*0.98,1);
B4:CROSS(DIF,DEA) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
DRAWTEXT(B4,L-0.20,'金叉共振'),COLOR0099FF;
DRAWICON(CROSS(K,D),D,1);
DRAWICON(CROSS(D,K),D,2);
BA:=DEA>REF(DEA,1);
BB:=SUM(BA,5)>=4;
BC:=C<O;
BD:=SUM(BC,5)>=2;
BXG:FILTER(BB AND BD AND J>REF(J,1) AND REF(J,1)<REF(J,2),3);
STICKLINE(BXG,HHV(J,60),HHV(J,60)-20,1,0),colorred;
SS:=EMA(C,11);
LL:=(EMA(C,1)+EMA(C,2)+EMA(C,3)+EMA(C,5))/4;
{短:EMA(LL,2),colorgreen,LINETHICK2;}
{長:EMA(SS,2),colormagenta,LINETHICK2;}
AA:=(C-LLV(C,10))/(HHV(C,10)-LLV(C,10));
(CROSS(AA,0.05)-1);
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.tumamayizhan.com '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?