MathGroup Archive 2006

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

Search the Archive

integrate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg72364] integrate
  • From: "dimitris" <dimmechan at yahoo.com>
  • Date: Tue, 26 Dec 2006 08:31:19 -0500 (EST)

Integrate[(BesselJ[0, x]*Log[x])/Sqrt[1 + x^2], {x, 1, Infinity}]
Integrate[(BesselJ[0, x]*Log[x])/Sqrt[1 + x^2], {x, 1, Infinity}]

NIntegrate[(BesselJ[0, x]*Log[x])/Sqrt[1 + x^2], {x, 1, Infinity},
Method -> Oscillatory]
-0.06630573213061997

Integrate[(BesselK[0, x]*BesselY[1, x])/Sqrt[1 + x^2], {x, 1,
Infinity}]
Integrate[(BesselK[0, x]*BesselY[1, x])/Sqrt[1 + x^2], {x, 1,
Infinity}]

NIntegrate[(BesselK[0, x]*BesselY[1, x])/Sqrt[1 + x^2], {x, 1,
Infinity}]
-0.06586252709607003

------->   Any possibility to get closed form results within
Mathematica?

Integrate[Sqrt[x^2 + 1]/Sqrt[1 + x^6], {x, 0, 10}]
(-(-1)^(1/6))*EllipticF[I*ArcSinh[10*(-1)^(1/3)], (-1)^(2/3)]

N[%]
-0.10016641038463325 - 1.6857503548125956*I

NIntegrate[Sqrt[x^2 + 1]/Sqrt[1 + x^6], {x, 0, 10}]
2.056349237110889

--------> Any ideas to "help" Mathematica to give a correct answer?

Regards
Dimitris


  • Prev by Date: Bug or feature ?
  • Next by Date: Re: Generating systems of constraints
  • Previous by thread: mapping a notation
  • Next by thread: Re: integrate