[飞狐] 均线测价

股道

散户

Rank: 2

帖子: 844
积分: 11
红币: 395

1^# 大中小发表于 2007-4-23 08:18 只看该作者

均线测价

复制内容到剪贴板

代码:

input:n(5,2,1000);

mm:=INTPART(ma(c,n)*100);

hh:=INTPART(hhv(mm,30));

ll:=INTPART(llv(mm,30));

cc:=INTPART(c*100);

for i=datacount-50 to datacount do begin

  jx[i]:=ll[i];

  jd[i]:=hh[i];

  tx[i]:=0;

  td[i]:=0;

  for j=ll[i] to hh[i] do begin

   tt:=0;

   for k=i-29 to i do begin

      if mm[k]=j then tt:=tt+1;

    end;

    if j<=cc[i] then begin

      if tt>=tx[i] then begin tx[i]:=tt; jx[i]:=j; end;

    end;

    if j>cc[i] then begin

      if tt>td[i] then begin td[i]:=tt; jd[i]:=j; end;

    end;

  end;

end;

支撑:jx/100;

支撑次数:tx,linethick0;

阻力:jd/100;

阻力次数:td,linethick0;

附件: 您所在的用户组无法下载或查看附件

TOP

‹‹ 上一主题 | 下一主题 ››