bug in Integrate

*To*: mathgroup at smc.vnet.net*Subject*: [mg74756] bug in Integrate*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Wed, 4 Apr 2007 04:01:43 -0400 (EDT)

The following integral is evaluated wrong by Mathematica f = HoldForm[Integrate[x*BesselJ[0, x]*Cos[x], {x, 0, Infinity}]] ReleaseHold[f] 0 The integral is divergent. The same holds true for the following integral g = HoldForm[Integrate[x*BesselJ[0, x]*Sin[x], {x, 0, Infinity}]] ReleaseHold[g] Integrate::gener: Unable to check convergence. 0 but this time we get a warning message that indicates that the result might be wrong; as it is.