?
variable:hh=0;
variable:bj=0;
if cross(ma上穿) then begin
??? hh:=h;
??? bj:=1;
end
if bj=1 and h>hh then hh:=h;
if cross(ma下穿) then begin
??? bj:=0;
??? hh:=0;
if bj=1 and?條件1 then hh:=h;