%SN_INERFC  Symbolic analogue of N_inerfc.m
%
function [N,y]=sN_inerfc(dig,n,x,eps0,N0,dN)
digits(dig); x=vpa(x);
N=N0-dN;
y=vpa(1); y0=vpa(0);
while abs(subs((y-y0)/y))>eps0
  N=N+dN; y0=y;
  if N>200, error('N exceeds 200'); end
  y=squad_inerfc(dig,N,n,x);
end
