指标功能：[B]国产软件[/B]
指标类型：简体中文
所需积分：0
推荐星级：
授权方式：共享版
公式大小：0 Bytes
更新时间：2011-05-30 08:17:00
公式简介:

日线副图显示各周期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;
 

 

[url=http://www.goodgupiao.com/gupiaogongshi/13989.html][B]日线副图显示各周期K线和KDJ（源码 副图 贴图）[/B][/url]