Processus textuel SIGNAL : ADAPTE

process ADAPTE = (integer N; real MU)
                 { ? real ERR; [N]real V_X ! [N]real H}
 (| Z_H := H $1
  | array i to N of
      H := Z_H[i] + MU * ERR * V_X[i]
    end
  |)
where  [N]real Z_H init [{to N}:0.0]
end