(* *) (* Numerical Mathematics and Computing, Fifth Edition *) (* Ward Cheney & David Kincaid *) (* Brooks/Cole Publ. Co. *) (* (c) 2003 *) (* No warranties implied or expressed. *) (* File: sine_integral *) (* numerical approximation of sine integral *) SinIntegral[1.] NIntegrate[Sin[x]/x, {x,0,1}]