Re: NIntegrate and Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg95905] Re: NIntegrate and Plot
- From: dimitris <dimmechan at yahoo.com>
- Date: Thu, 29 Jan 2009 05:58:11 -0500 (EST)
- References: <glethi$4pp$1@smc.vnet.net>
On 24 =C9=E1=ED, 13:20, dimitris <dimmec... at yahoo.com> wrote: > 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. After a private response I found out that the following make the things much better. Plot[NIntegrate[fun[r, t], {t, 0, Infinity}], {r, 0, 3}, MaxRecursion- >0]