Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Calculating a simple integral
Replies: 3   Last Post: Jun 10, 2013 4:05 AM

 Messages: [ Previous | Next ]
 Dr. Peter Klamser Posts: 23 Registered: 6/11/11
Re: Calculating a simple integral
Posted: Jun 10, 2013 4:02 AM

in=-((-1+Cos[kz])/(kz^2 (kr^2+kz^2)^2 (kz^2-4 \[Pi]^2)^2))//ExpandAll

bring two terms in a sum:

t1=1/(kr^4 kz^6+2 kr^2 kz^8+kz^10-8 kr^4 kz^4 \[Pi]^2-16 kr^2 kz^6
\[Pi]^2-8 kz^8 \[Pi]^2+16 kr^4 kz^2 \[Pi]^4+32 kr^2 kz^4 \[Pi]^4+16
kz^6 \[Pi]^4)

t2=Cos[kz]/(kr^4 kz^6+2 kr^2 kz^8+kz^10-8 kr^4 kz^4 \[Pi]^2-16 kr^2
kz^6 \[Pi]^2-8 kz^8 \[Pi]^2+16 kr^4 kz^2 \[Pi]^4+32 kr^2 kz^4
\[Pi]^4+16 kz^6 \[Pi]^4)

int\$int1 = \[Integral]t1 \[DifferentialD]kz

brings you a solution that should be treated with Limit twice:

Limit[int\$int1, kz -> \[Infinity]] // ComplexExpand

and

Limit[int\$int1, kz -> -\[Infinity]] // ComplexExpand

The same procedure with t2.

Kind regards from Peter

2013/6/9 <dsmirnov90@gmail.com>:
> If there is a way to calculate with Mathematica the following integral:
>
> in = -((-1 + Cos[kz])/(kz^2 (kr^2 + kz^2)^2 (kz^2 - 4 \[Pi]^2)^2))
> Integrate[in, {kz, -Infinity, Infinity}, Assumptions -> kr > 0]
>
> Another system calculates the same integral instantly. :)
>
> Thanks for any suggestions.
>

Date Subject Author
6/10/13 Dr. Peter Klamser
6/10/13 Bob Hanlon
6/10/13 Andrzej Kozlowski