NIntegrate about singular point
- To: mathgroup at smc.vnet.net
- Subject: [mg126100] NIntegrate about singular point
- From: bowlderster <bowlderster at gmail.com>
- Date: Tue, 17 Apr 2012 06:04:12 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Hello, all.
I am dealing with an integral as following
h = 1
m = 1
n = 1
t = 1
k = 4.0269
kk = 4.0284
Plot[x^(m + n - 1)/(x*Sinh[x*h] -
kk*Cosh[x*h])*((x +
kk)*((-1)^(m + n)*Exp[x*(2.*(-0.2) + h)] - ((-1)^m + (-1)^n)*
Exp[-x*h]) + (x - kk)*Exp[-x*(2.*(-0.2) + h)]), {x, 0, 40}]
NIntegrate[
x^(m + n - 1)/(x*Sinh[x*h] -
kk*Cosh[x*h])*((x +
kk)*((-1)^(m + n)*Exp[x*(2.*(-0.2) + h)] - ((-1)^m + (-1)^n)*
Exp[-x*h]) + (x - kk)*Exp[-x*(2.*(-0.2) + h)]), {x, 0,
Infinity}]
It has a singular point when the denominator is zero.
At begining, I try to solve it in another system, yet with Nan result.
It is the first time for me to use Mathematica.
Can it solve the integral with singular point?
Thanks for your help