KDJ三周期副图 EA

KDJ三周期副图

rn

源码

rn

input:nr(9,1,500,1),mr1(3,1,100,1),mr2(3,1,100,1),{ 日kdj参数 }
rn      nw(9,1,500,1),mw1(3,1,100,1),mw2(3,1,100,1),{ 周kdj参数 }
rn      nm(9,1,500,1),mm1(3,1,100,1),mm2(3,1,100,1);{ 月kdj参数 }
rnREFLINE: 0,20, 50, 80,100,150,180,200,250,300;
rn   { 日KDJ金叉 }
rnRSVR:=(CLOSE-LLV(LOW,NR))/(HHV(HIGH,NR)-LLV(LOW,NR))*100;
rnKR0:=SMA(RSVR,MR1,1);
rnkr:kr0+200,ColorFF0000;
rnDR0:=SMA(KR0,MR2,1);
rndr:dr0+200,ColorFF0000,linethick2;
rnJR:3*KR-2*DR,color00ff00;
rn日金叉:=FILTER(cross(Kr0,Dr0),5){,colorffffff,linethick0};
rnstickline(日金叉,kr,kr*1.10,1,0),colorffffff,linethick2;
rndrawtext(日金叉,kr*1.10,’日金叉’),colorffffff,linethick1;
rn{ 周KDJ金叉 }
rnZCw:=IF(BARPOS=1,1,DAYS1970-ref(DAYS1970,1)<>WEEKDAY-REF(WEEKDAY,1));
rn{上市第一日ZC取1,每周初交易日取1,其他交易日取0 }
rnSTICKLINE(zcw ,100 ,110 ,0.8 ,1 ),colorff00ff;
rnXw:=SUMBARS(ZCw,Nw);
rnMw:=BARSLAST(ZCw)+1;   { 最后一周交易日 }
rnRSVw:=(CLOSE-LLV(LOW,Xw))/(HHV(HIGH,Xw)-LLV(LOW,Xw))*100;
rnKw0:=((RSVw+(Mw1-1)*REF("KDJ.K#WEEK",Mw))/Mw1);
rnkw:kw0+100,colorff00ff;
rnDw0:=(Kw0+(Mw2-1)*REF("KDJ.D#WEEK",Mw))/Mw2;
rndw:dw0+100,colorff00ff,linethick2;
rnJw:3*Kw-2*Dw,Color00FFFF;
rn周金叉:=FILTER(cross(KW0,DW0),5){,colorffffff,linethick0};
rnstickline(周金叉,kw,kw*1.20,1,0),colorff00ff,linethick2;
rndrawtext(周金叉,kw*1.20,’周金叉’),colorff00ff,linethick1;
rn      { 月KDJ金叉 }
rnZCM:=IF(BARPOS=1,1,BARPOS-ref(BARPOS,1)=1 and month<>ref(month,1));
rn   {上市第一日ZC取1,每月初交易日取1,其他交易日取0 }      
rnSTICKLINE(zcm ,0 ,10 ,0.8 ,1 ),coloraaaaff;
rnXM:=SUMBARS(ZCM,NM);
rnMM:=BARSLAST(ZCM)+1;   { 最后一月交易日 }
rnRSVM:=(CLOSE-LLV(LOW,XM))/(HHV(HIGH,XM)-LLV(LOW,XM))*100;
rnKm:(RSVM+(MM1-1)*REF("KDJ.K#month",MM))/MM1,coloraaaaff;
rnDm:(Km+(MM2-1)*REF("KDJ.D#month",MM))/MM2,coloraaaaff,linethick2;
rnJm:3*Km-2*Dm,;
rn月金叉:=FILTER(cross(Km,Dm),5){,coloraaaaff,linethick0};
rnstickline(月金叉,km,km*1.8,1,0),coloraaaaff,linethick2;
rndrawtext(月金叉,km*1.8,’月金叉’),coloraaaaff,linethick1;
rnPARTLINE(jm>80,jm),colorred;
rn  { KDJ共振 }
rn三金叉:FILTER(SUM(日金叉,5)>=1 AND SUM(周金叉,5)>=1 AND
rn        SUM(月金叉,10)>=1,5),color0000ff,linethick0;
rnSTICKLINE(三金叉 ,0 ,200 ,1 ,0 ),color0000ff,linethick3;
rndrawtext(三金叉,200,’月周日三金叉’),color0000ff,linethick2;
rn0,coloraaaaaa;100,coloraaaaaa;200,coloraaaaaa;
rn{公式名称:KD月周日
rn公式描述:逐日显示日,周,月三周期kdj};

rn