您给出的通达信代码是多次调用其他周期数据，wh6是适合看盘的大众软件，只支持一次调用，无法实现改写，可参考函数" $ $ "
wh8是专业的程序化软件，支持多次调用其他周期数据，给您改写如下：
wh8软件下载地址：http://www.wenhua.com.cn/
#IMPORT [MONTH, 1, KDJ] AS VAR
KK:=VAR.K;
DD:=VAR.D;
#IMPORT [MONTH, 1, KDJ] AS VARWEEK
KKWEEK:=VAR.K;
DDWEEK:=VAR.D;
JJWEEK:=VAR.J;
NOTEXT来:50,COLORBLUE;
月K:MA(KK,20),COLORGREEN;
月D:MA(DD,20),COLORRED;
FILLRGN(月K>月D,月K,月D,RGB(165,87,16));
FILLRGN(月K<=月D,月K,月D,RGB(120,120,120));
周K:MA(KKWEEK,5),COLORMAGENTA,LINETHICK1;
周D:MA(DDWEEK ,5),COLORCYAN,LINETHICK1;
周J:MA(JJWEEK ,5),COLORWHITE;
周KD差:=周K-周D;
STICKLINE(周K>=REF(周K,WEEKDAY),8,10,2,0),COLOR0000FF;
STICKLINE(周K<REF(周K,WEEKDAY),8,10,2,0),COLORFFFF00;
STICKLINE(周KD差>=REF(周KD差,WEEKDAY),4,6,2,0),COLOR0000FF;
STICKLINE(周KD差<REF(周KD差,WEEKDAY),4,6,2,0),COLORFFFF00;
RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
日K:SMA(RSV,6,1),NODRAW;
日D:SMA(日K,3,1),NODRAW;
FILLRGN(日K>日D,日K,日D,RGB(240,20,10));
FILLRGN(日K<=日D,日K,日D,RGB(0,150,70));
日J:=3*日K-2*日D;
ZJ:=MA(JJWEEK ,1);
FILLRGN(周K>周D,周K,周D,RGB(180,0,180));
FILLRGN(周K<=周D,周K,周D,RGB(0,120,0));
DRAWTEXT((CROSS(周K,周D) && (周K>周D)),60,'周');
IF(周J>=REF(周J,1),周J,NULL),COLOR0080FF,LINETHICK3;
没有用到未来函数。
