尾追比例:=0.01;
cc:=close;
hh:=High;
ll:=Low;
Trail:c*0;
TrailN:=cc[1];
for i=lbound(trail) to ubound(trail) do begin
if hh[i]>TrailN+尾追比例*cc[i] then TrailN:=hh[i]-尾追比例*hh[i];
if ll[i]<TrailN-尾追比例*cc[i] then TrailN:=ll[i]+尾追比例*ll[i];
Trail[i]:=TrailN;
end;