多周期KDJ共振（副图 源码）

多周期KDJ共振

DRAWGBK(v>1,COLORRGB(0,0,0),COLORRGB(40,80,100),1);

日K:ma("kdj.k",1),PRECISION2,COLORaa99cc,linethick;
日D:ma("kdj.d",1),linethick,PRECISION2,COLORCYAN;
日j:ma("kdj.j",1),linethick,PRECISION2,COLORBROWN;
{以上还可以这样表示
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
日K:SMA(RSV,3,1);
日D:SMA(日K,3,1);
日J:3*日K-2*日D;}
FILLRGN(日K>=日D,日K,日D),COLORaa99cc;
FILLRGN(日K<日D,日K,日D),Color008080;
FILLRGN(日j>=日k,日K,日j),COLORBROWN;
FILLRGN(日j<日k,日K,日j),COLORCYAN;
STICKLINE(c>0,80,80,3,0),COLORBLUE,LINEDOT;
STICKLINE(c>0,50,50,3,0),COLORffffff,LINEDOT;
动力:sma(ma((c-ref(c,1))/ref(c,1),5)*100,2,1)*5,LINETHICK,PRECISION2,ColorFF;
FILLRGN(动力>0,动力,0),Color000080;
FILLRGN(动力<0,动力,0),COLORGRAY;
PARTLINE(动力>REF(动力,1),0),COLORff,linethick2;

周j:FORCAST("KDJ.j#WEEK",13),PRECISION2;
周je:wma(周j,5),PRECISION2;
周k:ma("KDJ.k#WEEK",5),linethick,PRECISION2,colorFF8800;
周d:=ma("KDJ.d#WEEK",5),linethick,PRECISION2,color661ffd;
STICKLINE(周k<=周d,周k,周d,4,0),colorFF7700;STICKLINE(周k<=周d,周k,周d,3.5,0),colorFF8800;
STICKLINE(周k<=周d,周k,周d,3,0),colorFF9900;STICKLINE(周k<=周d,周k,周d,2.5,0),colorFFAA00;
STICKLINE(周k<=周d,周k,周d,2,0),colorFFBB00;STICKLINE(周k<=周d,周k,周d,1.5,0),colorFFCC00;
STICKLINE(周k<=周d,周k,周d,1,0),colorFFDD00;STICKLINE(周k<=周d,周k,周d,0.5,0),colorFFEE00;

STICKLINE(周k>周d,周k,周d,4,0),color131ffd;STICKLINE(周k>周d,周k,周d,3.5,0),color661ffd;
STICKLINE(周k>周d,周k,周d,3,0),COLOR5050FF;STICKLINE(周k>周d,周k,周d,2.5,0),COLOR5F5FFF;
STICKLINE(周k>周d,周k,周d,2,0),COLOR6C6CFF;STICKLINE(周k>周d,周k,周d,1.5,0),COLOR7E7EFF;
STICKLINE(周k>周d,周k,周d,1,0),COLOR9D9DFF;STICKLINE(周k>周d,周k,周d,0.5,0),COLORAFAFFF;

STICKLINE(周k>周d and 周k<=ref(周k,1),周k,(周d),4,0),COLORWHITE;
STICKLINE(周k<=周d and 周k>ref(周k,1),周d,(周k),4,0),COLORYELLOW;
diff:=ema(c,12)-ema(c,26);
DIFR:(diff-LLV(diff,9))/(HHV(diff,9)-LLV(diff,9))*100,ColorC080FF,PRECISION2;

PARTLINE(DIFR<REF(DIFR,1),DIFR),Color008080,LINETHICK1;
PARTLINE(周j<=REF(周j,1),周j),LINETHICK1,color009900;
PARTLINE(周j>REF(周j,1),周j),LINETHICK1,ColorFF;
PARTLINE(周je<=REF(周je,1),周je),LINETHICK1,colorFF9999;
PARTLINE(周je>REF(周je,1),周je),LINETHICK1,color99FF;

周金叉:IF(CROSS(周j,周k),0,-20),colorred;
DRAWTEXT(周金叉>-20,10,'周\n金'),colorred;