1
$\begingroup$

I have the following equation

$$ F(x,y,t) = \int_{0}^{\infty}\int_{-\infty}^{\infty}K(u,t)\cos[\epsilon(x-u)]\exp\left(-\sqrt{\epsilon^2 +y}\right)\text{d}u \text{d}\epsilon $$

How to express this function in mathematica ? Does NIntegrate[NIntegrate...] work?

$\endgroup$
  • $\begingroup$ Please have a look at Menu/Help/WolframDocumentation/NIntegrate the second line from top. There you will find the answer. $\endgroup$ – Alexei Boulbitch May 19 at 8:44
2
$\begingroup$

You can do it in one call, or split it into 2 calls to Integrate.

I prefer to split it so it is more clear for me. So you can do the inner integral, take the result, then do the outer integral.

ClearAll[u, t, k, e, x, y];
integrand = k[u, t] Cos[e*(x - u)]*Exp[-Sqrt[e^2 + y]]
int1 = Integrate[integrand, {u, -Infinity, Infinity}]

Mathematica graphics

int2 = Integrate[int1, {e, 0, Infinity}]

Mathematica graphics

But if you want to do it using one call then

ClearAll[u, t, k, e, x, y];
integrand = k[u, t] Cos[e*(x - u)]*Exp[-Sqrt[e^2 + y]]
Integrate[integrand, {e, 0, Infinity}, {u, -Infinity, Infinity}]

Mathematica graphics

| improve this answer | |
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.