(* *) (* Numerical Mathematics and Computing, Fifth Edition *) (* Ward Cheney & David Kincaid *) (* Brooks/Cole Publ. Co. *) (* (c) 2003 *) (* No warranties implied or expressed. *) (* File: cp6-2-8 *) Integrate[1/Sqrt[Sin[x]], {x, 0, 1}] N[%,20] Integrate[1/Exp[x^3], {x,0,30}] N[%, 20] Integrate[x*Abs[Sin[1/x]], {x, 0, 1}] N[%,20]