NIntegrate and Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg95671] NIntegrate and Plot*From*: dimitris <dimmechan at yahoo.com>*Date*: Sat, 24 Jan 2009 06:20:41 -0500 (EST)

Hello. I have the following function fun[r_, t_] := -(((-3 + 4*t^2 + 8*t^4 - 8*t^3*Sqrt[1 + t^2])* BesselJ[1, r*t])/(3 + 14*t^2 + 24*t^4 + 16*t^6 - 16*t^3*Sqrt[1 + t^2] - 16*t^5*Sqrt[1 + t^2])) How can I achieve better performance in the following task Plot[NIntegrate[fun[r, t], {t, 0, Infinity}], {r, 0, 3}] Thank you very much.