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
10005
Москва
Так вроде и должен расходиться...
Либо задача ошибочно формализована, либо вообще такого физического объекта не бывает.

 Профиль  
                  
 
 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 ] 

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



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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


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

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