function [i, p]=IterHornerRossz(p, x0)
  i=0;
  while(...)
    [p_new q]=deconv(...);
    if(q(end) ...)
      break;
    end
    i=...;
    p = p_new;
  end

end
