同花顺动力KDJ副图源码
布林极限:=100*(C-MA(C,20))/STD(C,20);
布林k值:=EMA(布林极限,10);
var2:=EMA(布林极限,5);
var3:=EMA(布林k值,5);
STICKLINE(var2>=var3,101,103,8,0),colorffff00;
STICKLINE(布林极限>=0,99,101,8,0),colorff0000;
var1k:=(L+H+2*C)/4;
var2k:=REF(var1k,1);
var3k:=SMA(var1k-var2k,6,1)/SMA(ABS(var1k-var2k),6,1)*100;
mms:=var3k+50;
mmm:=EMA(mms,8);
STICKLINE(mms>=100,105,107,10,0),colorffffff;
STICKLINE(mms<0,-12,-14,6,0),colorffffff;
mav:=(C*2+H+L)/4;
sk:=EMA(mav,1)-EMA(mav,40);
sd:=EMA(sk,5);
b:=(sk-sd)*50;
a:=(HHV(H,5)-C)/(HHV(H,5)-LLV(L,5))*10;
a1:=(3*a-2*SMA(a,3,1));
短线阻力:=IF(a1>50,50,IF(a1<-5,-5,a1));
短线能量:=IF(b<-20,-20,IF(b>50,50,b));
STICKLINE(短线能量>=短线阻力,0,短线能量+10,6,0),colorred;
STICKLINE(短线能量>=短线阻力 AND 短线能量-REF(短线能量,1)<0,0,短线能量/2+10,6,0),coloryellow;
STICKLINE(短线能量<短线阻力,0,短线能量+10,6,0),colorff0000;
bias1w:=(C-MA(C,6))/MA(C,6)*100;
bias2w:=(C-MA(C,12))/MA(C,12)*100;
bias3w:=(C-MA(C,24))/MA(C,24)*100;
mm:=(bias1w+2*bias2w+3*bias3w)/6;
mn:=MA(mm,3);
STICKLINE(mn<-12,-10,-12,6,0),colorgreen;
rsv:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
k:=SMA(rsv,3,1);
d:SMA(k,3,1),colorred;
j:=3*k-2*d,colorff0000;
DRAWTEXT(CROSS(j,d) AND d<=20,18,'!'),colorred;
PARTLINE(k,J>d,RGB(255,0,0),j<d,RGB(0,255,0),1,RGB(0,0,255));
