KDJ三周期副图

源码

input:nr(9,1,500,1),mr1(3,1,100,1),mr2(3,1,100,1),{ 日kdj参数 }
      nw(9,1,500,1),mw1(3,1,100,1),mw2(3,1,100,1),{ 周kdj参数 }
      nm(9,1,500,1),mm1(3,1,100,1),mm2(3,1,100,1);{ 月kdj参数 }
REFLINE: 0,20, 50, 80,100,150,180,200,250,300;
   { 日KDJ金叉 }
RSVR:=(CLOSE-LLV(LOW,NR))/(HHV(HIGH,NR)-LLV(LOW,NR))*100;
KR0:=SMA(RSVR,MR1,1);
kr:kr0+200,ColorFF0000;
DR0:=SMA(KR0,MR2,1);
dr:dr0+200,ColorFF0000,linethick2;
JR:3*KR-2*DR,color00ff00;
日金叉:=FILTER(cross(Kr0,Dr0),5){,colorffffff,linethick0};
stickline(日金叉,kr,kr*1.10,1,0),colorffffff,linethick2;
drawtext(日金叉,kr*1.10,'日金叉'),colorffffff,linethick1;
{ 周KDJ金叉 }
ZCw:=IF(BARPOS=1,1,DAYS1970-ref(DAYS1970,1)<>WEEKDAY-REF(WEEKDAY,1));
{上市第一日ZC取1,每周初交易日取1,其他交易日取0 }
STICKLINE(zcw ,100 ,110 ,0.8 ,1 ),colorff00ff;
Xw:=SUMBARS(ZCw,Nw);
Mw:=BARSLAST(ZCw)+1;   { 最后一周交易日 }
RSVw:=(CLOSE-LLV(LOW,Xw))/(HHV(HIGH,Xw)-LLV(LOW,Xw))*100;
Kw0:=((RSVw+(Mw1-1)*REF("KDJ.K#WEEK",Mw))/Mw1);
kw:kw0+100,colorff00ff;
Dw0:=(Kw0+(Mw2-1)*REF("KDJ.D#WEEK",Mw))/Mw2;
dw:dw0+100,colorff00ff,linethick2;
Jw:3*Kw-2*Dw,Color00FFFF;
周金叉:=FILTER(cross(KW0,DW0),5){,colorffffff,linethick0};
stickline(周金叉,kw,kw*1.20,1,0),colorff00ff,linethick2;
drawtext(周金叉,kw*1.20,'周金叉'),colorff00ff,linethick1;
      { 月KDJ金叉 }
ZCM:=IF(BARPOS=1,1,BARPOS-ref(BARPOS,1)=1 and month<>ref(month,1));
   {上市第一日ZC取1,每月初交易日取1,其他交易日取0 }