請問我要求連續收陽或收陰的平均收盤價如何寫？

多少個周期連續收陰或收陽？

variable:n=0;

variable:ss=0;

if c>o then begin

     n:=n+1;

     ss:=ss+close;

  end

if c<o then begin

        n:=0;

         ss:=0;

end

   pj:=ss/n;

求連續陰線和也是一樣的