#	numerical limit
#	e.g. nlim(sin(x)/x, x=0) gives 1;
#	See also : lim;
#nlim(y_, l_=r_) := n(replace(y, l, r+10^(-10)));
#nlim(y_):=n(replace(y, x, 10^(-10)));
#nlim(a_+b_,x_,x0_):=nlim(a,x,x0)+nlim(b,x,x0);

nlim(y_):=nlim(y,x,0);
nlim(y_,x_):=nlim(y,x,0);
nlim(y_, x_=x0_, dir_) := nlim(y,x,x0,dir);
nlim(y_, x_=x0_) := nlim(y,x,x0);
nlim(y_,x_,oo):=nlim(replace(y,x,1/x),x,0);
nlim((1+1/k_*x_)^k_,k_,Infinity):=exp(x);
nlim((1+k_*x_)^(1/k_),k_,0):=exp(x);