周KDJ RSI MACD

来源:百度文库 编辑:神马文学网 时间:2024/04/29 14:29:18

  周KDJ

input:n(9,1,100),m1(3,2,40),m2(3,2,40);
wtj1:=datediff(ref(date,1),date)<>weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1);  //周末标记
hn:=sumbars(wtj,n+1);
n0:=lbound(hn);
a:=setlbound(hn,1);
nn:=if(barposRSV:=(CLOSE-LLV(LOW,nN))/(HHV(HIGH,nN)-LLV(LOW,nN))*100;
start:=barpos-barssince(wtj);
wk:=rsv[start[datacount]];
k[start[datacount]]:wk;
wd:=k[start[datacount]];
d[start[datacount]]:wd;
for i=start[datacount]+1 to datacount do begin
  if wtj then begin
    wk:=(rsv+(m1-1)*wk)/m1;
    wd:=(wk+(m2-1)*wd)/m2;
    k:=wk;
    d:=wd;
  end else begin
    k:=(rsv+(m1-1)*wk)/m1;
    d:=(k+(m2-1)*wd)/m2;
  end;
end;
j:3*k-2*d;