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

通达信自用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;