源码
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 }
STICKLINE(zcm ,0 ,10 ,0.8 ,1 ),coloraaaaff;
XM:=SUMBARS(ZCM,NM);
MM:=BARSLAST(ZCM)+1; { 最后一月交易日 }
RSVM:=(CLOSE-LLV(LOW,XM))/(HHV(HIGH,XM)-LLV(LOW,XM))*100;
Km:(RSVM+(MM1-1)*REF("KDJ.K#month",MM))/MM1,coloraaaaff;
Dm:(Km+(MM2-1)*REF("KDJ.D#month",MM))/MM2,coloraaaaff,linethick2;
Jm:3*Km-2*Dm,;
月金叉:=FILTER(cross(Km,Dm),5){,coloraaaaff,linethick0};
stickline(月金叉,km,km*1.8,1,0),coloraaaaff,linethick2;
drawtext(月金叉,km*1.8,'月金叉'),coloraaaaff,linethick1;
PARTLINE(jm>80,jm),colorred;
{ KDJ共振 }
三金叉:FILTER(SUM(日金叉,5)>=1 AND SUM(周金叉,5)>=1 AND
SUM(月金叉,10)>=1,5),color0000ff,linethick0;
STICKLINE(三金叉 ,0 ,200 ,1 ,0 ),color0000ff,linethick3;
drawtext(三金叉,200,'月周日三金叉'),color0000ff,linethick2;
0,coloraaaaaa;100,coloraaaaaa;200,coloraaaaaa;
{公式名称:KD月周日
公式描述:逐日显示日,周,月三周期kdj};
