[飞 狐] 飞狐日线副图显示各周期K线和KDJ指标公式（源码 副图 贴图）

紫色璎珞

[飞　狐] 飞狐日线副图显示各周期K线和KDJ指标公式（源码 副图 贴图）
先建一个被引用公式:

Y_K------叠加小周期引用
{Y_K}
input:n(0,0,300);
oo:IF(n=0,OPEN,REF(OPEN,n));
cc:IF(n=0,CLOSE,REF(CLOSE,n));
hh:IF(n=0,HIGH,REF(HIGH,n));
ll:IF(n=0,LOW,REF(LOW,n));

小周期K线

{叠加小周期K线}
input:N(60,1,300),T(4,1,12);

{小周期}
oo:c*0,LINETHICK;    cc:c*0,LINETHICK;    hh:c*0,LINETHICK;    ll:c*0,LINETHICK;    da:=datacount;
for i=0 to n DO BEGIN
Ni:=NUMTOSTR(i,0);
  mo:=STKINDI('','Y_K.oo('+Ni+')',0,T);
  oo[da-i] := mo[da];
  mc:=STKINDI('','Y_K.cc('+Ni+')',0,T);
  cc[da-i] := mc[da];
  mh:=STKINDI('','Y_K.hh('+Ni+')',0,T);
  hh[da-i] := mh[da];
  ml:=STKINDI('','Y_K.ll('+Ni+')',0,T);
  ll[da-i] := ml[da];
END;
p:=SETLBOUND(oo,da-n);    p:=SETLBOUND(cc,da-n);    p:=SETLBOUND(hh,da-n);    p:=SETLBOUND(ll,da-n);
STICKLINE(oo>cc,ll,hh,0,0),ColorAB5600;     STICKLINE(oo>cc,oo,cc,7,0),ColorAB5600;
STICKLINE(oo<=cc,ll,hh,0,0),Color000089;    STICKLINE(oo<=cc,oo,cc,7,0),Color000089;
zq:=IF(t=1,'1分钟K线',IF(t=2,'5分钟K线',IF(t=3,'15分钟K线',IF(t=4,'30分钟K线','60分钟K线'))));
DRAWTEXTEX(1,0,10,10,zq),COLORYELLOW;
G_x1:=(OO+LL+HH+CC*3)/6;                           
小周期5:EMA(FORCAST(ma(G_x1,2),2),5),PRECISION2,COLORGREEN;


小周期KDJ

input:N(60,1,300),T(4,1,12);

{小周期}
oo:c*0,LINETHICK;    cc:c*0,LINETHICK;    hh:c*0,LINETHICK;    ll:c*0,LINETHICK;    da:=datacount;
for i=0 to n DO BEGIN
Ni:=NUMTOSTR(i,0);
  mo:=STKINDI('','Y_K.oo('+Ni+')',0,T);
  oo[da-i] := mo[da];
  mc:=STKINDI('','Y_K.cc('+Ni+')',0,T);
  cc[da-i] := mc[da];
  mh:=STKINDI('','Y_K.hh('+Ni+')',0,T);
  hh[da-i] := mh[da];
  ml:=STKINDI('','Y_K.ll('+Ni+')',0,T);
  ll[da-i] := ml[da];
END;

zq:=IF(t=1,'1分钟KDJ',IF(t=2,'5分钟KDJ',IF(t=3,'15分钟KDJ',IF(t=4,'30分钟KDJ','60分钟KDJ'))));
DRAWTEXTEX(1,0,10,10,zq),COLORYELLOW;


RSV:=(CC-LLV(LL,9))/(HHV(HH,9)-LLV(LL,9))*100;
K:SMA(RSV,3,1),COLORWHITE;
D:SMA(K,3,1),COLORYELLOW;
J:3*K-2*D,COLORRED;