Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Difficulty in solving an integral in Mathematica

  1. Dec 8, 2015 #1

    I have to solve the following integral in Mathematica but although I don't get any mistakes the value I get is <10^-700 which can't be right!!

    For the following values


    I have to solve the following:

    Fx = Table[NIntegrate[(Exp[-t*x^2/g]/x^3)*(Sin[x] - x*Cos[x])*(b*x*Sin[x]*Cos[s*x] - (c*Sin[x] - x*Cos[x])*Sin[s*x])/((c*Sin[x] - x*Cos[x])^2 + (b^2*x^2*Sin[x]^2)),{x, 0, Infinity}],{t, 13, 100, 1}];

    Could you possibly help me???I guess the problem is the exponential part which is really huge.This problem has been bothering me for a couple of weeks now!

    Thank you guys

  2. jcsd
  3. Dec 9, 2015 #2


    User Avatar

    Staff: Mentor

    It works fine up to t = 42. For t=43, the integral doesn't converge to the prescribed accuracy. You need to tweak the desired accuracy.
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Similar Threads - Difficulty solving integral Date
Mathematica Solve Perturbation problem with mathematica Dec 7, 2017
Matlab Solving equation with integration using MATLAB Aug 4, 2017
Solving system of equations Mathematica Apr 3, 2017
Mathematica Numerically solve recurrence relation Mar 12, 2017
MATLAB quad and difficulty with vector input Nov 22, 2010