同花顺动力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));