if ISLASTBAR then exit;
r:ma(c,10);
hh:=c;
ll:=c;
bb:=LLVBARS(l,50);
for i=bb to 0 do
begin
if r[barpos-i-1]<r[barpos-i]&&r[barpos-i]>r[barpos-i+1]
then hh:=i; else hh:=-1;
if r[barpos-i-1]>r[barpos-i]&&r[barpos-i]<r[barpos-i+1]
then ll:=i; else ll:=-1;
end
if hh<>-1&&ll<>-1&&hh>ll then zz:=1 ; else zz:=0;
h1:hh;
l1:ll;
z:zz;
如果你是逐K线上使用,那么请注意要将MA等带有统计性质的函数,放在IF THEN语句之前去执行,请参考
http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=332 问题8,原理是一样的