通达信KDJMACD日周月日公式源码
指标在副图同时显示KDJ和MACD的日、周、月、日6015(60日参数)四个周期的数值。
- 上方显示周期标签:日、周、月、日6015。
- 下方依次显示各周期的K、D、J、DIF、DEA、MACD数值。
- 主图区域绘制MACD柱状线,红柱为正,绿柱为负。
- 使用`NODRAW`隐藏中间计算线,仅通过`DRAWTEXT_FIX`固定位置显示数值。
- 日6015周期使用60日参数计算KDJ,MACD参数不变。
{KDJ MACD 日周月 日6015 同一个副图指标}
N:=9; M1:=3; M2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
J:3*K-2*D;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
STICKLINE(MACD>0,0,MACD,2,0),COLORRED;
STICKLINE(MACD<0,0,MACD,2,0),COLORGREEN;
DRAWTEXT_FIX(1,0.005,0.02,0,'日'),COLORWHITE;
DRAWTEXT_FIX(1,0.05,0.02,0,'周'),COLORWHITE;
DRAWTEXT_FIX(1,0.095,0.02,0,'月'),COLORWHITE;
DRAWTEXT_FIX(1,0.14,0.02,0,'日6015'),COLORWHITE;
K_DAY:K,NODRAW;
D_DAY:D,NODRAW;
J_DAY:J,NODRAW;
DIF_DAY:DIF,NODRAW;
DEA_DAY:DEA,NODRAW;
MACD_DAY:MACD,NODRAW;
K_WEEK:="KDJ.K#WEEK"(N,M1,M2),NODRAW;
D_WEEK:="KDJ.D#WEEK"(N,M1,M2),NODRAW;
J_WEEK:="KDJ.J#WEEK"(N,M1,M2),NODRAW;
DIF_WEEK:="MACD.DIF#WEEK",NODRAW;
DEA_WEEK:="MACD.DEA#WEEK",NODRAW;
MACD_WEEK:="MACD.MACD#WEEK",NODRAW;
K_MONTH:="KDJ.K#MONTH"(N,M1,M2),NODRAW;
D_MONTH:="KDJ.D#MONTH"(N,M1,M2),NODRAW;
J_MONTH:="KDJ.J#MONTH"(N,M1,M2),NODRAW;
DIF_MONTH:="MACD.DIF#MONTH",NODRAW;
DEA_MONTH:="MACD.DEA#MONTH",NODRAW;
MACD_MONTH:="MACD.MACD#MONTH",NODRAW;
N1:=60;
RSV1:=(CLOSE-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100;
K_6015:SMA(RSV1,M1,1),NODRAW;
D_6015:SMA(K_6015,M2,1),NODRAW;
J_6015:3*K_6015-2*D_6015,NODRAW;
DIF_6015:EMA(CLOSE,12)-EMA(CLOSE,26),NODRAW;
DEA_6015:EMA(DIF_6015,9),NODRAW;
MACD_6015:(DIF_6015-DEA_6015)*2,NODRAW;
DRAWTEXT_FIX(1,0.005,0.05,0,CON2STR(K_DAY,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.05,0.05,0,CON2STR(K_WEEK,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.095,0.05,0,CON2STR(K_MONTH,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.14,0.05,0,CON2STR(K_6015,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.005,0.08,0,CON2STR(D_DAY,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.05,0.08,0,CON2STR(D_WEEK,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.095,0.08,0,CON2STR(D_MONTH,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.14,0.08,0,CON2STR(D_6015,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.005,0.11,0,CON2STR(J_DAY,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.05,0.11,0,CON2STR(J_WEEK,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.095,0.11,0,CON2STR(J_MONTH,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.14,0.11,0,CON2STR(J_6015,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.005,0.14,0,CON2STR(DIF_DAY,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.05,0.14,0,CON2STR(DIF_WEEK,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.095,0.14,0,CON2STR(DIF_MONTH,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.14,0.14,0,CON2STR(DIF_6015,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.005,0.17,0,CON2STR(DEA_DAY,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.05,0.17,0,CON2STR(DEA_WEEK,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.095,0.17,0,CON2STR(DEA_MONTH,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.14,0.17,0,CON2STR(DEA_6015,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.005,0.20,0,CON2STR(MACD_DAY,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.05,0.20,0,CON2STR(MACD_WEEK,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.095,0.20,0,CON2STR(MACD_MONTH,2)),COLORWHITE;
DRAWTEXT_FIX(1,0.14,0.20,0,CON2STR(MACD_6015,2)),COLORWHITE;

未来函数检测结果如下:
该公式包含未来函数:#MONTH
该公式包含未来函数:#WEEK
定制指标公式、软件请联系QQ或微信同号:88652583
当前公式 :
错误句 :
详细信息 : 无内容可编译!
错误起始位置 : 0 ; 长度: 0
- QQ:88652583
- 邮箱:88652583@qq.com
- 工作时间:7:30-21:00
- 微信:88652583或扫描如下二维码
sitemap站点地图