macd日周月kdj日周月顶背离底背离同时显示源码 贴图 说明

{XXXXXX BY SHUHONG}


DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
DIF:EMA(CLOSE,12) - EMA(CLOSE,26),LINETHICK0;
DEA:EMA(DIF,9),LINETHICK0;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+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));
C1:=BARSLAST(REF(CROSS(DEA,DIF),1));
D1:=REF(C,C1+1)<C AND REF(DIF,C1+1)>DIF AND CROSS(DEA,DIF);
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS
("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS
("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
STICKLINE(B1>0,110,100,3,0),COLORRED;
DRAWTEXT((B1>0),104.5,'    MACD底背离'),COLORRED;
STICKLINE(D1>0,110,100,3,0),COLORFF8000;
DRAWTEXT((D1>0),104.5,'    MACD顶背离'),COLORFF8000;
STICKLINE(B2>0,0,-10,3,0),COLORFA00FA;
DRAWTEXT((B2>0),-6,'    KDJ底背离'),COLORFA00FA;
STICKLINE(D2>0,0,-10,3,0),COLORGREEN;
DRAWTEXT((D2>0),-6,'    KDJ顶背离'),COLORGREEN;
STICKLINE(B3>0,-20,-10,3,0),COLORYELLOW;
DRAWTEXT((B3>0),-15,'    RSI底背离'),COLORYELLOW;
STICKLINE(D3>0,-20,-10,3,0),COLORCYAN;
DRAWTEXT((D3>0),-15,'    RSI顶背离'),COLORCYAN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,9,3),LINETHICK0;
D:SMA(K,9,3),LINETHICK0;
J:3*K-2*D,LINETHICK0;
A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
STICKLINE(A,0,100,3,0),COLORYELLOW;
DRAWICON(A,92,25);DRAWICON(A,42,25);
DRAWTEXT(A,93,'    ★MACD_KDJ金叉.,共振'),COLORYELLOW;
DRAWTEXT(A,43,'    ★KDJ_MACD金叉.,共振'),COLORYELLOW;
日DIF:="MACD.DIF#DAY";
日DEA:="MACD.DEA#DAY";
日死叉:STICKLINE(日DIF<日DEA,80,85,3,0),COLORFF8000;
日金叉:STICKLINE(日DIF>日DEA,80,85,3,0),COLORRED;
DRAWTEXT(ISLASTBAR,82,'__日MACD'),COLORYELLOW;
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
周死叉:STICKLINE(周DIF<周DEA,70,75,3,0),COLORFF8064;
周金叉:STICKLINE(周DIF>周DEA,70,75,3,0),COLOR3232FF;
DRAWTEXT(ISLASTBAR,72,'__周MACD'),COLORYELLOW;
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
月死叉:STICKLINE(月DIF<月DEA,60,65,3,0),COLORFF808C; 
月金叉:STICKLINE(月DIF>月DEA,60,65,3,0),COLOR5032FF; 
DRAWTEXT(ISLASTBAR,62,'__月MACD'),COLORYELLOW;
N:=1;
月K:KDJ.K#MONTH,NODRAW,COLORWHITE,LINETHICK0;
月D:KDJ.D#MONTH,NODRAW,COLORYELLOW,LINETHICK0;
月J:KDJ.J#MONTH,NODRAW,COLORMAGENTA,LINETHICK0;
周K:KDJ.K#WEEK,NODRAW,COLORWHITE,LINETHICK0;
周D:KDJ.D#WEEK,NODRAW,COLORYELLOW,LINETHICK0;
周J:KDJ.J#WEEK,NODRAW,COLORMAGENTA,LINETHICK0;
日K:KDJ.K,NODRAW,COLORWHITE,LINETHICK0;
日D:KDJ.D,NODRAW,COLORYELLOW,LINETHICK0;
日J:KDJ.J,NODRAW,COLORMAGENTA,LINETHICK0;
K日金叉:=CROSS(日K,日D) AND (日D<40 OR 日D>60);
K周金叉:=CROSS(周K,周D) AND (周D<40 OR 周D>60);
K月金叉:=CROSS(月K,月D) AND (月D<40 OR 月D>60);
共振KDJ:=(K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND 
K周金叉 AND K月金叉);
STICKLINE(共振KDJ,0,50,3,0),COLORYELLOW;
DRAWICON(共振KDJ,42,25);
DRAWTEXT((K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND 
K周金叉 AND K月金叉),42,'    ★KDJ(日/周/月)共振'),COLORYELLOW;
NOTEXT月K:IF(N=3,月K,DRAWNULL),COLORWHITE,LINETHICK0;
NOTEXT月D:IF(N=3,月D,DRAWNULL),COLORYELLOW,LINETHICK0;
NOTEXT月J:IF(N=3,月J,DRAWNULL),COLORMAGENTA,LINETHICK0;
NOTEXT周K:IF(N=2,周K,DRAWNULL),COLORWHITE,LINETHICK0;
NOTEXT周D:IF(N=2,周D,DRAWNULL),COLORYELLOW,LINETHICK0;
NOTEXT周J:IF(N=2,周J,DRAWNULL),COLORMAGENTA,LINETHICK0;
NOTEXT日K:IF(N=1,日K,DRAWNULL),COLORWHITE,LINETHICK0;
NOTEXT日D:IF(N=1,日D,DRAWNULL),COLORYELLOW,LINETHICK0;
NOTEXT日J:IF(N=1,日J,DRAWNULL),COLORMAGENTA,LINETHICK0;
STICKLINE(日K>=日D,30,35,3,0),COLOR8000FF;
STICKLINE(日K< 日D,30,35,3,0),COLOR009600;
DRAWTEXT(ISLASTBAR,27,'__日KDJ'),COLORWHITE;
STICKLINE(周K>=周D,20,25,3,0),COLOR803CFF;
STICKLINE(周K< 周D,20,25,3,0),COLOR3C9600;
DRAWTEXT(ISLASTBAR,17,'__周KDJ'),COLORWHITE;
STICKLINE(月K>=月D,10,15,3,0),COLOR8050FF;
STICKLINE(月K< 月D,10,15,3,0),COLOR649600;
DRAWTEXT(ISLASTBAR,7,'__月KDJ'),COLORWHITE;
0,LINETHICK1,DOTLINE,COLORWHITE;
50,LINETHICK1,COLORWHITE;
100,LINETHICK1,DOTLINE,COLORWHITE;
DRAWRECTREL(0,0,180,990,RGB(250,0,250));
DRAWTEXT_FIX(ISLASTBAR,0.111,0.03,0,'KDJ(日/周/月)'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.18,0,'日K='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.18,0,日K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.31,0,'日D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.31,0,日D),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.44,0,'周K='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.44,0,周K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.57,0,'周D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.57,0,周D),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.70,0,'月K= '),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.70,0, 月K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.83,0,'月D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.83,0,月D),COLORFFFFFF;
DRAWRECTREL(0,0,90,990,RGB(220,0,0));
DRAWTEXT_FIX(ISLASTBAR,0.023,0.03,0,'MACD(日/周/月)'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.18,0,'日DIF='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.18,0,日DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.31,0,'日DEA='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.31,0,日DEA),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.44,0,'周DIF='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.44,0,周DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.57,0,'周DEA='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.57,0,周DEA),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.70,0,'月DIF= '),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.70,0, 月DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.83,0,'月DEA='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.83,0,月DEA),COLORFFFFFF;

原理解析：
{XXXXXX BY SHUHONG}

DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0)
输出DIF:收盘价的12日指数移动平均 - 收盘价的26日指数移动平均,LINETHICK0
输出DEA:DIF的9日指数移动平均,LINETHICK0
A1赋值:上次1日前的DIF上穿DEA距今天数
B1赋值:A1+1日前的C>C AND A1+1日前的DIF A2赋值:上次REF(CROSS("KDJ.K"(9,3,3距今天数,"KDJ.D"(9,3,3)),1))
B2赋值:A2+1日前的C>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS ("KDJ.K"(9,3,3),"KDJ.D"(9,3,3))
A3赋值:上次REF(CROSS("RSI.RSI1"(6,12,24距今天数,"RSI.RSI2"(6,12,24)),1))
B3赋值:A3+1日前的C>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))
C1赋值:上次1日前的DEA上穿DIF距今天数
D1赋值:C1+1日前的CDIF AND DEA上穿DIF
C2赋值:上次REF(CROSS("KDJ.D"(9,3,3距今天数,"KDJ.K"(9,3,3)),1))
D2赋值:C2+1日前的C"KDJ.K"(9,3,3) AND CROSS
("KDJ.D"(9,3,3),"KDJ.K"(9,3,3))
C3赋值:上次REF(CROSS("RSI.RSI2"(6,12,24距今天数,"RSI.RSI1"(6,12,24)),1))
D3赋值:C3+1日前的C"RSI.RSI1"(6,12,24) AND CROSS
("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24))
当满足条件B1>0时,在110和100之间画柱状线
DRAWTEXT((B1>0),104.5,' MACD底背离'),COLORRED
当满足条件D1>0时,在110和100之间画柱状线
DRAWTEXT((D1>0),104.5,' MACD顶背离'),COLORFF8000
当满足条件B2>0时,在0和-10之间画柱状线
DRAWTEXT((B2>0),-6,' KDJ底背离'),COLORFA00FA
当满足条件D2>0时,在0和-10之间画柱状线
DRAWTEXT((D2>0),-6,' KDJ顶背离'),COLORGREEN
当满足条件B3>0时,在-20和-10之间画柱状线
DRAWTEXT((B3>0),-15,' RSI底背离'),画黄色
当满足条件D3>0时,在-20和-10之间画柱状线
DRAWTEXT((D3>0),-15,' RSI顶背离'),COLORCYAN
RSV赋值:(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)*100
RSV的9日[3日权重]移动平均
K的9日[3日权重]移动平均
输出J:3*K-2*D,LINETHICK0
A赋值:DIF上穿DEA AND K上穿D AND J上穿D
当满足条件A时,在0和100之间画柱状线
当满足条件A时,在92和25之间画图标
当满足条件A时,在42和25之间画图标
当满足条件A时,在93和' ★MACD_KDJ金叉.位置书写文字
当满足条件A时,在43和' ★KDJ_MACD金叉.位置书写文字
日DIF赋值:"MACD.DIF#DAY"
日DEA赋值:"MACD.DEA#DAY"
当满足条件日DIF<日DEA时,在80和85之间画柱状线
当满足条件日DIF>日DEA时,在80和85之间画柱状线
当满足条件ISLASTBAR时,在82和'__日MACD'位置书写文字
周DIF赋值:"MACD.DIF#WEEK"(12,26,9)
周DEA赋值:"MACD.DEA#WEEK"(12,26,9)
当满足条件周DIF<周DEA时,在70和75之间画柱状线
当满足条件周DIF>周DEA时,在70和75之间画柱状线
当满足条件ISLASTBAR时,在72和'__周MACD'位置书写文字
月DIF赋值:"MACD.DIF#MONTH"(12,26,9)
月DEA赋值:"MACD.DEA#MONTH"(12,26,9)
当满足条件月DIF<月DEA时,在60和65之间画柱状线
当满足条件月DIF>月DEA时,在60和65之间画柱状线
当满足条件ISLASTBAR时,在62和'__月MACD'位置书写文字
N赋值:1
月输出K:KDJ.K#MONTH,NODRAW,画白色,LINETHICK0
月输出D:KDJ.D#MONTH,NODRAW,画黄色,LINETHICK0
月输出J:KDJ.J#MONTH,NODRAW,COLORMAGENTA,LINETHICK0
周输出K:KDJ.K#WEEK,NODRAW,画白色,LINETHICK0
周输出D:KDJ.D#WEEK,NODRAW,画黄色,LINETHICK0
周输出J:KDJ.J#WEEK,NODRAW,COLORMAGENTA,LINETHICK0
日输出K:KDJ.K,NODRAW,画白色,LINETHICK0
日输出D:KDJ.D,NODRAW,画黄色,LINETHICK0
日输出J:KDJ.J,NODRAW,COLORMAGENTA,LINETHICK0
K日金叉赋值:日K上穿日D AND (日D<40 OR 日D>60)
K周金叉赋值:周K上穿周D AND (周D<40 OR 周D>60)
K月金叉赋值:月K上穿月D AND (月D<40 OR 月D>60)
共振KDJ赋值:(K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND
K周金叉 AND K月金叉)
当满足条件共振KDJ时,在0和50之间画柱状线
当满足条件共振KDJ时,在42和25之间画图标
DRAWTEXT((K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND
K周金叉 AND K月金叉),42,' ★KDJ(日/周/月)共振'),画黄色
如果N=3返回月K否则返回DRAWNULL
如果N=3返回月D否则返回DRAWNULL
如果N=3返回月J否则返回DRAWNULL
如果N=2返回周K否则返回DRAWNULL
如果N=2返回周D否则返回DRAWNULL
如果N=2返回周J否则返回DRAWNULL
如果N=1返回日K否则返回DRAWNULL
如果N=1返回日D否则返回DRAWNULL
如果N=1返回日J否则返回DRAWNULL
当满足条件日K>=日D时,在30和35之间画柱状线
当满足条件日K< 日D时,在30和35之间画柱状线
当满足条件ISLASTBAR时,在27和'__日KDJ'位置书写文字
当满足条件周K>=周D时,在20和25之间画柱状线
当满足条件周K< 周D时,在20和25之间画柱状线
当满足条件ISLASTBAR时,在17和'__周KDJ'位置书写文字
当满足条件月K>=月D时,在10和15之间画柱状线
当满足条件月K< 月D时,在10和15之间画柱状线
当满足条件ISLASTBAR时,在7和'__月KDJ'位置书写文字
0,LINETHICK1,DOTLINE,画白色
50,LINETHICK1,画白色
100,LINETHICK1,DOTLINE,画白色
DRAWRECTREL(0,0,180,990,RGB(250,0,250))
DRAWTEXT_FIX(ISLASTBAR,0.111,0.03,0,'KDJ(日/周/月)'),COLOR00FFFF
当满足条件ISLASTBAR时,在横轴0.101纵轴0.18位置书写文字
当满足条件ISLASTBAR时,在横轴0.140纵轴0.18位置书写数字
当满足条件ISLASTBAR时,在横轴0.101纵轴0.31位置书写文字
当满足条件ISLASTBAR时,在横轴0.140纵轴0.31位置书写数字
当满足条件ISLASTBAR时,在横轴0.101纵轴0.44位置书写文字
当满足条件ISLASTBAR时,在横轴0.140纵轴0.44位置书写数字
当满足条件ISLASTBAR时,在横轴0.101纵轴0.57位置书写文字
当满足条件ISLASTBAR时,在横轴0.140纵轴0.57位置书写数字
当满足条件ISLASTBAR时,在横轴0.101纵轴0.70位置书写文字
当满足条件ISLASTBAR时,在横轴0.140纵轴0.70位置书写数字
当满足条件ISLASTBAR时,在横轴0.101纵轴0.83位置书写文字
当满足条件ISLASTBAR时,在横轴0.140纵轴0.83位置书写数字
DRAWRECTREL(0,0,90,990,RGB(220,0,0))
DRAWTEXT_FIX(ISLASTBAR,0.023,0.03,0,'MACD(日/周/月)'),COLOR00FFFF
当满足条件ISLASTBAR时,在横轴0.01纵轴0.18位置书写文字
当满足条件ISLASTBAR时,在横轴0.05纵轴0.18位置书写数字
当满足条件ISLASTBAR时,在横轴0.01纵轴0.31位置书写文字
当满足条件ISLASTBAR时,在横轴0.05纵轴0.31位置书写数字
当满足条件ISLASTBAR时,在横轴0.01纵轴0.44位置书写文字
当满足条件ISLASTBAR时,在横轴0.05纵轴0.44位置书写数字
当满足条件ISLASTBAR时,在横轴0.01纵轴0.57位置书写文字
当满足条件ISLASTBAR时,在横轴0.05纵轴0.57位置书写数字
当满足条件ISLASTBAR时,在横轴0.01纵轴0.70位置书写文字
当满足条件ISLASTBAR时,在横轴0.05纵轴0.70位置书写数字
当满足条件ISLASTBAR时,在横轴0.01纵轴0.83位置书写文字
当满足条件ISLASTBAR时,在横轴0.05纵轴0.83位置书写数字