kjyhao 2005-10-10 16:42
多周期Kd:<日.周.月kd>指标
[code]
input:n(9,1,100),m1(3,2,40),m2(3,2,40);
RSV1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
rK:SMA(RSV1,M1,1);
rD:SMA(rK,M2,1);
yy:=if(DATATYPE=6,weekday,if(DATATYPE=7,day,MONTH));
tj:=(yy-ref(yy,1)<>datediff(ref(date,1),date)) or barpos=1;
wtj:=refx(tj,1);
hn:=sumbars(tj,n);
n0:=lbound(hn);
nn:=if(barpos<n0,barpos,hn);
RSV:=(CLOSE-LLV(LOW,nN))/(HHV(HIGH,nN)-LLV(LOW,nN))*100;
wk:=0;
wd:=0;
for i=n0 to datacount do begin
if wtj[i] then begin
wk:=(rsv[i]+(m1-1)*wk)/m1;
wd:=(wk+(m2-1)*wd)/m2;
k[i]:=wk;
d[i]:=wd;
end else begin
k[i]:=(rsv[i]+(m1-1)*wk)/m1;
d[i]:=(k[i]+(m2-1)*wd)/m2;
end;
end;
zyk:k;
zyd:d;
[/code]
几点说明:
多周期Kd:<日.周.月kd>指标：
1、当前周期为日kd时，则同时显示周kd线;
2、当前周期为分钟（1--60分钟）kd，则同时显示日kd线;
3、当前周期为周kd,则同时显示月Kd线;
4、上述公式略加修改，即可同时在日线周期显示：日周月三个周期的KD线指标；
附：日周月KD指标的另一种写法；
[code]
RK:StkIndi(StkLabel,'KDJ.K',0,6);
RD:StkIndi(StkLabel,'KDJ.D',0,6);
ZK:StkIndi(StkLabel,'KDJ.K',0,7);
ZD:StkIndi(StkLabel,'KDJ.D',0,7);
YK:StkIndi(StkLabel,'KDJ.K',0,8);
YD:StkIndi(StkLabel,'KDJ.D',0,8);
[/code]
5、如喜爱KDJ三线显示，可加上语句：rJ:3*RK-2*RD; ZYJ:3*ZYK-2*ZYD;
6、如希望周或月指标线更平滑，可加用：SMA(X,3,1)或EMA（X，2）语句等：
如:zyk:sma(k,m1,1);
另：对<周K线及周均线>指标，许多朋友来短信问如何实现上述功能，在此统一答复：
[code]
yy:=if(DATATYPE=6,weekday,if(DATATYPE=7,day,MONTH));
tj:=(yy-ref(yy,1)<>datediff(ref(date,1),date)) or barpos=1;
[/code]
将上述语句替换下面的语句即可：
[code]
tj:=(weekday-ref(weekday,1)<>datediff(ref(date,1),date)) or barpos=1;
[/code]
谢谢大家,如有不妥,望大家斧正!!!
goldhill1965 2005-10-10 17:26
恳求在上面的的基础上叠加k线源码。谢谢！
股市骑兵00 2005-10-10 18:44
[quote]Originally posted by [i]goldhill1965[/i] at 2005-10-10 17:26:
恳求在上面的的基础上叠加k线源码。谢谢！ [/quote]
鼠标右键如图：
股市骑兵00 2005-10-10 18:45
谢谢 kjyhao公式很好！
介绍也很详细！:cool:
goldhill1965 2005-10-10 21:07
我知道飞狐有叠加k线的功能，可是有时操作并不太方便，所以还是恳求源码。谢谢！
peter109 2005-10-11 13:27
學習ing .....
qwe_rty_uio 2005-11-6 10:52
看贴学习，回贴谢谢.
figopan123 2005-11-12 15:20
谢谢 kjyhao!
xuyi 2006-2-24 18:56
多周期Kd:<日.周.月kd>指标
好好，收藏起来。
hxx816 2006-4-7 23:18
[size=8][font=华文琥珀]
[color=red]谢谢提供[/color][/font][/size]
shujenwen 2006-5-12 14:39
3Q!謝謝提供者
3q3q3q!