[PEL] 复制代码 VARIABLE:Line1:=0,line2:=0,line3:=0;
VARIABLE:mark:=0;
ma24:ma(c,24);
if (cross(h,ma24) and Line1=0) or (all(line1<>0 and line2=0,25)) then
BEGIN
Line1:=ma24+20*MINDIFF;
END
if h>Line1 and line2=0 and Line1<>0 then Line2:=Line1+20*MINDIFF;
if h>Line2 and line3=0 and Line2<>0 then Line3:=Line1+40*MINDIFF;
if cross(ma24,h) then
begin
line1:=0;
line2:=0;
line3:=0;
end
TOP1:if(line1<>0 and line2=0,line1,DRAWNULL),COLORWHITE;
TOP2:if(line2<>0 and line3=0,line2,DRAWNULL),COLORYELLOW;
TOP3:if(line3<>0,line3,DRAWNULL),COLORYELLOW,COLORRED;
这样再看下 |