variable:n=0,shiti=0;

if c>o then begin

n:=n+1;

shiti:=c-o;

end

if c>o and c-o>shiti then shiti:=c-o;

if n:=20 then zuida:=shiti;

if ref(n=20,1) then begin

n:=0;

shiti:=0;

end

zuida就是20個陽線最大的實體

每20 重置全局變量