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.CXH99.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.CXH99.COM '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花顺程序化交易');

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】