2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки


Правила форума


Посмотреть правила форума



Начать новую тему Ответить на тему
 
 Как вычислить несложный интеграл - Mathematica не берёт
Сообщение11.04.2016, 23:52 


28/08/13
538
$$\iiint_{-\infty}^{\infty}\frac{e^{ikr}r}{\sqrt{r^2+m^2}}dxdydz,$$
где $k, m$ - константы, $r=\sqrt{x^2+y^2+z^2}.$
Я вначале решил рассмотреть более простой случай - аналогичный одномерный интеграл
$$\int_{-\infty}^{\infty}\frac{e^{ikx}|x|}{\sqrt{x^2+m^2}}dx=\int_{-\infty}^{\infty}\frac{cos(kx)|x|}{\sqrt{x^2+m^2}}dx=2\int_{0}^{\infty}\frac{cos(kx)x}{\sqrt{x^2+m^2}}dx,$$
интегрируя по частям, видно, что он расходится.
Как же вычислить исходный тройной интеграл? Расходиться он, вроде бы, не должен, поскольку возник при решении физической задачи.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение11.04.2016, 23:58 
Заслуженный участник
Аватара пользователя


01/03/06
13626
Москва
Напрашивается исследование этого интеграла в сферических координатах.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 00:08 
Аватара пользователя


11/06/12
10390
стихия.вздох.мюсли
Ascold, вы обратились не по адресу. Мы ни разу не служба техподдержки Wolfram Research. Если вы обнаружили баг и видите, что Wolfram Mathematica не справляется с несложной математической задачей, пишите об этом на support@wolfram.com.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 01:14 
Заслуженный участник


09/05/13
8904
∞⠀⠀⠀⠀
Ascold в сообщении #1114299 писал(а):
Расходиться он, вроде бы, не должен, поскольку возник при решении физической задачи.

Тем не менее, в этом виде он расходится. Да и вид настораживает. Проверьте свои вычисления.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 02:10 
Заслуженный участник
Аватара пользователя


23/07/08
10910
Crna Gora
Ascold в сообщении #1114299 писал(а):
Расходиться он, вроде бы, не должен, поскольку возник при решении физической задачи.
Расходящиеся диаграммы Фейнмана Вы оставили в разделе «Физика»? :D

Раз физическая задача, то и поступите по-физически — добавьте к $k$ добавку $i\varepsilon$, где $\varepsilon>0$. Интеграл будет сходиться. Устремите $\varepsilon$ к нулю. Интеграл стремится к конечному пределу?

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 11:07 
Заслуженный участник


25/02/11
1797
При $n=1$ и $n=3$ математика его не считает. При $n=2$ как преобразование Фурье (а она умеет находить ответы в смысле респеределений для некоторых случаев когда в классическом преобразовании интеграл расходится) выдает для $m>0$
$$
-\frac{i \sqrt{\frac{\pi }{2}} m (\pi  \left| k\right|  \pmb{L}_1(k m)+k (m \left| k\right|  (-\pi  \pmb{L}_0(k m)-2 i K_0(m \left| k\right| ))-2   i K_1(m \left| k\right| )+\pi  k m I_0(k m)-\pi  I_1(k m)))}{k \left| k\right| },
$$
Код:
-((I*Sqrt[Pi/2]* m*(Pi*Abs[k]*StruveL[1, k*m] + k*(m*Abs[k]*((-Pi)*StruveL[0, k*m] - 2*I*BesselK[0, m*Abs[k]]) -
2*I*BesselK[1, m*Abs[k]] + Pi*k*m*BesselI[0, k*m] - Pi*BesselI[1, k*m])))/(k*Abs[k]))

В нуле особенность $k^{-2}$. В трехмерном случае должна быть особеность $k^{-3}$. Так что да, этот несложный интеграл :-) существует в смысле обобщенных функций, только математика не берет :)

ЗЫ. И то, что у вас написано для одномерного случая это не аналог, в числителе должно быть $e^{ik|x|}$.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 11:20 
Заслуженный участник
Аватара пользователя


11/03/08
10006
Москва
Так вроде и должен расходиться...
Либо задача ошибочно формализована, либо вообще такого физического объекта не бывает.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 11:32 
Заслуженный участник


25/02/11
1797
Интеграл расходится. Но это не мешает физикам их писать :-) Скажем, преобразование Фурье от единицы. А тут даже обычная функция получается, только с особенностью в нуле.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 11:34 


28/08/13
538
Только сейчас заметил, что палочки не прописались(векторы) в показателе экспоненты $\bar{k}\bar{r}.$
Должно быть
$$\iiint_{-\infty}^{\infty}\frac{e^{i\bar{k}\bar{r}}r}{\sqrt{r^2+m^2}}dxdydz,$$
где $\bar{k}, m$ - константы, $r=\sqrt{x^2+y^2+z^2}.$
именно это обстоятельство затруднило переход к сферическим координатам - в них скалярное произведение в экспоненте записывается коряво. Буду ещё думать и перепроверять физику - расходимость получается всё равно не того вида, чтобы было "физично".
Впрочем, и это выражение при $k=0$ считается в сферических координатах легко и даёт то, что надо - плюс бесконечность.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 12:03 
Заслуженный участник
Аватара пользователя


23/07/08
10910
Crna Gora
Ascold в сообщении #1114369 писал(а):
в них скалярное произведение в экспоненте записывается коряво
$\mathbf k\cdot\mathbf r = k r \cos\theta$ при подходящем выборе осей.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение12.04.2016, 12:09 
Заслуженный участник


25/02/11
1797
Тогда для одномерного случая математика дает
$$\sqrt{\frac{\pi }{2}} m (I_1(m \left| k\right| )-\pmb{L}_{-1}(k m))+\sqrt{2 \pi } \delta (k),$$
Код:
Sqrt[Pi/2]*m*(BesselI[1, m*Abs[k]] - StruveL[-1, k*m]) +  Sqrt[2*Pi]*DiracDelta[k]

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение13.04.2016, 21:34 


28/08/13
538
Цитата:
$\mathbf k\cdot\mathbf r = k r \cos\theta$ при подходящем выборе осей.

угол-то переменным будет при интегрировании, да и экспонента от косинуса - не самая простая вещь. Я всё же попробовал дальше, ввёл сферические координаты $(r,\theta\phi)$, в них будет:
$$\iiint_{-\infty}^{\infty}\frac{e^{i\bar{k}\bar{r}}r}{\sqrt{r^2+m^2}}dxdydz=\int_{0}^{2\pi}d\phi\int_{0}^{\pi}sin\theta d\theta\int_{0}^{\infty}\frac{e^{i\bar{k}\bar{r}}r^3dr}{\sqrt{r^2+m^2}},$$
$$\bar{k}\bar{r}=r(k_xsin\theta cos\phi+k_ysin\theta sin\phi+k_zcos\theta)=f(\theta,\phi)r,$
поэтому нужно найти интеграл
$$\int_{0}^{2\pi}d\phi\int_{0}^{\pi}sin\theta d\theta\int_{0}^{\infty}\frac{e^{if(\theta,\phi)r}r^3dr}{\sqrt{r^2+m^2}}.$$
Интеграл по радиусам взять что-то не получается, Mathematica тоже его не считает. Или её можно как-то правильно на него настроить? Физику задачи ещё раз перепроверил - вроде, всё ОК. Вычетами его тоже так просто не взять, насколько я вижу. Задача точно имеет аналитическое решение, она в некотором смысле учебная.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение13.04.2016, 22:44 
Заслуженный участник
Аватара пользователя


23/07/08
10910
Crna Gora
Да, угол $\theta$ будет переменным. Увы, подинтегральная функция зависит не только от $r$. Но не стоит усложнять ещё больше:
Ascold в сообщении #1114810 писал(а):
$$\bar{k}\bar{r}=r(k_xsin\theta cos\phi+k_ysin\theta sin\phi+k_zcos\theta)=f(\theta,\phi)r,$
Направьте ось $z$ по направлению вектора $\mathbf k$, и у Вас от того, что в скобках, останется только последнее слагаемое.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение13.04.2016, 23:32 
Заслуженный участник


25/02/11
1797
Раз математика не считает, то есть шанс, что и ответ достаточно плохой. При $m=0$ получаеся дельта-функция. И в трехмерном случае получится дельта-функция плюс какая-то добавка. Для одной переменной она выразиласть через специальные функции, а в трехмерном неизвестно через что.

 Профиль  
                  
 
 Re: Как вычислить несложный интеграл - Mathematica не берёт
Сообщение13.04.2016, 23:35 
Заслуженный участник
Аватара пользователя


08/11/11
5940
Ascold в сообщении #1114810 писал(а):
экспонента от косинуса - не самая простая вещь.


Там же синус будет в дифференциале.

-- Ср, 13 апр 2016 14:17:37 --

Ну т. е. интеграл по углам можно посчитать, см.

http://math.arizona.edu/~faris/methodsweb/hankel.pdf

формула (22) (например), или преобразование Ханкеля.

По второй ссылке есть таблица, но мне лень там искать.

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 15 ] 

Модераторы: Модераторы Математики, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: Gecko, katzenelenbogen


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group