日线副图显示各周期K线和KDJ（源码 副图 贴图）

好股网(www.goodgupiao.com)提示：您正在下载的是：日线副图显示各周期K线和KDJ（源码 副图 贴图）

日线副图显示各周期K线和KDJ，思路取自（MACD论坛A班的叠加小周期）。改变参数：N可调节显示长度。改变参数：T可调节显示周期。

先建一个被引用公式:

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;
 

 

好股网(www.goodgupiao.com)提醒您：股市有风险，投资需谨慎。