Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: NIntegrate and Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg95766] Re: NIntegrate and Plot
  • From: dh <dh at metrohm.com>
  • Date: Mon, 26 Jan 2009 06:49:33 -0500 (EST)
  • References: <glethi$4pp$1@smc.vnet.net>


Hi Dimitris,

integrate your function before plotting it:

Integrate[fun[r, t], {t, 0, Infinity}, Assumptions -> {r >= 0}]



hope this helps, Daniel



dimitris 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.

> 




  • Prev by Date: Re: Re: Re: Re: Which editor do you use for math
  • Next by Date: Re: Partial derviatives in mathematica
  • Previous by thread: NIntegrate and Plot
  • Next by thread: Re: NIntegrate and Plot