MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Re: What is QGamma[q,z]
  • Next by Date: problem with NDSolve in version 7 vs. version 6
  • Previous by thread: Re: ?1/2
  • Next by thread: Re: NIntegrate and Plot