同花顺动力KDJ副图源码 EA

布林极限:=100*(C-MA(C,20))/STD(C,20);
r布林k值:=EMA(布林极限,10);
rvar2:=EMA(布林极限,5);
rvar3:=EMA(布林k值,5);
rSTICKLINE(var2>=var3,101,103,8,0),colorffff00;
rSTICKLINE(布林极限>=0,99,101,8,0),colorff0000;

r

var1k:=(L+H+2*C)/4;
rvar2k:=REF(var1k,1);
rvar3k:=SMA(var1k-var2k,6,1)/SMA(ABS(var1k-var2k),6,1)*100;
rmms:=var3k+50;
rmmm:=EMA(mms,8);
rSTICKLINE(mms>=100,105,107,10,0),colorffffff;
rSTICKLINE(mms<0,-12,-14,6,0),colorffffff;

r

mav:=(C*2+H+L)/4;
rsk:=EMA(mav,1)-EMA(mav,40);
rsd:=EMA(sk,5);
rb:=(sk-sd)*50;
ra:=(HHV(H,5)-C)/(HHV(H,5)-LLV(L,5))*10;
ra1:=(3*a-2*SMA(a,3,1));
r短线阻力:=IF(a1>50,50,IF(a1<-5,-5,a1));
r短线能量:=IF(b<-20,-20,IF(b>50,50,b));
rSTICKLINE(短线能量>=短线阻力,0,短线能量+10,6,0),colorred;
rSTICKLINE(短线能量>=短线阻力 AND 短线能量-REF(短线能量,1)<0,0,短线能量/2+10,6,0),coloryellow;
rSTICKLINE(短线能量<短线阻力,0,短线能量+10,6,0),colorff0000;

r

bias1w:=(C-MA(C,6))/MA(C,6)*100;
rbias2w:=(C-MA(C,12))/MA(C,12)*100;
rbias3w:=(C-MA(C,24))/MA(C,24)*100;
rmm:=(bias1w+2*bias2w+3*bias3w)/6;
rmn:=MA(mm,3);
rSTICKLINE(mn<-12,-10,-12,6,0),colorgreen;

r

rsv:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
rk:=SMA(rsv,3,1);
rd:SMA(k,3,1),colorred;
rj:=3*k-2*d,colorff0000;

r

DRAWTEXT(CROSS(j,d) AND d<=20,18,’!’),colorred;
rPARTLINE(k,J>d,RGB(255,0,0),j<d,RGB(0,255,0),1,RGB(0,0,255));

r