自用的日周月KDJ MACD同显的副图指标 通达信 测试图
{周期MACD副图源码如下}
ZQ:=CURRBARSCOUNT<71;{设置日MACD显示周期数为71天}
P:=74;{设定从第P根K线开始显示周MACD}
Q:=35;{设定周显示周期数为Q周}
P1:=112;{设定从倒数第P1根K线开始显示月KDJ}
Q1:=16;{设定月显示周期数为16个月}
ZDIF:=MACD.DIF#WEEK;
ZDEA:=MACD.DEA#WEEK;
YDIF:=MACD.DIF#MONTH;
YDEA:=MACD.DEA#MONTH;
ZQZ:=TOTALBARSCOUNT;
ZQ1:=BARSCOUNT(C);
KX1:=ZQZ-ZQ1;{周K线显示开始位置按倒数K线数计算}
N1:=KX1;{周K线显示开始位置}
ZH:=ISLASTBAR;
KK6:=SJDY.DT1#MONTH;
KK7:=KK6>REF(KK6,1);
KK8:=SUM(KK7,0);
KK9:=CONST(KK8)-KK8;
SU1:=IF(ZH,0,SUMBARS(KK7,KX1-KK9)-1);
Y1:=REF(YDIF,SU1);Y2:=REF(YDEA,SU1);
Y11:=REFX(Y1,P1);Y22:=REFX(Y2,P1);
W22:=KX1<P1+Q1 AND KX1>P1;
月DIF:IF(PERIOD=5 AND W22,Y11,DRAWNULL),NODRAW,COLORWHITE;
月DEA:IF(PERIOD=5 AND W22,Y22,DRAWNULL),NODRAW,COLORYELLOW;
月MACD:IF(PERIOD=5 AND W22,(Y11-Y22)*2,DRAWNULL),COLORLIMAGENTA,NODRAW;
DRAWBAND(月DIF,RGB(155,50,50),月DEA,RGB(83,123,68));
NOTEXT月多:IF(PERIOD=5 AND 月MACD>REF(月MACD,1) AND 月MACD>=0,月MACD,DRAWNULL),STICK,COLORRED,LINETHICK2;
NOTEXT月调:IF(PERIOD=5 AND 月MACD<=REF(月MACD,1) AND 月MACD>=0,月MACD,DRAWNULL),STICK,COLORLIRED,LINETHICK2;
NOTEXT月空:IF(PERIOD=5 AND 月MACD<=REF(月MACD,1) AND 月MACD<0,月MACD,DRAWNULL),STICK,COLORGREEN,LINETHICK2;
NOTEXT月弱:IF(PERIOD=5 AND 月MACD>=REF(月MACD,1) AND 月MACD<0,月MACD,DRAWNULL),STICK,COLORCYAN,LINETHICK2;
DRAWICON(PERIOD=5 AND CROSS(月DIF,月DEA),月DIF,1);
DRAWICON(PERIOD=5 AND CROSS(月DEA,月DIF),月DIF,2);
K6:=SJDY.DT1#WEEK;
K7:=K6>REF(K6,1);{周K线更后}
K8:=SUM(K7,0);{当前周K线位置}
K9:=CONST(K8)-K8;
SU:=IF(ZH,0,SUMBARS(K7,N1-K9)-1);
Z1:=REF(ZDIF,SU);Z2:=REF(ZDEA,SU);
Z11:=REFX(Z1,P);Z22:=REFX(Z2,P);
W2:=KX1<P+Q AND KX1>P;
周DIF:IF(PERIOD=5 AND W2,Z11,DRAWNULL),NODRAW,COLORWHITE;
周DEA:IF(PERIOD=5 AND W2,Z22,DRAWNULL),NODRAW,COLORYELLOW;
周MACD:IF(PERIOD=5 AND W2,(Z11-Z22)*2,DRAWNULL),COLORLIMAGENTA,NODRAW;
DRAWBAND(周DIF,RGB(155,50,50),周DEA,RGB(83,123,68));
NOTEXT周多:IF(PERIOD=5 AND 周MACD>REF(周MACD,1) AND 周MACD>=0,周MACD,DRAWNULL),STICK,COLORRED,LINETHICK2;
NOTEXT周调:IF(PERIOD=5 AND 周MACD<=REF(周MACD,1) AND 周MACD>=0,周MACD,DRAWNULL),STICK,COLORLIRED,LINETHICK2;
NOTEXT周空:IF(PERIOD=5 AND 周MACD<=REF(周MACD,1) AND 周MACD<0,周MACD,DRAWNULL),STICK,COLORGREEN,LINETHICK2;
NOTEXT周弱:IF(PERIOD=5 AND 周MACD>=REF(周MACD,1) AND 周MACD<0,周MACD,DRAWNULL),STICK,COLORCYAN,LINETHICK2;
DRAWICON(PERIOD=5 AND CROSS(周DIF,周DEA),周DIF,1);
DRAWICON(PERIOD=5 AND CROSS(周DEA,周DIF),周DIF,2);
NOTEXT零:0,COLORWHITE;
STICKLINE(PERIOD=5 AND KX1=72,-0.15,0.15,8,0),COLORGRAY;
STICKLINE(PERIOD=5 AND KX1=110,-0.15,0.15,8,0),COLORGRAY;
DRAWTEXT(PERIOD=5 AND CURRBARSCOUNT=92,0,'周 线 图'),COLORYELLOW;
DRAWTEXT(PERIOD=5 AND CURRBARSCOUNT=122,0,'月 线 图'),COLORWHITE;
SDIF:IF(ZQ,MACD.DIF,IF(NOT(PERIOD=5),MACD.DIF,DRAWNULL)),COLORWHITE;
SDEA:IF(ZQ,MACD.DEA,IF(NOT(PERIOD=5),MACD.DEA,DRAWNULL)),COLORYELLOW;
SMACD:IF(ZQ,MACD.MACD,IF(NOT(PERIOD=5),MACD.MACD,DRAWNULL)),COLORLIMAGENTA,NODRAW;
NOTEXT多:IF(SMACD>REF(SMACD,1) AND SMACD>=0,SMACD*1.1,DRAWNULL),STICK,COLORRED,LINETHICK2;
NOTEXT调:IF(SMACD<=REF(SMACD,1) AND SMACD>=0,SMACD*1.1,DRAWNULL),STICK,COLORLIRED,LINETHICK2;
NOTEXT空:IF(SMACD<=REF(SMACD,1) AND SMACD<0,SMACD*1.1,DRAWNULL),STICK,COLORGREEN,LINETHICK2;
NOTEXT弱:IF(SMACD>=REF(SMACD,1) AND SMACD<0,SMACD*1.1,DRAWNULL),STICK,COLORLICYAN,LINETHICK2;
死叉:=CROSS(SDEA,SDIF);
金叉:=CROSS(SDIF,SDEA);
DRAWICON(ZQ AND 死叉,SDEA,2);
DRAWICON(ZQ AND 金叉,SDEA,1);
{周期KDJ图副图源码如下}
ZK:=KDJ.K#WEEK;
ZD:=KDJ.D#WEEK;
ZJ:=KDJ.J#WEEK;
YK:=KDJ.K#MONTH;
YD:=KDJ.D#MONTH;
YJ:=KDJ.J#MONTH;
ZQ:=CURRBARSCOUNT<71;{设置日KDJ显示周期数为最后71天}
P:=74;{设定从倒数第74根K线开始显示周KDJ}
Q:=35;{设定周显示周期数为Q周}
P1:=112;{设定从倒数第P1根K线开始显示月KDJ}
Q1:=16;{设定月显示周期数为16个月}
NOTEXT顶:100,COLORRED,DOTLINE;
NOTEXT界:50,COLORWHITE,POINTDOT;
NOTEXT底:0,COLORLIBLUE,DOTLINE;
ZQZ:=TOTALBARSCOUNT;
ZQ1:=BARSCOUNT(C);
KX1:=ZQZ-ZQ1;{周K线显示开始位置按倒数K线数计算}
N1:=KX1;{周K线显示开始位置}
K6:=SJDY.DT1#WEEK;
K7:=K6>REF(K6,1);{周K线更后}
K8:=SUM(K7,0);{当前周K线位置}
K9:=CONST(K8)-K8;
ZH:=ISLASTBAR;
KK6:=SJDY.DT1#MONTH;
KK7:=KK6>REF(KK6,1);
KK8:=SUM(KK7,0);
KK9:=CONST(KK8)-KK8;
SU1:=IF(ZH,0,SUMBARS(KK7,KX1-KK9)-1);
Y1:=REF(YK,SU1);Y2:=REF(YD,SU1);Y3:=REF(YJ,SU1);
Y11:=REFX(Y1,P1);Y22:=REFX(Y2,P1);Y33:=REFX(Y3,P1);
W22:=KX1<P1+Q1 AND KX1>P1;
月D:IF(PERIOD=5 AND W22,Y22,DRAWNULL),COLORYELLOW;
月K:IF(PERIOD=5 AND W22,Y11,DRAWNULL),COLORWHITE;
月J:IF(PERIOD=5 AND W22,Y33,DRAWNULL),COLORMAGENTA;
DRAWICON(PERIOD=5 AND CROSS(月K,月D),月K,1);
DRAWICON(PERIOD=5 AND CROSS(月D,月K),月K,2);
SU:=IF(ZH,0,SUMBARS(K7,N1-K9)-1);
Z1:=REF(ZK,SU);Z2:=REF(ZD,SU);Z3:=REF(ZJ,SU);
Z11:=REFX(Z1,P);Z22:=REFX(Z2,P);Z33:=REFX(Z3,P);
W2:=KX1<P+Q AND KX1>P;
周D:IF(PERIOD=5 AND W2,Z22,DRAWNULL),COLORYELLOW;
周K:IF(PERIOD=5 AND W2,Z11,DRAWNULL),COLORWHITE;
周J:IF(PERIOD=5 AND W2,Z33,DRAWNULL),COLORMAGENTA;
DRAWICON(PERIOD=5 AND CROSS(周K,周D),周K,1);
DRAWICON(PERIOD=5 AND CROSS(周D,周K),周K,2);
STICKLINE(PERIOD=5 AND KX1=72,-1,101,8,0),COLORBLACK;
STICKLINE(PERIOD=5 AND KX1=110,-1,101,8,0),COLORBLACK;
DRAWTEXT(PERIOD=5 AND CURRBARSCOUNT=92,90,'周 线 图'),COLORYELLOW;
DRAWTEXT(PERIOD=5 AND CURRBARSCOUNT=122,90,'月 线 图'),COLORWHITE;
{----------------------------------------------------------------------------------------}
D :IF(ZQ,KDJ.D,IF(NOT(PERIOD=5),KDJ.D,DRAWNULL)),COLORYELLOW;
K :IF(ZQ,KDJ.K,IF(NOT(PERIOD=5),KDJ.K,DRAWNULL)),COLORWHITE;
J :IF(ZQ,KDJ.J,IF(NOT(PERIOD=5),KDJ.J,DRAWNULL)),COLORMAGENTA;
DRAWICON(ZQ AND CROSS(KDJ.K,KDJ.D),KDJ.K,1);
DRAWICON(ZQ AND CROSS(KDJ.D,KDJ.K),KDJ.K,2);
未来函数检测结果如下：
该公式包含未来函数:#MONTH
该公式包含未来函数:#WEEK
该公式包含未来函数:REFX
定制指标公式、软件请联系QQ或微信同号：88652583
ZQ赋值:到最后交易的周期<71
P赋值:74
Q赋值:35
P1赋值:112
Q1赋值:16
ZDIF赋值:平滑异同平均线的DIF[取周线数据]
ZDEA赋值:平滑异同平均线的DEA[取周线数据]
YDIF赋值:平滑异同平均线的DIF[取月线数据]
YDEA赋值:平滑异同平均线的DEA[取月线数据]
ZQZ赋值:总的周期数
ZQ1赋值:收盘价的有效数据周期数
KX1赋值:ZQZ-ZQ1
N1赋值:KX1
ZH赋值:是否最后一个周期
KK6赋值:SJDY.DT1[取月线数据]
KK7赋值:KK6>1日前的KK6
KK8赋值:KK7的历史累和
KK9赋值:KK8的最后一日取值设为常数-KK8
SU1赋值:如果ZH,返回0,否则返回KK7累加至KX1-KK9的天数-1
Y1赋值:SU1日前的YDIF
Y2赋值:SU1日前的YDEA
Y11赋值:P1日后的Y1
Y22赋值:P1日后的Y2
W22赋值:KX1P1
输出月DIF:如果周期类型=5ANDW22,返回Y11,否则返回无效数,NODRAW,画白色
输出月DEA:如果周期类型=5ANDW22,返回Y22,否则返回无效数,NODRAW,画黄色
输出月MACD:如果周期类型=5ANDW22,返回(Y11-Y22)*2,否则返回无效数,画淡洋红色,NODRAW
画带状线
输出NOTEXT月多:如果周期类型=5AND月MACD>1日前的月MACDAND月MACD>=0,返回月MACD,否则返回无效数,STICK,画红色,线宽为2
输出NOTEXT月调:如果周期类型=5AND月MACD<=1日前的月MACDAND月MACD>=0,返回月MACD,否则返回无效数,STICK,画淡红色,线宽为2
输出 NOTEXT月空:如果周期类型=5AND月MACD<=1日前的月MACDAND月MACD<0,返回月MACD,否则返回无效数,STICK,画绿色,线宽为2
输出 NOTEXT月弱:如果周期类型=5AND月MACD>=1日前的月MACDAND月MACD<0,返回月MACD,否则返回无效数,STICK,画青色,线宽为2
当满足条件周期类型=5ANDCROSS(月DIF,月DEA)时,在月DIF位置画1号图标
当满足条件周期类型=5ANDCROSS(月DEA,月DIF)时,在月DIF位置画2号图标
K6赋值:SJDY.DT1[取周线数据]
K7赋值:K6>1日前的K6
K8赋值:K7的历史累和
K9赋值:K8的最后一日取值设为常数-K8
SU赋值:如果ZH,返回0,否则返回K7累加至N1-K9的天数-1
Z1赋值:SU日前的ZDIF
Z2赋值:SU日前的ZDEA
Z11赋值:P日后的Z1
Z22赋值:P日后的Z2
W2赋值:KX1P
输出周DIF:如果周期类型=5ANDW2,返回Z11,否则返回无效数,NODRAW,画白色
输出周DEA:如果周期类型=5ANDW2,返回Z22,否则返回无效数,NODRAW,画黄色
输出周MACD:如果周期类型=5ANDW2,返回(Z11-Z22)*2,否则返回无效数,画淡洋红色,NODRAW
画带状线
输出NOTEXT周多:如果周期类型=5AND周MACD>1日前的周MACDAND周MACD>=0,返回周MACD,否则返回无效数,STICK,画红色,线宽为2
输出NOTEXT周调:如果周期类型=5AND周MACD<=1日前的周MACDAND周MACD>=0,返回周MACD,否则返回无效数,STICK,画淡红色,线宽为2
输出 NOTEXT周空:如果周期类型=5AND周MACD<=1日前的周MACDAND周MACD<0,返回周MACD,否则返回无效数,STICK,画绿色,线宽为2
输出 NOTEXT周弱:如果周期类型=5AND周MACD>=1日前的周MACDAND周MACD<0,返回周MACD,否则返回无效数,STICK,画青色,线宽为2
当满足条件周期类型=5ANDCROSS(周DIF,周DEA)时,在周DIF位置画1号图标
当满足条件周期类型=5ANDCROSS(周DEA,周DIF)时,在周DIF位置画2号图标
输出NOTEXT零:0,画白色
当满足条件周期类型=5ANDKX1=72时,在-0.15和0.15位置之间画柱状线,宽度为8,0不为0则画空心柱.,画深灰色
当满足条件周期类型=5ANDKX1=110时,在-0.15和0.15位置之间画柱状线,宽度为8,0不为0则画空心柱.,画深灰色
当满足条件周期类型=5ANDCURRBARSCOUNT=92时,在0位置书写文字,画黄色
当满足条件周期类型=5ANDCURRBARSCOUNT=122时,在0位置书写文字,画白色
输出SDIF:如果ZQ,返回平滑异同平均线的DIF,否则返回如果取反,返回平滑异同平均线的DIF,否则返回无效数,画白色
输出SDEA:如果ZQ,返回平滑异同平均线的DEA,否则返回如果取反,返回平滑异同平均线的DEA,否则返回无效数,画黄色
输出单线平滑异同平均线:如果ZQ,返回平滑异同平均线的MACD,否则返回如果取反,返回平滑异同平均线的MACD,否则返回无效数,画淡洋红色,NODRAW
输出NOTEXT多:如果SMACD>1日前的SMACDANDSMACD>=0,返回SMACD*1.1,否则返回无效数,STICK,画红色,线宽为2
输出NOTEXT调:如果SMACD<=1日前的SMACDANDSMACD>=0,返回SMACD*1.1,否则返回无效数,STICK,画淡红色,线宽为2
输出 NOTEXT空:如果SMACD<=1日前的SMACDANDSMACD<0,返回SMACD*1.1,否则返回无效数,STICK,画绿色,线宽为2
输出 NOTEXT弱:如果SMACD>=1日前的SMACDANDSMACD<0,返回SMACD*1.1,否则返回无效数,STICK,画淡青色,线宽为2
死叉赋值:SDEA上穿SDIF
金叉赋值:SDIF上穿SDEA
当满足条件ZQAND死叉时,在SDEA位置画2号图标
当满足条件ZQAND金叉时,在SDEA位置画1号图标
ZK赋值:KDJ的K[取周线数据]
ZD赋值:KDJ的D[取周线数据]
ZJ赋值:KDJ的J[取周线数据]
YK赋值:KDJ的K[取月线数据]
YD赋值:KDJ的D[取月线数据]
YJ赋值:KDJ的J[取月线数据]
ZQ赋值:到最后交易的周期<71
P赋值:74
Q赋值:35
P1赋值:112
Q1赋值:16
输出NOTEXT顶:100,画红色,DOTLINE
输出NOTEXT界:50,画白色,POINTDOT
输出NOTEXT底:0,画淡蓝色,DOTLINE
ZQZ赋值:总的周期数
ZQ1赋值:收盘价的有效数据周期数
KX1赋值:ZQZ-ZQ1
N1赋值:KX1
K6赋值:SJDY.DT1[取周线数据]
K7赋值:K6>1日前的K6
K8赋值:K7的历史累和
K9赋值:K8的最后一日取值设为常数-K8
ZH赋值:是否最后一个周期
KK6赋值:SJDY.DT1[取月线数据]
KK7赋值:KK6>1日前的KK6
KK8赋值:KK7的历史累和
KK9赋值:KK8的最后一日取值设为常数-KK8
SU1赋值:如果ZH,返回0,否则返回KK7累加至KX1-KK9的天数-1
Y1赋值:SU1日前的YK
Y2赋值:SU1日前的YD
Y3赋值:SU1日前的YJ
Y11赋值:P1日后的Y1
Y22赋值:P1日后的Y2
Y33赋值:P1日后的Y3
W22赋值:KX1P1
输出月D:如果周期类型=5ANDW22,返回Y22,否则返回无效数,画黄色
输出月K:如果周期类型=5ANDW22,返回Y11,否则返回无效数,画白色
输出月J:如果周期类型=5ANDW22,返回Y33,否则返回无效数,画洋红色
当满足条件周期类型=5ANDCROSS(月K,月D)时,在月K位置画1号图标
当满足条件周期类型=5ANDCROSS(月D,月K)时,在月K位置画2号图标
SU赋值:如果ZH,返回0,否则返回K7累加至N1-K9的天数-1
Z1赋值:SU日前的ZK
Z2赋值:SU日前的ZD
Z3赋值:SU日前的ZJ
Z11赋值:P日后的Z1
Z22赋值:P日后的Z2
Z33赋值:P日后的Z3
W2赋值:KX1P
输出周D:如果周期类型=5ANDW2,返回Z22,否则返回无效数,画黄色
输出周K:如果周期类型=5ANDW2,返回Z11,否则返回无效数,画白色
输出周J:如果周期类型=5ANDW2,返回Z33,否则返回无效数,画洋红色
当满足条件周期类型=5ANDCROSS(周K,周D)时,在周K位置画1号图标
当满足条件周期类型=5ANDCROSS(周D,周K)时,在周K位置画2号图标
当满足条件周期类型=5ANDKX1=72时,在-1和101位置之间画柱状线,宽度为8,0不为0则画空心柱.,画黑色
当满足条件周期类型=5ANDKX1=110时,在-1和101位置之间画柱状线,宽度为8,0不为0则画空心柱.,画黑色
当满足条件周期类型=5ANDCURRBARSCOUNT=92时,在90位置书写文字,画黄色
当满足条件周期类型=5ANDCURRBARSCOUNT=122时,在90位置书写文字,画白色
输出D :如果ZQ,返回KDJ的D,否则返回如果取反,返回KDJ的D,否则返回无效数,画黄色
输出K :如果ZQ,返回KDJ的K,否则返回如果取反,返回KDJ的K,否则返回无效数,画白色
输出J :如果ZQ,返回KDJ的J,否则返回如果取反,返回KDJ的J,否则返回无效数,画洋红色
当满足条件ZQANDCROSS(KDJ的K,KDJ的D)时,在KDJ的K位置画1号图标
当满足条件ZQANDCROSS(KDJ的D,KDJ的K)时,在KDJ的K位置画2号图标
- QQ：88652583
- 邮箱：88652583@qq.com
- 工作时间：7:30-21:00
- 微信：88652583或扫描如下二维码
sitemap站点地图
