主题：如何求得与当前价格最接近的之上和之下那两条均线？

temp1:=0;
mark1:=0;
temp2:=0;
mark2:=0;

for  i=1 to 4  do
begin

if up[i]>0  then  //等于0则忽略
begin
if up[i]<=temp1  or temp1=0 then begin temp1:=up[i]; mark1:=i;end
end

if up[i]<0 then
begin
if up[i]>=temp2 or temp2=0 then begin temp2:=up[i];mark2:=i;end
end

end

z:mark1;//获取的是上方均线的下标值，下标顺序对应从5日到20日
q:mark2;//获取的是下方均线的下标值