通达信KDJ全景 副图源码 说明

以obv 为基础 编写的 日周月KDJ全景

{日周月KDJ全景}
OBV:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);
{月KDJ}
月RSV:=(OBV-LLV(OBV,180))/(HHV(OBV,180)-LLV(OBV,180))*100;
月K:=SMA(月RSV,5,1),COLOR0080FF;
月D:=SMA(月K,3,1),COLOR0080FF,LINETHICK2;
月JJ:=3*月K-2*月D;
月J:=IF(月JJ>100,100,月JJ),COLOR0080FF,LINETHICK1;
IF(C>0,3,DRAWNULL),COLORFFFF80,LINETHICK9;
IF(月K>=月D,3,DRAWNULL),COLORC080FF,LINETHICK9;
DRAWTEXT(CURRBARSCOUNT=100,7,'.月KD金叉'),COLORYELLOW;
IF(C>0,15,DRAWNULL),COLORFFFF80,LINETHICK9;
IF(月J>=REF(月J,1),15,DRAWNULL),COLORC080FF,LINETHICK9;
DRAWTEXT(CURRBARSCOUNT=100,19,'.月J拐点'),COLORYELLOW;
{周KDJ}
周RSV:=(OBV-LLV(OBV,45))/(HHV(OBV,45)-LLV(OBV,45))*100;
周K:=SMA(周RSV,5,1),COLORFFFFFF,LINETHICK2,NODRAW;
周D:=SMA(周K,3,1),COLOR00FFFF,LINETHICK2,NODRAW;
周JJ:=3*周K-2*周D;
周J:=IF(周JJ>100,100,周JJ),COLORFF00FF,LINETHICK2,NODRAW;
IF(C>0,30,DRAWNULL),COLOR00FF00,LINETHICK9;
IF(周K>=周D,30,DRAWNULL),COLORRED,LINETHICK9;
周KD金叉:周K>= 周D,COLOR8080FF,NODRAW;
DRAWTEXT (CURRBARSCOUNT=100,34,'.周KD金叉'),COLORFFFFFF;
IF(C>0,45,DRAWNULL),COLOR00FF00,LINETHICK9;
IF(周K>=REF(周K,1),45,DRAWNULL),COLORRED,LINETHICK9;
周K拐点:周K>=REF(周K,1),COLOR8080FF,NODRAW;
DRAWTEXT (CURRBARSCOUNT=100,49,'.周K拐点'),COLORFFFFFF;
IF(C>0,60,DRAWNULL),COLOR00FF00,LINETHICK9;
IF(周J>=REF(周J,1), 60,DRAWNULL),COLORRED,LINETHICK9;

{日KDJ}
RSV:=(OBV-LLV(OBV,9))/(HHV(OBV,9)-LLV(OBV,9))*100;
IF(C>0,90,DRAWNULL),COLOR666600,LINETHICK9;
IF(SMA(RSV,5,1)>SMA(SMA(RSV,5,1),3,1),90,DRAWNULL),COLORFF00FF,LINETHICK9;
K:SMA(RSV,5,1),COLORWHITE,LINETHICK1;
D:SMA(K,3,1),COLORYELLOW,LINETHICK1;
JJ:=3*K-2*D;
J:IF(JJ>100,100,JJ),COLOR0080FF,LINETHICK1;