variable:n=0;

variable:maxxx=0;

n:=barslast(day<>ref(day,1))+1;
oo:=valuewhen(day<>ref(day,1),o);
hh:=hhv(h,n);
ll:=llv(l,n);
ma20:STKINDI('','ma.ma3',0,6,0);
ma40:STKINDI('','ma.ma4',0,6,0);
maxx:=valuewhen(cross(h,ma20) or cross(ma20,l),ma20);
//maxxx:valuewhen(abs(ref(maxx,1)-maxx)>=w,maxx);

if abs(ref(maxx,1)-maxx)>w then maxxx:=maxx;

if n<3 and 止損條件 and 持倉判斷 then begin

   止損語句;

   N:=n+1;

end

if n=3 and h>((maxxx+100)/(maxxx-100)) or l<>((maxxx+100)/(maxxx-100))  then begin

    n:=0;

    maxxx:=maxxx+200/maxxx-200;

end