Этот пример находит среднюю мощность излучения двух притягивающих зарядов, движущихся по эллиптической орбите (электрический диполь).

Два противоположных обвинения, e1 и e2, образуют электрический диполь. Массы заряженных частиц составляют m1 и m2соответственно. Для общего центра масс m1*r1 + m2*r2 = 0, где r1 и r2 - векторы расстояния до заряженных частиц. Расстояние между заряженными частицами составляет r = r1 - r2.
syms m1 m2 e1 e2 r1 r2 r [r1,r2] = solve(m1*r1 + m2*r2 == 0, r == r1 - r2, r1, r2)
r1 =
r2 =
Найдите дипольный момент этой системы:
d = e1*r1 + e2*r2; simplify(d)
ans =
По формуле Лармора суммарная мощность, излучаемая за единицу времени, составляет 2, или, по расстоянию между заряженными e1m1-e2m2) 2r 2. Здесь точка означает производную по времени. Закон Кулона mr δ= -αr2 позволяет найти значения ускорения r в терминах уменьшенной массы системы, m = m1m2m1 + m2, и произведения частиц, α = | e1e2 |.
alpha = sym('alpha'); syms m c m = m1*m2/(m1 + m2); r2 = -alpha/(m*r^2); J = simplify(subs(2/(3*c^3)*d^2, r, r2))
J =
Главные полуоси а и эксцентриситета эллиптической орбиты задаются следующими выражениями, где E - общая орбитальная энергия, а - угловой момент.
syms E L phi a = alpha/(2*E)
a =
eccentricity = sqrt(1-2*E*L^2/(m*alpha^2))
eccentricity =
Уравнение эллиптической орбиты /r позволяет выразить расстояниеr в терминах угла phi.
r = a*(1 - eccentricity^2)/(1 + eccentricity*cos(phi));
Средняя мощность излучения двух заряженных частиц, движущихся по эллиптической орбите, является интегралом мощности излучения за один полный цикл движения, нормируемого периодом движения, . Период движения T является
T = 2*pi*sqrt(m*a^3/alpha);
Изменение переменной интеграции t кому phi, получается следующий результат. Используйте simplify функция для получения более короткого результата интеграции. Здесь используйте subs оценить J.
J = subs(J); Javg = simplify(1/T*int(J*m*r^2/L, phi, 0, 2*pi))
Javg =
Оцените среднюю мощность излучения электрического диполя с одной частицей намного тяжелее, чем выше, m1>>m2. Для этого вычислите предел выражения для мощности излучения, предполагая, что m1 стремится к бесконечности.
limJ = limit(Javg, m1, Inf); simplify(limJ)
ans =