Re: NIntegrate Confusion

*To*: mathgroup at smc.vnet.net*Subject*: [mg109185] Re: NIntegrate Confusion*From*: "Kevin J. McCann" <Kevin.McCann at umbc.edu>*Date*: Fri, 16 Apr 2010 05:50:56 -0400 (EDT)*References*: <hq4152$3cp$1@smc.vnet.net>

I don't think you have a real problem. NIntegrate is doing a relative error check (by default), and when the answer is close to zero, this presents a divide by a small number problem. You can use absolute accuracy as the accuracy goal by specifying the number of decimal places accuracy you want. For example, with your problem, you can specify 12 place accuracy as follows: coef = 2/\[Pi] Table[ NIntegrate[f[t] Sin[n t], {t, 0, \[Pi]} , AccuracyGoal -> 12], {n, 1, M}] Kevin sukhrob wrote: > Hi everybody, > I'm using Mathematica 7.0 , i would like integrate numerically something > like Fourier coefficients, my programe code contains: > > M = 50; f[t_] = 100 Sin[5 t]; > > basis = Table[Sin[n t], {n, 1, M}]; > > coef = 2/Pi*Table[NIntegrate[f[t] Sin[n t], {t, 0, Pi}], {n, 1, M}] > > in result it gives : > > NIntegrate::ncvb: NIntegrate failed to converge to prescribed accuracy after > 9 recursive bisections in t near {t} = {2.47283}. NIntegrate obtained > -3.88578*10^-15 and 7.654706546923104`*^-15 for the integral and error > estimates. >> > NIntegrate::ncvb: NIntegrate failed to converge to prescribed accuracy after > 9 recursive bisections in t near {t} = {2.47283}. NIntegrate obtained > -3.19189*10^-15 and 1.8799124112361456`*^-14 for the integral and error > estimates. >> > > NIntegrate::ncvb: NIntegrate failed to converge to prescribed accuracy after > 9 recursive bisections in t near {t} = {0.00254055}. NIntegrate obtained > 1.2045919817182948`*^-14 and 9.105942246869344`*^-13 for the integral and > error estimates. >> > > General::stop: Further output of NIntegrate::ncvb will be suppressed during > this calculation. >> > > Can anyone help me to solve that problem. Any help would be very much > appreciated. > Thanks in advance > Sukhrob >