日周KDJ同图 完美把周线KDJ移植到日线 通达信副图指标 源码 贴图

DDATE:=DATE,NODRAW,COLOR0000FF;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1),COLORFFFFFF;
D:=SMA(K,3,1),COLOR00FFFF;
J:=3*K-2*D,COLORFF00FF;
D1:=DATE;
K01:=KDJ.K#WEEK;
D01:=KDJ.D#WEEK;
J01:=KDJ.J#WEEK;
WEK:=REFX(WEEKDAY<REF(WEEKDAY,1) OR DATETODAY(DATE)-DATETODAY(REF(DATE,1))>=7,1) OR ISLASTBAR;
D2:=IF(WEK,D1,DRAWNULL);
K02:=IF(WEK,K01,DRAWNULL);
D02:=IF(WEK,D01,DRAWNULL);
J02:=IF(WEK,J01,DRAWNULL);
WDATE:=ALIGNRIGHT(D2),NODRAW,COLOR00BB99;
周KK:=ALIGNRIGHT(K02),NODRAW,COLORFFFFFF;
周DD:=ALIGNRIGHT(D02),NODRAW,COLOR00FFFF;
周JJ:=ALIGNRIGHT(J02),NODRAW,COLORFF00FF;
WWWGOODGUPIAO.COMCOM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
A1:=CONST(LLV(J,200))*5;
Q:=0.6;{WWW.GPXIAZAI.COM}
NOTEXT1:=A1,COLOR336699,;
周K:周KK,COLORFFFFFF,;
周D:周DD,COLOR00FFFF,;
周J:周JJ,COLORFF00FF,;
100,COLOR00AA00,DOTLINE;
{50,COLORLIGRAY,DOTLINE;};