EditRegion_main
     

Жидкокристаллический осмос

и другие научные идеи

Содержание:

Жидкокристаллический двигатель
или
акустомеханический преобразователь

А.Ю. Дроздов

4.01.2010 - 17.07.2010

В данной работе приводится результат численного эксперимента методом молекулярной динамики ставящий под вопрос известные рассуждения Фейнмана о храповике и собачке.

word   htm

Ниже приводится полемика по данной работе:

Принципиальные вопросы, поставленные
редактором журнала «Химия и Жизнь»
и ответы на них

17.11.2010

word   htm

Жидкокристаллический осмос
или
о возможности нарушения принципа детального равновесия в жидкокристаллической дисклинации

А.Ю. Дроздов

17.11.2010

В данной работе ставится под сомнение всеохватность принципа детального равновесия. И предлагается идея экспериментальной проверки возможности нарушения этого принципа в системе жидкий кристалл - мембрана.

word   htm

Гравитационно-осмотический кольцар

А.Ю.Дроздов

16.11.2010

В данной работе даётся интересный и неожиданный результат молекулярно-динамического моделирования системы, в которой принцип детального равновесия также, по-видимому, может быть нарушен.

word   htm

  Чудо-дерево породы «БИОСОЛЯР»

Юный Техник № 8 за 1986 г.

Магнитный двигатель на эффектах скалярного магнитного поля

А.Ю.Дроздов

1.11.2017

В данной работе предлагается конфигурация двигателя на постоянных магнитах, основанная на конфигурации опыта N 8 из книги Николаева.

word   htm

Электродинамический расчёт рельсотрона

с использованием понятий векторного потенциала, магнитного поля и силы Лоренца

А.Ю.Дроздов

02.04.2018

Электродинамический расчёт рельсотрона

с использованием понятий векторного потенциала, магнитного поля и силы Лоренца

а также формулы для силы действующей на движущийся заряд взятой из "Новой электродинамики" Ф.Ф.Менде

уточнённый привлечением понятий скалярного магнитного поля и силы Николаева

с последующим выводом

формулы Взаимодействия элементов тока

 

А.Ю.Дроздов

02-19.04.2018

Опыт Николаева и Дейны с цилиндрами

 

А.Ю.Дроздов

14.08.2019-14.06.2020

'

К вопросу об интерретации результатов эксперимента Майкельсона Морли

Michelson-Morley-0

 

Michelson-Morley-90

 

Michelson-Morley-180

 

Michelson-Morley-270

 

А.Ю.Дроздов

24.11.2020

 

 

Размышления на тему теории упругой вселенной Чурляева 


А.Ю.Дроздов
 

Теория упругой Вселенной Чурляева - это попытка применить математический формализм теории упругости твёрдого тела к вакууму, электромагному и гравитационному полям и к внутреннему устройству элементарных частиц.

Итак Чурляев берёт для вакуума волновое уравненение в форме
http://uni100.ucoz.ru/publ/05_tri_klassa_sfericheskikh_reshenij/1-1-0-8 а в качестве основой строения элементарных частиц Чурляев берёт частное решение волнового уравнения, сферические стоячие волны.

Вообще говоря, в теории упругости твёрдого тела волновое уравнение получается из уравнений Ламе, см. например
http://portal.tpu.ru:7777/SHARED/a/AGKNYAZEVA/predmet/Tab2/posobie.pdf  (глава 1.5) или http://www.mat.net.ua/mat/biblioteka-fizika/Filonenko-Borodich-uprugost.pdf стр 93 применительно к продольным и поперечным колебаниям при рассмотрении плоской волны.  

 

Тут фокус в том, что для плоской продольной волны градиент дивергенции перемещений среды преобразуется к лапласиану, а для плоской поперечной волны градиент дивергенции равен нулю. Поэтому для этих частных случаев уравнение Ламе сводится к волновому уравнению, пусть и с разными постоянными коэффициентами. 


Но в случае сферической волны, это ещё не факт, что градиент дивергенции перемещений так элегантно упростится. Даже в случае поперечной волны, но распространяющейся по окружности, при определённом направлении колебаний могут происходить объёмные деформации. И ещё один момент: если при каком-либо направлении колебаний для поперечной волны, распространяющейся по окружности, градиент дивергенции перемещений все-же упростится к лапласиану, то не факт, что получившееся волновое уравнение будет иметь тот же самый коэффициент фазовой скорости волны, что и плоская поперечная волна. Следовательно фазовая скорость поперечной сферической стоячей волны может и отличаться от фазовой скорости поперечной плоской волны.

Поэтому, если мы к теории вакуума применяем математический формализм теории упругости твёрдого тела, то строго говоря нужно проверять будут ли сферические стоячие волны удовлетворять уравнениям Ламе? Целью данной работы является исследование этого вопроса.

Далее, автор в
http://uni100.ucoz.ru/publ/06_formula_ehnergii_1/1-1-0-44 пишет: "06 ФОРМУЛА РАСПРЕДЕЛЕНИЯ ЭНЕРГИИ В ЛОКЕ - 1. Выводится в соответствии с законами механики для твердого тела. Удобнее развернуть лок так, чтобы все колебания происходили параллельно вертикальной оси  Z.  Такой выбор обозначается как W0."

Анализируя этот момент я задался вопросом: а имеем ли мы право в механике твёрдого тела получив математическое выражение решения волнового уравнения разворачивать колебания так как нам удобно?
 


Чтобы найти ответ на этот вопрос я решил проверить решение волнового уравнения, развёрнутое Чурляевым параллельно оси Z на соответсвие уравнению Ламе.

Надо сказать, что в литературе
https://pdfs.semanticscholar.org/a610/40a5032e5a59f0f6aa6a67b7f1b857224448.pdf в главе 2.1 "Shear oscillations of a perfectly elastic solid globe in the regime of standing waves of material displacements" авторы дают дают решение векторного уравнения Гельмгольца, как ротор произведения вектора координат на скалярное решение волнового уравнения. Эти решения, отличающиеся от решений применённых Чурляевым в своих исследованиях:

As was mentioned, in this form the problem of oscillatory response of a perfectly elastic sphere has been posed and solved by Lamb (1882). Specifically, it has been suggested that oscillatory modes in an elastic sphere, termed as spheroidal (s - mode) and torsional or toroidal (t - mode), can be unambiguously classified by two general, regular in origin, solutions to the vector Helmholtz equation given by mutually orthogonal and different in parity solenoidal vector fields – the poloidal and the toroidal fields of fundamental basis (Chandrasekhar, 1961). The fluctuating displacements in spheroidal mode are given by the polar (normal or even parity) poloidal vector field us = ∇ × ∇ × [rjℓ(kr)Pℓ(cos θ)] exp i(ωt) and in torsional mode by the axial (abnormal or odd parity) toroidal field ut = ∇ × [rjℓ(kr)Pℓ(cos θ)] exp i(ωt). Here jℓ(kr) stands for the spherical Bessel function and Pℓ(cos θ) for the Legendre polynomial of degree ℓ.
 

 

 

 

Но в данной работе я буду исследовать именно лок Чурляева. Работу я буду выполнять, используя математическую программу Maple 2016.0 В ходе моей работы с этой программой я столкнулся с тем фактом, что программа, увы, не лишена багов. Поэтому было бы неплохо произвести те же самые проверки, которые я сейчас провожу либо на более новой версии этой программы, либо на программе, использующей математическое ядро от другого производителя 

 

Итак, берём выражение для сферической стоячей волны (Справочник по математике. Г.Корн и Т.Корн, стр. 327, 10.4-48) 

 

restart; -1 

 

with(Physics[Vectors]); -1; Setup(mathematicalnotation = true); -1 

 

W__0 := proc (r, theta, phi, t, j, m, k, omega, delta) options operator, arrow; `/`(`*`(BesselJ(`+`(j, `/`(1, 2)), `*`(k, `*`(r))), `*`(SphericalY(j, m, theta, phi), `*`(cos(`+`(`*`(omega, `*`(t)), de... 

Typesetting:-mprintslash([W__0 := proc (r, theta, phi, t, j, m, k, omega, delta) options operator, arrow; `/`(`*`(BesselJ(Physics:-Vectors:-`+`(j, `/`(1, 2)), `*`(k, `*`(r))), `*`(SphericalY(j, m, the... (1)
 

 

Подставляем j и m 

simplify(W__0(r, theta, phi, t, 0, 0, k, omega, delta)) 

`+`(`/`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(sin(`*`(k, `*`(r))), `*`(cos(`+`(`*`(omega, `*`(t)), delta)))))), `*`(Pi, `*`(`^`(`*`(k, `*`(r)), `/`(1, 2)), `*`(`^`(r, `/`(1, 2))))))) (2)
 

simplify(W__0(r, theta, phi, t, 1, 0, k, omega, delta)) 

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(`+`(`*`(cos(`*`(k, `*`(r))), `*`(k, `*`(r))), `-`(sin(`*`(k, `*`(r))))), `*`(`^`(3, `/`(1, 2)), `*`(cos(theta), `*`(cos(`+`(`*`(omega, `*`(t)), de... (3)
 

simplify(W__0(r, theta, phi, t, 1, 1, k, omega, delta)) 

`+`(`/`(`*`(`/`(1, 2), `*`(`+`(`*`(cos(`*`(k, `*`(r))), `*`(k, `*`(r))), `-`(sin(`*`(k, `*`(r))))), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(exp(`*`(I, ... (4)
 

Полученные выражения для амплитуды смещения любопытный читатель может сравнить с таковыми у Чурляева по ссылке 

 

Поскольку я нашёл некоторые отличия между формулами, приведенными Чурляевым и полученными мною выше, то мне придётся проверить мои формулы на предмет удовлетворения волновому уравнению. 

 

Предположим для начала что мы имеем дело со скалярной величиной распределённой в пространстве в соответствии с и попробуем подставить эту скалярную величину в волновое уравнение в сферической системе координат 

 

wave_equation := `*`(rho, `*`(diff(s(r, theta, phi, t), t, t))) = `*`(mu, `*`(Physics:-Vectors:-Laplacian(s(r, theta, phi, t)))) 

Typesetting:-mprintslash([wave_equation := `*`(rho, `*`(diff(s(r, theta, phi, t), `$`(t, 2)))) = `*`(mu, `*`(`+`(`/`(`*`(`+`(`*`(diff(s(r, theta, phi, t), `$`(r, 2)), `*`(r)), `*`(2, `*`(diff(s(r, the...
Typesetting:-mprintslash([wave_equation := `*`(rho, `*`(diff(s(r, theta, phi, t), `$`(t, 2)))) = `*`(mu, `*`(`+`(`/`(`*`(`+`(`*`(diff(s(r, theta, phi, t), `$`(r, 2)), `*`(r)), `*`(2, `*`(diff(s(r, the...
(5)
 

 

Подставляем в волновое уравнение скалярное выражение для сферической стоячей волны 

wave_equation_scalar_W := `*`(rho, `*`(diff(W__0(r, theta, phi, t, j, m, k, omega, delta), t, t))) = `*`(mu, `*`(Physics:-Vectors:-Laplacian(W__0(r, theta, phi, t, j, m, k, omega, delta)))); -1 

Подставляем j и m 

 

wave_equation_scalar_W_00 := subs(j = 0, m = 0, wave_equation_scalar_W); -1 

wave_equation_scalar_W_10 := subs(j = 1, m = 0, wave_equation_scalar_W); -1 

wave_equation_scalar_W_11 := subs(j = 1, m = 1, wave_equation_scalar_W); -1 

 

И решаем полученные уравнения 

 

solve(wave_equation_scalar_W_00) 

{delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), k = k, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta} (6)
 

 

solve(wave_equation_scalar_W_10) 

{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*... (7)
 

solve(wave_equation_scalar_W_11) 

{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*... (8)
 

 

Результат подстановки и решения неудовлетворителен. Из такого результата можно было бы сделать вывод что скалярная величина распределённая в пространстве в соответствии с выражение для сферической стоячей волны из справочника Корна не удовлетворяет волновому уравнению. Но не будем торопиться с выводами. Предположим, что мы имеем дело в данном случае с недоработкой или багом программы  Maple 2016.0 

 

Разложим волновое уравнение на два слагаемых: на слагаемое, связанное с лапласианом и на слагаемое связанное со второй производной по времени 

 

Laplacian_W_scalar := `*`(mu, `*`(Physics:-Vectors:-Laplacian(W__0(r, theta, phi, t, j, m, k, omega, delta)))); -1 

d2T_W_scalar := `*`(rho, `*`(diff(W__0(r, theta, phi, t, j, m, k, omega, delta), t, t))); -1 

В каждое из этих слагаемых делаем подстановку j и m 

 

Laplacian_W_scalar_00 := subs(j = 0, m = 0, Laplacian_W_scalar); -1 

d2T_W_scalar_00 := subs(j = 0, m = 0, d2T_W_scalar); -1 

 

Laplacian_W_scalar_10 := subs(j = 1, m = 0, Laplacian_W_scalar); -1 

d2T_W_scalar_10 := subs(j = 1, m = 0, d2T_W_scalar); -1 

 

Laplacian_W_scalar_11 := subs(j = 1, m = 1, Laplacian_W_scalar); -1 

d2T_W_scalar_11 := subs(j = 1, m = 1, d2T_W_scalar); -1 

 

После чего записываем выражение для ошибки отклонения сферической стоячей волны от волнового уравнения 

 

Error_W_scalar_00 := Physics:-Vectors:-`+`(Laplacian_W_scalar_00, `+`(`-`(d2T_W_scalar_00))); -1 

Error_W_scalar_10 := Physics:-Vectors:-`+`(Laplacian_W_scalar_10, `+`(`-`(d2T_W_scalar_10))); -1 

Error_W_scalar_11 := Physics:-Vectors:-`+`(Laplacian_W_scalar_1, `+`(`-`(d2T_W_scalar_11))); -1 

 

Решаем уравнения, приравнивая ошибку нулю 

 

solve(Error_W_scalar_00 = 0) 

{delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), k = k, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta} (9)
 

solve(Error_W_scalar_10 = 0) 

{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*... (10)
 

solve(Error_W_scalar_11 = 0) 

{delta = RootOf(`+`(`*`(cos(`*`(k, `*`(r))), `*`(cos(`+`(`*`(omega, `*`(t)), _Z)), `*`(SphericalY(1, 1, theta, phi), `*`(`^`(2, `/`(1, 2)), `*`(k, `*`(`^`(omega, 2), `*`(r, `*`(rho)))))))), `-`(`*`(si...
{delta = RootOf(`+`(`*`(cos(`*`(k, `*`(r))), `*`(cos(`+`(`*`(omega, `*`(t)), _Z)), `*`(SphericalY(1, 1, theta, phi), `*`(`^`(2, `/`(1, 2)), `*`(k, `*`(`^`(omega, 2), `*`(r, `*`(rho)))))))), `-`(`*`(si...
(11)
 

И, увы, опять получаем тот же неудовлетворительный результат. Но мы не сдаёмся и, при вычислении ошибки, предварительно упрощаем слагаемые связанные с лапласианом и связанные со второй производной по времени. 

 

Error_W_scalar_00_simplified := Physics:-Vectors:-`+`(simplify(Laplacian_W_scalar_00), `+`(`-`(simplify(d2T_W_scalar_00)))); -1 

Error_W_scalar_10_simplified := Physics:-Vectors:-`+`(simplify(Laplacian_W_scalar_10), `+`(`-`(simplify(d2T_W_scalar_10)))); -1 

Error_W_scalar_11_simplified := Physics:-Vectors:-`+`(simplify(Laplacian_W_scalar_11), `+`(`-`(simplify(d2T_W_scalar_11)))); -1 

 

Решаем уравнения, и ...  

 

solve(Error_W_scalar_00_simplified = 0) 

{delta = delta, k = k, mu = `/`(`*`(rho, `*`(`^`(omega, 2))), `*`(`^`(k, 2))), omega = omega, r = r, rho = rho, t = t}, {delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), k = k, mu = mu, ... (12)
 

solve(Error_W_scalar_10_simplified = 0) 

{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t,...
{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t,...
{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t,...
(13)
 

 

solve(Error_W_scalar_11_simplified = 0) 

{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = k, mu = 0, omega = 0, phi = phi, r ...
{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = k, mu = 0, omega = 0, phi = phi, r ...
(14)
 

 

Вуаля. Это уже другое дело! Решения содержащие или не лишены физического смысла. Желающие могут вышеприведенные выкладки предоставить разработчикам в компанию Maplesoft для устранения недоработки в программе. А мы для понимания внутренних особенностей работы программы попробуем провести ещё один тест. 

 

solve(simplify(Error_W_scalar_00) = 0) 

{delta = delta, k = k, mu = `/`(`*`(rho, `*`(`^`(omega, 2))), `*`(`^`(k, 2))), omega = omega, r = r, rho = rho, t = t}, {delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), k = k, mu = mu, ... (15)
 

solve(simplify(Error_W_scalar_10) = 0) 

{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = k, mu = `/`(`*`(rho, `*`(`^`(omega, 2))), `*`(...
{delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = k, mu = `/`(`*`(rho, `*`(`^`(omega, 2))), `*`(...
(16)
 

 

solve(simplify(Error_W_scalar_11) = 0) 

Оказывается так тоже работает. Хотелось бы отметить, для сферических стоячих волн (1,0) и (1,0) здесь выплывает интересное решение  

в котором волновой вектор (пропорциональный частоте) убывает с ростом расстония. В этой работе при исследовании поведения сферических стоячих волн в среде подчиняющейся уравнению Ламе мы ещё столкнёмся с подобного рода решениями. 

 

 

Очень много споров и недоверия вызывает предлагаемый Чурляевым и сотоварищи так называемый "закон наматывания". Сейчас же, пользуясь открытыми мною возможностями программы Maple 2016.0, попытаюсь решить простой математический вопрос: может ли сферическая стоячая волна (в данном случае скалярная величина, распределённая в соответствии с ), нормированная в соответствии с "законом наматывания" Чурляева путём умножения на удовлетврять волновому уравнению. И если может, то при каких условиях? 

 

wave_equation_scalar_W_r := `*`(rho, `*`(diff(`/`(`*`(W__0(r, theta, phi, t, j, m, k, omega, delta)), `*`(r)), t, t))) = `*`(mu, `*`(Physics:-Vectors:-Laplacian(`/`(`*`(W__0(r, theta, phi, t, j, m, k,... 

 

wave_equation_scalar_W_r_00 := subs(j = 0, m = 0, wave_equation_scalar_W_r); -1 

 

wave_equation_scalar_W_r_10 := subs(j = 1, m = 0, wave_equation_scalar_W_r); -1 

 

wave_equation_scalar_W_r_11 := subs(j = 1, m = 1, wave_equation_scalar_W_r); -1 

 

solve(simplify(wave_equation_scalar_W_r_00)) 

{delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(2, `*`(tan(_Z)))), `*`(2, `*`(_Z))))), ...
{delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(2, `*`(tan(_Z)))), `*`(2, `*`(_Z))))), ...
(17)
 

solve(simplify(wave_equation_scalar_W_r_10)) 

{delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = 0, omega = omega, r = r, rho = rho, t = t, ...
{delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = 0, omega = omega, r = r, rho = rho, t = t, ...
{delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = 0, omega = omega, r = r, rho = rho, t = t, ...
{delta = delta, k = k, mu = 0, omega = 0, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = 0, omega = omega, r = r, rho = rho, t = t, ...
(18)
 

solve(simplify(wave_equation_scalar_W_r_11)) 

{delta = delta, k = k, mu = 0, omega = 0, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = 0, omega = omega, phi = phi, r =...
{delta = delta, k = k, mu = 0, omega = 0, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = 0, omega = omega, phi = phi, r =...
{delta = delta, k = k, mu = 0, omega = 0, phi = phi, r = r, rho = rho, t = t, theta = theta}, {delta = delta, k = `/`(`*`(RootOf(`+`(_Z, `-`(tan(_Z))))), `*`(r)), mu = 0, omega = omega, phi = phi, r =...
(19)
 

 

 

Оказывается может, но но при своеобразной зависимости плотности от расстояния к центру:
rho = `/`(`*`(mu, `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(`^`(k, 2), `*`(`^`(r, 2), `*`(tan(`*`(k, `*`(r)))))), `+`(`*`(2, `*`(k, `*`(r))))), `+`(`-`(`*`(2, `*`(tan(`*`(k, `*`(r)))))))))),... для лока (0,0) - предположительно электрон. И rho = `/`(`*`(mu, `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`+`(`-`(`*`(`^`(k, 3), `*`(`^`(r, 3))))), `+`(`*`(3, `*`(`^`(k, 2), `*`(`^`(r, 2), `*`(tan(`*`(k, `*`(r)))))))))... для локов (1,0) и (1,1) - предположительно нейтрон и протон.
 

 

rho = `/`(`*`(mu, `*`(`+`(`*`(`^`(k, 2), `*`(`^`(r, 2), `*`(tan(`*`(k, `*`(r)))))), `*`(2, `*`(k, `*`(r))), `-`(`*`(2, `*`(tan(`*`(k, `*`(r))))))))), `*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(tan(`*`(k, `...

rho = `/`(`*`(mu, `*`(`+`(`-`(`*`(`^`(k, 3), `*`(`^`(r, 3)))), `*`(3, `*`(`^`(k, 2), `*`(`^`(r, 2), `*`(tan(`*`(k, `*`(r))))))), `*`(4, `*`(k, `*`(r))), `-`(`*`(4, `*`(tan(`*`(k, `*`(r))))))))), `*`(`... (20)
 

 

Попробуем нарисовать график плотности в зависимости от расстояния к центру 

 

with(plots); -1; plot(subs(k = `/`(`*`(omega), `*`(c)), c = 3, omega = 1, mu = 1, `/`(`*`(mu, `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(`^`(k, 2), `*`(`^`(r, 2), `*`(tan(`*`(k, `*`(r)))))), ... 

Plot_2d
 

 

with(plots); -1; plot(subs(k = `/`(`*`(omega), `*`(c)), c = 3, omega = 1, mu = 1, `/`(`*`(mu, `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`+`(`-`(`*`(`^`(k, 3), `*`(`^`(r, 3)... 

Plot_2d
 



Пока что к этому можно относиться разве что как к интересному математическому упражнению. Хотя бы потому что волновое уравнение в теории сплошных сред имеет несколько более сложный характер, чем то с которым мы сейчас упражняемся.
 

Переходим к векторному решению 


Следуя за Чурляевым, назначаем направления колебаний так, "чтобы все колебания были параллельны оси  Z"
 

 

 

 

W__r := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `*`(W__0(r, theta, phi, t, j, m, `/`(`*`(omega), `*`(c)), omega, delta), `*`(cos(theta))) end proc; 1 

Typesetting:-mprintslash([W__r := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `*`(W__0(r, theta, phi, t, j, m, `/`(`*`(omega), `*`(c)), omega, delta), `*`(cos(theta))) end pro... (21)
 

 

`W__θ` := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `+`(`-`(`*`(W__0(r, theta, phi, t, j, m, `/`(`*`(omega), `*`(c)), omega, delta), `*`(sin(theta))))) end proc; 1 

Typesetting:-mprintslash([`W__θ` := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `+`(`-`(`*`(W__0(r, theta, phi, t, j, m, `/`(`*`(omega), `*`(c)), omega, delta), `*`(sin(... (22)
 

 

`W__φ` := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; 0 end proc 

Typesetting:-mprintslash([`W__φ` := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; 0 end proc], [proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; 0 end pr... (23)
 

 

 

Определим вектор колебаний чурляевского решения волнового уравнения.  

 

U_ := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `+`(`*`(W__r(r, theta, phi, t, j, m, omega, delta), `*`(_r)), `*`(`W__θ`(r, theta, phi, t, j, m, omega, delta), `*`(_th... 

 

Упростим его 

 

simplify(U_(r, theta, phi, t, j, m, omega, delta)) 

`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(BesselJ(`+`(j, `/`(1, 2)), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(SphericalY(j, m, theta, phi), `*`(`+`(`*`(cos(theta), `*`(_r)), `-`(`*`(sin(theta), `*... (24)
 

 

Подставляем в волновое уравнение 

 

wave_equation_W := `*`(rho, `*`(diff(U_(r, theta, phi, t, j, m, omega, delta), t, t))) = `*`(mu, `*`(Physics:-Vectors:-Laplacian(U_(r, theta, phi, t, j, m, omega, delta)))); -1 

 

wave_equation_W_00 := subs(j = 0, m = 0, wave_equation_W); -1 

 

wave_equation_W_10 := subs(j = 1, m = 0, wave_equation_W); -1 

 

wave_equation_W_11 := subs(j = 1, m = 1, wave_equation_W); -1 

 

solve(simplify(wave_equation_W_00)) 

{_r = _r, _theta = _theta, c = c, delta = delta, mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, r = r, rho = rho, t = t, theta = theta}, {_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delt...
{_r = _r, _theta = _theta, c = c, delta = delta, mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, r = r, rho = rho, t = t, theta = theta}, {_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delt...
(25)
 

 

solve(simplify(wave_equation_W_10)) 

{_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delta = delta, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {_r = _r, _theta = _theta, c = `/`(`*`(omega, `*`(r)), `*`(R...
{_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delta = delta, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {_r = _r, _theta = _theta, c = `/`(`*`(omega, `*`(r)), `*`(R...
{_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delta = delta, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {_r = _r, _theta = _theta, c = `/`(`*`(omega, `*`(r)), `*`(R...
(26)
 

solve(simplify(wave_equation_W_11)) 

{_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delta = delta, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {_r = _r, _theta = _theta, c = `/`(`*`(omega, `*`...
{_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delta = delta, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {_r = _r, _theta = _theta, c = `/`(`*`(omega, `*`...
{_r = `*`(tan(theta), `*`(_theta)), _theta = _theta, c = c, delta = delta, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {_r = _r, _theta = _theta, c = `/`(`*`(omega, `*`...
(27)
 

В итоге получаются решения содержащие зависимость скорости от плотности и коэффициента сдвига, характерные для поперечной волны. Кроме того для барионов здесь выплывает обратная зависимость частоты от расстояния. 

 

Казалось бы все хорошо? Нет. Еще раз хочу повториться что в классической теории упругости твердого тела уравнением движения (и то, строго говоря, приближённо) является уранение Ламе. А волновое уравнение в классической теории упругости появляется из уравнения Ламе как частный случай для плоской поперечной и продольных волн.  

 

А мы сейчас исследуем сферическую стоячую волну. Математически, как мы сейчас проверили, уравнение сферической стоячей волны удовлетворяет волновому уравнению. Но это лишь математика. Если мы хотим понять физику сферической стоячей волны в упругой среде, то в первом приближении мы должны подставить сферическую стоячую волну в уравнение Ламе. 

 

Скажем так, уравнение плоской продольной волны и плоской поперечной волны будет будет удовлетворять как волновому уравнению так и уравнению Ламе. Рассмотрим это на примере плоской продольной волны 

 

Уравнение Ламе в векторном виде 

 

 

 

Плоская продольная волна, распространяющаяя вдоль оси Х 

 

PlaneWave__0 := proc (x, y, z, t, k, omega, delta) options operator, arrow; `*`(A, `*`(_i, `*`(cos(`+`(`*`(omega, `*`(t)), `*`(k, `*`(x)), delta))))) end proc; 1 

Typesetting:-mprintslash([PlaneWave__0 := proc (x, y, z, t, k, omega, delta) options operator, arrow; `*`(A, `*`(_i, `*`(cos(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(omega, `*`(t)), `*`(k, `*`(... (28)
 

wave_equation_PlaneWave := Physics:-Vectors:-`+`(`*`(rho, `*`(diff(PlaneWave__0(x, y, z, t, `/`(`*`(omega), `*`(c)), omega, delta), t, t))), `*`(mu, `*`(Physics:-Vectors:-Laplacian(PlaneWave__0(x, y, ... 

Typesetting:-mprintslash([wave_equation_PlaneWave := `*`(_i, `*`(`+`(`-`(`*`(rho, `*`(A, `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), `/`(`*`(omega, `*`(x)), `*`(c)), delta))))))), `-`(`/`(`*`(m... (29)
 

 

solve(wave_equation_PlaneWave) 

{A = A, _i = 0, c = c, delta = delta, mu = mu, omega = omega, rho = rho, t = t, x = x}, {A = A, _i = _i, c = c, delta = delta, mu = mu, omega = 0, rho = rho, t = t, x = x}, {A = A, _i = _i, c = c, del...
{A = A, _i = 0, c = c, delta = delta, mu = mu, omega = omega, rho = rho, t = t, x = x}, {A = A, _i = _i, c = c, delta = delta, mu = mu, omega = 0, rho = rho, t = t, x = x}, {A = A, _i = _i, c = c, del...
(30)
 

 

Lame_equation_PlaneWave := `*`(rho, `*`(diff(PlaneWave__0(x, y, z, t, `/`(`*`(omega), `*`(c)), omega, delta), t, t))) = Physics:-Vectors:-`+`(`*`(Physics:-Vectors:-`+`(lambda, mu), `*`(Physics:-Vector...
Lame_equation_PlaneWave := `*`(rho, `*`(diff(PlaneWave__0(x, y, z, t, `/`(`*`(omega), `*`(c)), omega, delta), t, t))) = Physics:-Vectors:-`+`(`*`(Physics:-Vectors:-`+`(lambda, mu), `*`(Physics:-Vector...
 

Typesetting:-mprintslash([Lame_equation_PlaneWave := `+`(`-`(`*`(rho, `*`(A, `*`(_i, `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), `/`(`*`(omega, `*`(x)), `*`(c)), delta))))))))) = `*`(_i, `*`(`+... (31)
 

 

solve(Lame_equation_PlaneWave) 

{A = A, _i = 0, c = c, delta = delta, lambda = lambda, mu = mu, omega = omega, rho = rho, t = t, x = x}, {A = A, _i = _i, c = c, delta = delta, lambda = lambda, mu = mu, omega = 0, rho = rho, t = t, x...
{A = A, _i = 0, c = c, delta = delta, lambda = lambda, mu = mu, omega = omega, rho = rho, t = t, x = x}, {A = A, _i = _i, c = c, delta = delta, lambda = lambda, mu = mu, omega = 0, rho = rho, t = t, x...
{A = A, _i = 0, c = c, delta = delta, lambda = lambda, mu = mu, omega = omega, rho = rho, t = t, x = x}, {A = A, _i = _i, c = c, delta = delta, lambda = lambda, mu = mu, omega = 0, rho = rho, t = t, x...
(32)
 

 

В решении уравнения Ламе выплыло соотношение для скорости плоской продольной волны в упругой среде  

 

Для дальнейших целей познавательно проанализировать градиент дивергенции плоской продольной волны 

 

Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(PlaneWave__0(x, y, z, t, `/`(`*`(omega), `*`(c)), omega, delta))) 

`+`(`-`(`/`(`*`(A, `*`(_i, `*`(`^`(omega, 2), `*`(cos(`/`(`*`(`+`(`*`(c, `*`(omega, `*`(t))), `*`(c, `*`(delta)), `*`(omega, `*`(x)))), `*`(c))))))), `*`(`^`(c, 2))))) (33)
 

и сравнить его с лапласианом для оной 

Physics:-Vectors:-Laplacian(PlaneWave__0(x, y, z, t, `/`(`*`(omega), `*`(c)), omega, delta)) 

`+`(`-`(`/`(`*`(A, `*`(_i, `*`(`^`(omega, 2), `*`(cos(`/`(`*`(`+`(`*`(c, `*`(omega, `*`(t))), `*`(c, `*`(delta)), `*`(omega, `*`(x)))), `*`(c))))))), `*`(`^`(c, 2))))) (34)
 

 

мы получили идентичные выражения. Именно поэтому для плоской продольной волны в упругой среде мы можем упростить уравнение Ламе к волновому уравнению. 

 

Сравним теперь аналогичным образом градиент дивергенции с лапласианом для сферической стоячей волны, с колебаниями развернутыми как у Чурляева вдоль оси Z 

 

Gradient_Divergence_U := simplify(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, j, m, omega, delta)))); -1Laplacian_U := simplify(Physics:-Vectors:-Laplacian(U_(r, theta, phi, t, j, m, omega, delta))); -1 

 

Для сравнения находим их разность 

Gradient_Divergence_U_and_Laplacian_U_difference := simplify(Physics:-Vectors:-`+`(Gradient_Divergence_U, `+`(`-`(Laplacian_U)))); -1 

Gradient_Divergence_U_and_Laplacian_U_difference_00 := simplify(subs(j = 0, m = 0, Gradient_Divergence_U_and_Laplacian_U_difference)) 

Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_00 := `+`(`-`(`/`(`*`(`+`(cos(theta), 1), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(cos(theta), `-`(1)), `*`(`+`(`*`(`...
Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_00 := `+`(`-`(`/`(`*`(`+`(cos(theta), 1), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(cos(theta), `-`(1)), `*`(`+`(`*`(`...
(35)
 

Gradient_Divergence_U_and_Laplacian_U_difference_10 := simplify(subs(j = 1, m = 0, Gradient_Divergence_U_and_Laplacian_U_difference)) 

Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_10 := `+`(`/`(`*`(`/`(3, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(3, `/`(1, 2)), `*`(`+`(cos(theta), 1), `*`(`+`(...
Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_10 := `+`(`/`(`*`(`/`(3, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(3, `/`(1, 2)), `*`(`+`(cos(theta), 1), `*`(`+`(...
Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_10 := `+`(`/`(`*`(`/`(3, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(3, `/`(1, 2)), `*`(`+`(cos(theta), 1), `*`(`+`(...
(36)
 

Gradient_Divergence_U_and_Laplacian_U_difference_11 := simplify(subs(j = 1, m = 1, Gradient_Divergence_U_and_Laplacian_U_difference)) 

Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_11 := `+`(`-`(`/`(`*`(`/`(1, 4), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(2, ...
Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_11 := `+`(`-`(`/`(`*`(`/`(1, 4), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(2, ...
Typesetting:-mprintslash([Gradient_Divergence_U_and_Laplacian_U_difference_11 := `+`(`-`(`/`(`*`(`/`(1, 4), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(2, ...
(37)
 

solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_00, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_00, 2) = 0, Physics:-Vector...
solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_00, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_00, 2) = 0, Physics:-Vector...
solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_00, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_00, 2) = 0, Physics:-Vector...
 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(tan(_...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(tan(_...
(38)
 

solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_10, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_10, 2) = 0, Physics:-Vector...
solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_10, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_10, 2) = 0, Physics:-Vector...
solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_10, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_10, 2) = 0, Physics:-Vector...
 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`-`(`*`(3, `*`(tan(_Z), `*`(`^`(_Z, 2)))...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`-`(`*`(3, `*`(tan(_Z), `*`(`^`(_Z, 2)))...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`-`(`*`(3, `*`(tan(_Z), `*`(`^`(_Z, 2)))...
(39)
 

 

solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_11, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_11, 2) = 0, Physics:-Vector...
solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_11, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_11, 2) = 0, Physics:-Vector...
solve([Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_11, 1) = 0, Physics:-Vectors:-Component(Gradient_Divergence_U_and_Laplacian_U_difference_11, 2) = 0, Physics:-Vector...
 

{c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`-`(`*`(2, `*`(tan(_Z), `*`(`^`(_Z, 2))))), `*`(`^`(_Z, 3)), `*`(3, `*`(tan(_Z))), `-`(`*`(3, `*`(_Z))))))), delta = delta, omega = omega, phi = phi, r = r,...
{c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`-`(`*`(2, `*`(tan(_Z), `*`(`^`(_Z, 2))))), `*`(`^`(_Z, 3)), `*`(3, `*`(tan(_Z))), `-`(`*`(3, `*`(_Z))))))), delta = delta, omega = omega, phi = phi, r = r,...
(40)
 

 

Разность их не нулевая. И приравнять эту их разность нулю не получается. И таким образом мы видим, что для сферической стоячей волны, с колебаниями развернутыми как у Чурляева вдоль оси Z мы, если хотим дружить с классической теорией упругости, не имеем права упрощать уравнение Ламе к волновому уравнению по той причине что градиент дивергенции не преобразовывается к лапласиану, как это происходит в случае плоской продольной волны. 

 

А можем ли мы в случае сферической стоячей волны, с колебаниями развернутыми вдоль оси Z получить нулевой градиент дивергенции, как это бывает в случае плоской поперечной волны. Вот пример, вектор смещения для плоской поперечной волны распространяющейся вдоль оси X, в которой колебания развернуты вдоль оси Y.  

 

Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(`*`(A, `*`(_j, `*`(cos(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(omega, `*`(t)), `*`(k, `*`(x))), delta))))))) 

0 (41)
 

Physics:-Vectors:-Divergence(`*`(A, `*`(_j, `*`(cos(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(omega, `*`(t)), `*`(k, `*`(x))), delta)))))) 

0 (42)
 

Градиент дивергенции, как и сама дивергенция для такой волны нулевые. А что для сферической стоячей волны, с колебаниями развернутыми как у Чурляева вдоль оси Z? 

 

Physics:-Vectors:-Divergence(U_(r, theta, phi, t, j, m, omega, delta)) 

`+`(`-`(`/`(`*`(SphericalY(j, m, theta, phi), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta), `*`(`+`(`*`(BesselJ(`+`(j, `/`(3, 2)), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(omega, `*`(r))), `-`...
`+`(`-`(`/`(`*`(SphericalY(j, m, theta, phi), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta), `*`(`+`(`*`(BesselJ(`+`(j, `/`(3, 2)), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(omega, `*`(r))), `-`...
`+`(`-`(`/`(`*`(SphericalY(j, m, theta, phi), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta), `*`(`+`(`*`(BesselJ(`+`(j, `/`(3, 2)), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(omega, `*`(r))), `-`...
(43)
 

Приравнивая дивергеницию и ее градиент нулю решаем уравнения 

 

solve(simplify(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 0, 0, omega, delta))) = 0) 

{c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z, `-`(tan(_Z)))))), delta = delta, omega = omega, r = r, t = t, theta = theta}, {c = c, delta = delta, omega = omega, r = r, t = t, theta = `+`(`*`(`/`(1,... (44)
 

 

solve([Physics:-Vectors:-Component(simplify(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 0, 0, omega, delta)))), 1) = 0, Physics:-Vectors:-Component(simplify(Physics:-V...
solve([Physics:-Vectors:-Component(simplify(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 0, 0, omega, delta)))), 1) = 0, Physics:-Vectors:-Component(simplify(Physics:-V...
 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z, `-`(tan(_Z)))))), delta = delta, ome...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z, `-`(tan(_Z)))))), delta = delta, ome...
(45)
 

 

 

Этот момент можно опять адресовать разработчикам программы. Здесь проявляется явный баг. Логически: если дивергенция равна нулю при и то ее градиент должен быть равен нуля при тех же условиях. Но программа говорит что градиент той же самой дивергенции равен нулю при и . В этом есть противоречие. 

 

 

solve(simplify(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 0, omega, delta))) = 0) 

{c = c, delta = delta, omega = omega, r = r, t = t, theta = arccos(`/`(`*`(`^`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(tan(`/`(`*`(omega, `*`(r)), `*`(c))))))), `*`(3, `*`(tan(`/`(`*`(omega,...
{c = c, delta = delta, omega = omega, r = r, t = t, theta = arccos(`/`(`*`(`^`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(tan(`/`(`*`(omega, `*`(r)), `*`(c))))))), `*`(3, `*`(tan(`/`(`*`(omega,...
(46)
 

 

 

solve([Physics:-Vectors:-Component(simplify(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 0, omega, delta)))), 1) = 0, Physics:-Vectors:-Component(simplify(Physics:-V...
solve([Physics:-Vectors:-Component(simplify(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 0, omega, delta)))), 1) = 0, Physics:-Vectors:-Component(simplify(Physics:-V...
 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(3...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(3...
(47)
 

 

 

solve(simplify(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 1, omega, delta))) = 0) 

{c = c, delta = delta, omega = omega, phi = phi, r = r, t = t, theta = 0}, {c = c, delta = delta, omega = omega, phi = phi, r = r, t = t, theta = Pi}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(t...
{c = c, delta = delta, omega = omega, phi = phi, r = r, t = t, theta = 0}, {c = c, delta = delta, omega = omega, phi = phi, r = r, t = t, theta = Pi}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(t...
(48)
 

 

solve([Physics:-Vectors:-Component(simplify(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 1, omega, delta)))), 1) = 0, Physics:-Vectors:-Component(simplify(Physics:-V...
solve([Physics:-Vectors:-Component(simplify(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 1, omega, delta)))), 1) = 0, Physics:-Vectors:-Component(simplify(Physics:-V...
 

{c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(3, `*`(tan(_Z)))), `*`(3, `*`(_Z)))))), delta = delta, omega = omega, phi = phi, r = r, t = t, theta = `+`(`*`(`/`(1,...
{c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(3, `*`(tan(_Z)))), `*`(3, `*`(_Z)))))), delta = delta, omega = omega, phi = phi, r = r, t = t, theta = `+`(`*`(`/`(1,...
(49)
 

Возможно здесь тоже проявляется тот же баг. Но для нас важно что для барионов выплывает условие при котором дивергенция смещения может быть равна нулю, хотя это точно не установлено потому что как мы в очередной раз убедились программа не лишена багов. 

 

Единственно, о чем можно уверенно говорить, что для сферическая стоячая волна, с колебаниями развернутыми вдоль оси Z, если хотим дружить с классической теорией упругости, не имеем права упрощать уравнение Ламе к волновому уравнению по той причине что дивергенция и ее градиент не равны нулю, как это происходит в случае плоской поперечной волны.  

 

Иными словами в рамках классической теории упругости мы должны работать с уравнением Ламе, а не с волновым уравнением.  

 

Будет ли сферическая стоячая волна, с колебаниями развернутыми вдоль оси Z удовлетворять уравнению Ламе? Проверим это непосредственной подстановкой. 

 

Уравнение Ламе в сферической системе координат 

 

eqLame := `*`(rho, `*`(diff(u_(r, theta, phi, t), t, t))) = Physics:-Vectors:-`+`(`*`(Physics:-Vectors:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(u_(r, theta, phi, t... 

Typesetting:-mprintslash([eqLame := `*`(rho, `*`(diff(u_(r, theta, phi, t), `$`(t, 2)))) = `+`(`*`(`+`(`/`(`*`(lambda, `*`(Typesetting:-mcomplete(Typesetting:-mrow(Typesetting:-mfrac(Typesetting:-mo(
Typesetting:-mprintslash([eqLame := `*`(rho, `*`(diff(u_(r, theta, phi, t), `$`(t, 2)))) = `+`(`*`(`+`(`/`(`*`(lambda, `*`(Typesetting:-mcomplete(Typesetting:-mrow(Typesetting:-mfrac(Typesetting:-mo(
Typesetting:-mprintslash([eqLame := `*`(rho, `*`(diff(u_(r, theta, phi, t), `$`(t, 2)))) = `+`(`*`(`+`(`/`(`*`(lambda, `*`(Typesetting:-mcomplete(Typesetting:-mrow(Typesetting:-mfrac(Typesetting:-mo(
(50)
 

 

 

Подставим вектор колебаний Чурляевского решения волнового уравнения в уравнение Ламе 

 

with(Physics[Vectors]); -1; eqLameW := `*`(rho, `*`(diff(U_(r, theta, phi, t, j, m, omega, delta), t, t))) = Physics[Vectors]:-`+`(`*`(Physics[Vectors]:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gradient...
with(Physics[Vectors]); -1; eqLameW := `*`(rho, `*`(diff(U_(r, theta, phi, t, j, m, omega, delta), t, t))) = Physics[Vectors]:-`+`(`*`(Physics[Vectors]:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gradient...
 

Полученное выражение не вывожу в виду его громоздкости 

 

 

Теперь делаем подстановки j, m для трёх основных Чурляевских локов (0,0), (1,0) и (1,1) в упрощенное выше выражение уравнения Ламе 

 

eqLameW_00 := subs(j = 0, m = 0, eqLameW); -1 

 

eqLameW_10 := subs(j = 1, m = 0, eqLameW); -1 

 

eqLameW_11 := subs(j = 1, m = 1, eqLameW); -1 

 

 

solve([simplify(Physics:-Vectors:-Component(eqLameW_00, 1)), simplify(Physics:-Vectors:-Component(eqLameW_00, 1)), simplify(Physics:-Vectors:-Component(eqLameW_00, 2))]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
(51)
 

solve([simplify(Physics:-Vectors:-Component(eqLameW_10, 1)), simplify(Physics:-Vectors:-Component(eqLameW_10, 1)), simplify(Physics:-Vectors:-Component(eqLameW_10, 2))]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
(52)
 

solve([simplify(Physics:-Vectors:-Component(eqLameW_11, 1)), simplify(Physics:-Vectors:-Component(eqLameW_11, 1)), simplify(Physics:-Vectors:-Component(eqLameW_11, 2))]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(...
(53)
 

 

Анализируя полученный результат можно увидеть, что развёрнутое Чурляевым вдоль оси Z решение волнового уравнения для волновых чисел (0,0) может удовлетворить уравнению Ламе при условии 

 

 

 

Для других волновых чисел, к сожалению не удаётся увидеть физически приемлимых решений. Поэтому чтобы проанализировать, что происходит при попытке подставить выражение для Чурляевского лока в уравнение Ламе, попробуем разобрать уравнение по полочкам, то есть по слагаемым. Слагаемое связанное с лапласианом 

 

with(Physics[Vectors]); -1; L := simplify(`*`(mu, `*`(Physics:-Vectors:-Laplacian(U_(r, theta, phi, t, j, m, omega, delta))))) 

Typesetting:-mprintslash([L := `+`(`/`(`*`(2, `*`(`+`(`-`(`*`(cos(theta), `*`(_r))), `*`(sin(theta), `*`(_theta))), `*`(mu, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 2), `*`(`+`(`*`(`^`(cos(theta), 2), `*`(`^`(r...
Typesetting:-mprintslash([L := `+`(`/`(`*`(2, `*`(`+`(`-`(`*`(cos(theta), `*`(_r))), `*`(sin(theta), `*`(_theta))), `*`(mu, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 2), `*`(`+`(`*`(`^`(cos(theta), 2), `*`(`^`(r...
Typesetting:-mprintslash([L := `+`(`/`(`*`(2, `*`(`+`(`-`(`*`(cos(theta), `*`(_r))), `*`(sin(theta), `*`(_theta))), `*`(mu, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 2), `*`(`+`(`*`(`^`(cos(theta), 2), `*`(`^`(r...
Typesetting:-mprintslash([L := `+`(`/`(`*`(2, `*`(`+`(`-`(`*`(cos(theta), `*`(_r))), `*`(sin(theta), `*`(_theta))), `*`(mu, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 2), `*`(`+`(`*`(`^`(cos(theta), 2), `*`(`^`(r...
Typesetting:-mprintslash([L := `+`(`/`(`*`(2, `*`(`+`(`-`(`*`(cos(theta), `*`(_r))), `*`(sin(theta), `*`(_theta))), `*`(mu, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 2), `*`(`+`(`*`(`^`(cos(theta), 2), `*`(`^`(r...
(54)
 

 

Слагаемое связанное со временем 

 

T := `*`(rho, `*`(diff(U_(r, theta, phi, t, j, m, omega, delta), t, t))) 

Typesetting:-mprintslash([T := `*`(rho, `*`(`+`(`-`(`/`(`*`(BesselJ(`+`(j, `/`(1, 2)), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(SphericalY(j, m, theta, phi), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`... (55)
 

 

Слагаемое связянное с объёмной деформацией 

 

V := simplify(`*`(Physics:-Vectors:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gradient(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, j, m, omega, delta)))))) 

Typesetting:-mprintslash([V := `+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(factorial(`+`(j, 2, `-`(m))), `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(`^`(factorial(`+`(j, m)), `/`(1, 2)...
Typesetting:-mprintslash([V := `+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(factorial(`+`(j, 2, `-`(m))), `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(`^`(factorial(`+`(j, m)), `/`(1, 2)...
Typesetting:-mprintslash([V := `+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(factorial(`+`(j, 2, `-`(m))), `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(`^`(factorial(`+`(j, m)), `/`(1, 2)...
Typesetting:-mprintslash([V := `+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(factorial(`+`(j, 2, `-`(m))), `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(`^`(factorial(`+`(j, m)), `/`(1, 2)...
Typesetting:-mprintslash([V := `+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(factorial(`+`(j, 2, `-`(m))), `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(`^`(factorial(`+`(j, m)), `/`(1, 2)...
(56)
 

 

Суммируя все слагаемые получаем выраженние для уравнения Ламе с подстановкой решения в виде Чурляевского лока 

 

simplify(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(V, L), `+`(`-`(T)))) 

`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
`+`(`-`(`/`(`*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(`/`(`*`(`+`(`*`(2, `*`(j)), 5)), `*`(`+`(`*`(2, `*`(j)), 1))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(omega, 2), `*`(`...
(57)
 

 

 

 

 

 

Произведём подстановку j, m 

 

Лок (0, 0) 

 

Слагаемое зависящее от времени для лока (0,0) 

T00 := subs(j = 0, m = 0, T); 1 

Typesetting:-mprintslash([T00 := `*`(rho, `*`(`+`(`-`(`/`(`*`(BesselJ(`/`(1, 2), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(SphericalY(0, 0, theta, phi), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), ... (58)
 

Слагаемое связянное с объёмной деформацией для лока (0,0) 

V00 := simplify(subs(j = 0, m = 0, V)); 1 

Typesetting:-mprintslash([V00 := `+`(`-`(`/`(`*`(`/`(1, 2), `*`(`+`(lambda, mu), `*`(`+`(`*`(`+`(`*`(`^`(c, 2), `*`(`^`(cos(theta), 2), `*`(_theta))), `-`(`*`(2, `*`(_r, `*`(`+`(`-`(`*`(`/`(1, 2), `*`...
Typesetting:-mprintslash([V00 := `+`(`-`(`/`(`*`(`/`(1, 2), `*`(`+`(lambda, mu), `*`(`+`(`*`(`+`(`*`(`^`(c, 2), `*`(`^`(cos(theta), 2), `*`(_theta))), `-`(`*`(2, `*`(_r, `*`(`+`(`-`(`*`(`/`(1, 2), `*`...
(59)
 

Слагаемое связанное с лапласианом для лока (0,0) 

L00 := simplify(subs(j = 0, m = 0, L)); 1 

Typesetting:-mprintslash([L00 := `+`(`-`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(`^`(omega, 2), `*`(BesselJ(`/`(1, 2), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(cos... (60)
 

 

 

Лок (1, 0) 

 

Слагаемое зависящее от времени для лока (1,0) 

T10 := subs(j = 1, m = 0, T); 1 

Typesetting:-mprintslash([T10 := `*`(rho, `*`(`+`(`-`(`/`(`*`(BesselJ(`/`(3, 2), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(SphericalY(1, 0, theta, phi), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), ... (61)
 

 

 

Слагаемое связянное с объёмной деформацией для лока (1,0) 

V10 := simplify(subs(j = 1, m = 0, V)); 1 

Typesetting:-mprintslash([V10 := `/`(`*`(`+`(lambda, mu), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(r, 2), `*`(`+`(`*`(`^`(cos(theta), 3), `*`(_theta)), `-`(`*`(`/`(3, 2), `*`(`^`(cos(t...
Typesetting:-mprintslash([V10 := `/`(`*`(`+`(lambda, mu), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(r, 2), `*`(`+`(`*`(`^`(cos(theta), 3), `*`(_theta)), `-`(`*`(`/`(3, 2), `*`(`^`(cos(t...
Typesetting:-mprintslash([V10 := `/`(`*`(`+`(lambda, mu), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`^`(r, 2), `*`(`+`(`*`(`^`(cos(theta), 3), `*`(_theta)), `-`(`*`(`/`(3, 2), `*`(`^`(cos(t...
(62)
 

 

 

Слагаемое связанное с лапласианом для лока (1,0) 

L10 := simplify(subs(j = 1, m = 0, L)); 1 

Typesetting:-mprintslash([L10 := `+`(`-`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(cos(theta), `*`(`+`(`-`(`*`(cos(`/`(`*`(omega, `*`(r)), `*`(c))), `*`(omega, `*`(r)))), `*`(sin(`/`(`*`(omega, `*`(r)), `*`(c)))... (63)
 

 

 

 

 

Лок (1, 1) 

 

Слагаемое зависящее от времени для лока (1,1) 

T11 := subs(j = 1, m = 1, T); 1 

Typesetting:-mprintslash([T11 := `*`(rho, `*`(`+`(`-`(`/`(`*`(BesselJ(`/`(3, 2), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(SphericalY(1, 1, theta, phi), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), ... (64)
 

 

Слагаемое связянное с объёмной деформацией для лока (1,0) 

V11 := simplify(subs(j = 1, m = 1, V)); 1 

Typesetting:-mprintslash([V11 := `+`(`-`(`/`(`*`(`/`(1, 4), `*`(`^`(2, `/`(1, 2)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`+`(lambda, mu), `*`(exp(`*`(I, `*`(phi))), `*`(`+`(`*`(`+`(`*`(2, `...
Typesetting:-mprintslash([V11 := `+`(`-`(`/`(`*`(`/`(1, 4), `*`(`^`(2, `/`(1, 2)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`+`(lambda, mu), `*`(exp(`*`(I, `*`(phi))), `*`(`+`(`*`(`+`(`*`(2, `...
Typesetting:-mprintslash([V11 := `+`(`-`(`/`(`*`(`/`(1, 4), `*`(`^`(2, `/`(1, 2)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`+`(lambda, mu), `*`(exp(`*`(I, `*`(phi))), `*`(`+`(`*`(`+`(`*`(2, `...
(65)
 

 

Слагаемое связанное с лапласианом для лока (1,1) 

L11 := simplify(subs(j = 1, m = 1, L)); 1 

Typesetting:-mprintslash([L11 := `+`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(exp(`*`(I, `*`(phi))), `*`(`^`(3, `/`(1, 2)), `*`(omega, `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(`+`(cos(theta), `-`(1)), `... (66)
 

 

Для начала рассмотрим слагаемое связанное с объёмной деформацией 

 

Лок (0, 0)
радиальная компонента градиента дивергенции вектора смещения
 

with(Physics[Vectors]); -1; V00__r := simplify(Physics:-Vectors:-Component(V00, 1)) 

Typesetting:-mprintslash([V00__r := `/`(`*`(`+`(lambda, mu), `*`(cos(theta), `*`(`^`(2, `/`(1, 2)), `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 2), `*`(`^`(omega, 2), `*`(`^`(r, 2))))), `*`(`^`(c, 2))), `*`(sin(`/... (67)
 

компонента градиента дивергенции вектора смещения вдоль меридиана 

with(Physics[Vectors]); -1; `V00__θ` := simplify(Physics:-Vectors:-Component(V00, 2)) 

Typesetting:-mprintslash([`V00__θ` := `+`(`-`(`/`(`*`(`/`(1, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(2, `/`(1, 2)), `*`(`+`(lambda, mu), `*`(`+`(`-`(`*`(cos(`/`(`*`(omega, `*`(r)), ... (68)
 

компонента градиента дивергенции вектора смещения вдоль параллели 

with(Physics[Vectors]); -1; Physics:-Vectors:-Component(V00, 3) 

0 (69)
 

 

Лок (1, 0) 

радиальная компонента градиента дивергенции вектора смещения 

with(Physics[Vectors]); -1; V10__r := simplify(Physics:-Vectors:-Component(V10, 1)) 

Typesetting:-mprintslash([V10__r := `+`(`/`(`*`(`/`(9, 2), `*`(`+`(`*`(`+`(`*`(`+`(`-`(`*`(`/`(4, 9), `*`(`^`(omega, 2), `*`(`^`(r, 2))))), `*`(`^`(c, 2))), `*`(`^`(cos(theta), 2))), `*`(`/`(1, 9), `*...
Typesetting:-mprintslash([V10__r := `+`(`/`(`*`(`/`(9, 2), `*`(`+`(`*`(`+`(`*`(`+`(`-`(`*`(`/`(4, 9), `*`(`^`(omega, 2), `*`(`^`(r, 2))))), `*`(`^`(c, 2))), `*`(`^`(cos(theta), 2))), `*`(`/`(1, 9), `*...
Typesetting:-mprintslash([V10__r := `+`(`/`(`*`(`/`(9, 2), `*`(`+`(`*`(`+`(`*`(`+`(`-`(`*`(`/`(4, 9), `*`(`^`(omega, 2), `*`(`^`(r, 2))))), `*`(`^`(c, 2))), `*`(`^`(cos(theta), 2))), `*`(`/`(1, 9), `*...
(70)
 

компонента градиента дивергенции вектора смещения вдоль меридиана 

with(Physics[Vectors]); -1; `V10__θ` := simplify(Physics:-Vectors:-Component(V10, 2)) 

Typesetting:-mprintslash([`V10__θ` := `/`(`*`(`^`(3, `/`(1, 2)), `*`(cos(theta), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(2, `/`(1, 2)), `*`(`+`(lambda, mu), `*`(`+`(`*`(sin(`/`(`*`(omeg... (71)
 

компонента градиента дивергенции вектора смещения вдоль параллели 

with(Physics[Vectors]); -1; Physics:-Vectors:-Component(V10, 3) 

0 (72)
 

 

 

 

Лок (1, 1) 

радиальная компонента градиента дивергенции вектора смещения 

with(Physics[Vectors]); -1; V11__r := simplify(Physics:-Vectors:-Component(V11, 1)) 

Typesetting:-mprintslash([V11__r := `+`(`/`(`*`(`/`(1, 2), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta),...
Typesetting:-mprintslash([V11__r := `+`(`/`(`*`(`/`(1, 2), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta),...
Typesetting:-mprintslash([V11__r := `+`(`/`(`*`(`/`(1, 2), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta),...
(73)
 

компонента градиента дивергенции вектора смещения вдоль меридиана 

with(Physics[Vectors]); -1; `V11__θ` := simplify(Physics:-Vectors:-Component(V11, 2)) 

Typesetting:-mprintslash([`V11__θ` := `+`(`/`(`*`(3, `*`(`^`(3, `/`(1, 2)), `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 3), `*`(`^`(omega, 2), `*`(`^`(r, 2))))), `*`(`^`(c, 2))), `*`(sin(`/`(`*`(omega, `*`(r... (74)
 

компонента градиента дивергенции вектора смещения вдоль параллели 

with(Physics[Vectors]); -1; `V11__φ` := Physics:-Vectors:-Component(V11, 3) 

Typesetting:-mprintslash([`V11__φ` := `+`(`/`(`*`(`*`(`/`(3, 2), `*`(I)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(exp(`*`(I, `*`(phi))), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(3,...
Typesetting:-mprintslash([`V11__φ` := `+`(`/`(`*`(`*`(`/`(3, 2), `*`(I)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(exp(`*`(I, `*`(phi))), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(3,...
Typesetting:-mprintslash([`V11__φ` := `+`(`/`(`*`(`*`(`/`(3, 2), `*`(I)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(exp(`*`(I, `*`(phi))), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(3,...
Typesetting:-mprintslash([`V11__φ` := `+`(`/`(`*`(`*`(`/`(3, 2), `*`(I)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(exp(`*`(I, `*`(phi))), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(3,...
Typesetting:-mprintslash([`V11__φ` := `+`(`/`(`*`(`*`(`/`(3, 2), `*`(I)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(exp(`*`(I, `*`(phi))), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(3,...
Typesetting:-mprintslash([`V11__φ` := `+`(`/`(`*`(`*`(`/`(3, 2), `*`(I)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(exp(`*`(I, `*`(phi))), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(`^`(3,...
(75)
 

 

 

Казалось бы, в конфигурации колебаний, выбранной Чурляевым, т.е. когда все колебания происходят вдоль оси Z объёмная деформация должна быть равна нулю, но давайте посмотрим при каких соотношениях коэффициентов градиент дивергенции будет равен нулю. Для этого попытаемся решить два уравнения относительно частоты.  

 

Лок (0, 0)

Попробуем теперь решить систему уравнений, приравняв нулю оба не равных нулю компонента градиента дивергенции
 

solve([V00__r = 0, `V00__θ` = 0]); 1 

{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z, `-`(tan(_Z)))))), delta = delta, lambda = lambda, mu...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z, `-`(tan(_Z)))))), delta = delta, lambda = lambda, mu...
(76)
 

 

То же далаем для лока (1,0) 

solve([V10__r = 0, `V10__θ` = 0]); 1 

{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, r = r, t = t, theta = theta}, {c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, ome...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, r = r, t = t, theta = theta}, {c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, ome...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, r = r, t = t, theta = theta}, {c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, ome...
(77)
 

 

 

Для лока (1,1) систему составляем уже из трёх уравнений 

solve([V11__r = 0, `V11__θ` = 0, `V11__φ` = 0]); 1 

{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, phi = phi, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(3, `*`...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, phi = phi, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(3, `*`...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, omega = omega, phi = phi, r = r, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `-`(`*`(3, `*`...
(78)
 

 

Первые два решения для лока (0,0) (и аналогичные решения для других локов) физически не обоснованны. А вот оставшиеся два решения интересны.

Попробуем найти значение графически - для лока (0,0)

plot(Physics:-Vectors:-`+`(_Z, `+`(`-`(tan(_Z)))), _Z = `+`(`-`(`*`(3, `*`(Pi)))) .. `+`(`*`(3, `*`(Pi)))); 1
 

Plot_2d
 

Для локов (1,0) и (1,1) тем же графическим способом ищем значение  

 

plot(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(tan(_Z), `*`(`^`(_Z, 2))), `+`(`-`(`*`(3, `*`(tan(_Z)))))), `+`(`*`(3, `*`(_Z)))), _Z = `+`(`-`(`*`(3, `*`(Pi)))) .. `+`(`*`(3, `*`(Pi)))) 

Plot_2d
 

 

 

 

Пеперь найдём численное решение в заданных интервалах 

 

`/`(`*`(fsolve(Physics:-Vectors:-`+`(_Z, `+`(`-`(tan(_Z)))), _Z = Pi .. `+`(`*`(2, `*`(Pi))))), `*`(Pi)) 

1.430296653 (79)
 

`/`(`*`(fsolve(Physics:-Vectors:-`+`(_Z, `+`(`-`(tan(_Z)))), _Z = `+`(`-`(`*`(2, `*`(Pi)))) .. Pi)), `*`(Pi)) 

-1.430296653 (80)
 

`/`(`*`(fsolve(Physics:-Vectors:-`+`(_Z, `+`(`-`(tan(_Z)))), _Z = `+`(`*`(2, `*`(Pi))) .. `+`(`*`(3, `*`(Pi))))), `*`(Pi)) 

2.459024033 (81)
 

`/`(`*`(fsolve(Physics:-Vectors:-`+`(_Z, `+`(`-`(tan(_Z)))), _Z = `+`(`-`(`*`(3, `*`(Pi)))) .. `+`(`-`(`*`(2, `*`(Pi)))))), `*`(Pi)) 

-2.459024033 (82)
 

`/`(`*`(fsolve(Physics:-Vectors:-`+`(_Z, `+`(`-`(tan(_Z)))), _Z = `+`(`*`(3, `*`(Pi))) .. `+`(`*`(4, `*`(Pi))))), `*`(Pi)) 

3.470889724 (83)
 

 

Таким образом для лока (0,0) получается некий дискретный спектр решений, при котором чурляевский лок не имеет объёмных деформаций 

 

ω = `/`(`*`(`*`(1.430296653, Pi), `*`(A)), `*`(r)) 

`+`(`/`(`*`(4.493409458, `*`(A)), `*`(r))) (84)
 

 

ω = `/`(`*`(`*`(2.459024033, Pi), `*`(A)), `*`(r)) 

`+`(`/`(`*`(7.725251838, `*`(A)), `*`(r))) (85)
 

 

 

ω = `/`(`*`(`*`(3.470889724, Pi), `*`(A)), `*`(r)) 

`+`(`/`(`*`(10.90412166, `*`(A)), `*`(r))) (86)
 

 

Но не по всему объёму лока, а только лишь при 

θ = и θ =  

То есть по оставшемуся объёму лок имеет объёмные деформации.  

 

Отсюда можно сделать следующие выводы.

Несмотря на то, что Чурляев в своём локе предположил наличие только лишь поперечных колебаний вдоль оси Z, тем не менее плоскости этих колебаний концентрически расходятся из центра лока, и следовательно эти плоскости не параллельны друг другу. Этим чурляевский лок отличается от плоской поперечной волны, в которой отсутствует объёмная деформация.
 

 

А поскольку в чурляевском локе объёмные дефомации присутствуют, следовательно можно сделать предположение о том, что фазовая скорость волны в чурляевском локе будет отличаться от фазовой скорости плоской поперечной волны, т.е. от скорости света 

 

Поскольку сферическая стоячая волна имеет как продольную так и поперечную составляющую колебаний, следовательно мы не можем принять для вакуума простое волновое уравнение, как это сделал Чурляев.

 

Проверим теперь остальные компоненты уравнения Ламе 

 


Радиальная компонента лапласиана для трёх локов
 

with(Physics[Vectors]); -1; simplify(Physics:-Vectors:-Component(L00, 1)); 1; simplify(Physics:-Vectors:-Component(L10, 1)); 1; simplify(Physics:-Vectors:-Component(L11, 1)) 

 

 

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(`^`(2, `/`(1, 2)), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(sin(`/`(`*`(omega, `*`(r)), `*`(c))), `*`(cos(theta)))))))), `*`(Pi, `*`(`^`(r...

`+`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(`^`(cos(theta), 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(3, `/`(1, 2)), `*`(`^`(2, `/`(1, 2)), `*`(`+`(`-`(`*`(cos(`/`(`*`(omega, `*`(r)), `*`(c))), `*`(...

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(exp(`*`(I, `*`(phi))), `*`(`^`(3, `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(3, 2)), `*`(`^`(`+`(cos(theta), 1), `... (87)
 

 

компонента лапласиана вектора смещения вдоль меридиана 

with(Physics[Vectors]); -1; simplify(Physics:-Vectors:-Component(L00, 2)); 1; simplify(Physics:-Vectors:-Component(L10, 2)); 1; simplify(Physics:-Vectors:-Component(L11, 2)) 

 

 

`+`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(`^`(2, `/`(1, 2)), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(sin(`/`(`*`(omega, `*`(r)), `*`(c))), `*`(sin(theta)))))))), `*`(Pi, `*`(`^`(r, `/...

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(cos(theta), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(3, `/`(1, 2)), `*`(`^`(2, `/`(1, 2)), `*`(`+`(`-`(`*`(cos(`/`(`*`(omega, `*`(r)), `*`(c))), `*`(omeg...

`+`(`/`(`*`(`/`(1, 2), `*`(mu, `*`(exp(`*`(I, `*`(phi))), `*`(`^`(3, `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(`+`(cos(theta), `-`(1)), `/`(3, 2)), `*`(`^`(`+`(cos(theta), 1), `/`(3... (88)
 

 

компонента лапласиана вектора смещения вдоль параллели 

with(Physics[Vectors]); -1; simplify(Physics:-Vectors:-Component(L00, 3)); 1; simplify(Physics:-Vectors:-Component(L10, 3)); 1; simplify(Physics:-Vectors:-Component(L11, 3)) 

 

 

0

0

0 (89)
 

 

Компоненты, слагаемого, зависящего от времени 

with(Physics[Vectors]); -1; simplify(Physics:-Vectors:-Component(T00, 1)); 1; simplify(Physics:-Vectors:-Component(T10, 1)); 1; simplify(Physics:-Vectors:-Component(T11, 1)) 

 

 

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(rho, `*`(`^`(2, `/`(1, 2)), `*`(sin(`/`(`*`(omega, `*`(r)), `*`(c))), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta)))))))), `*`(Pi, `*`(`^`(...

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(rho, `*`(`^`(2, `/`(1, 2)), `*`(omega, `*`(`^`(3, `/`(1, 2)), `*`(`^`(cos(theta), 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`-`(`*`(cos(`/`(`*`(omega, `*`(r))...

`+`(`/`(`*`(`/`(1, 2), `*`(rho, `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(cos(theta), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(exp(`*`(I, `*`(phi))),... (90)
 

with(Physics[Vectors]); -1; simplify(Physics:-Vectors:-Component(T00, 2)); 1; simplify(Physics:-Vectors:-Component(T10, 2)); 1; simplify(Physics:-Vectors:-Component(T11, 2)) 

 

 

`+`(`/`(`*`(`/`(1, 2), `*`(rho, `*`(`^`(2, `/`(1, 2)), `*`(sin(`/`(`*`(omega, `*`(r)), `*`(c))), `*`(`^`(omega, 2), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(sin(theta)))))))), `*`(Pi, `*`(`^`(`/`(...

`+`(`/`(`*`(`/`(1, 2), `*`(rho, `*`(`^`(2, `/`(1, 2)), `*`(omega, `*`(`^`(3, `/`(1, 2)), `*`(cos(theta), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(sin(theta), `*`(`+`(`-`(`*`(cos(`/`(`*`(omega, `*`...

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(rho, `*`(`^`(`+`(cos(theta), `-`(1)), `/`(1, 2)), `*`(`^`(`+`(cos(theta), 1), `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(exp(`*`(I, `*`(phi))), `*`(sin(the... (91)
 

with(Physics[Vectors]); -1; simplify(Physics:-Vectors:-Component(T00, 3)); 1; simplify(Physics:-Vectors:-Component(T10, 3)); 1; simplify(Physics:-Vectors:-Component(T11, 3)) 

 

 

0

0

0 (92)
 

 

Запишем ошибку отклонения чурляевского лока от уравнения Ламе 

для лока (0,0) 

E00 := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(V00, L00), `+`(`-`(T00))); -1 

 

для лока (1,0) 

E10 := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(V10, L10), `+`(`-`(T10))); -1 

 

для лока (1,1) 

E11 := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(V11, L11), `+`(`-`(T11))); -1 

 

Радиальная компонента ошибки для трёх локов 

with(Physics[Vectors]); -1; E00__r := simplify(Physics:-Vectors:-Component(E00, 1)); 1; E10__r := simplify(Physics:-Vectors:-Component(E10, 1)); 1; E11__r := simplify(Physics:-Vectors:-Component(E11, ... 

 

 

Typesetting:-mprintslash([E00__r := `/`(`*`(`^`(2, `/`(1, 2)), `*`(`+`(`*`(`+`(`*`(`+`(`*`(`/`(1, 2), `*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(rho)))), lambda, mu), `*`(`^`(c, 2))), `-`(`*`(`/`(1, 2), `*...

Typesetting:-mprintslash([E10__r := `+`(`-`(`/`(`*`(`/`(9, 2), `*`(`^`(2, `/`(1, 2)), `*`(`+`(`*`(`+`(`*`(`+`(`*`(`+`(`*`(`/`(1, 9), `*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(rho)))), lambda, mu), `*`(`^`...
Typesetting:-mprintslash([E10__r := `+`(`-`(`/`(`*`(`/`(9, 2), `*`(`^`(2, `/`(1, 2)), `*`(`+`(`*`(`+`(`*`(`+`(`*`(`+`(`*`(`/`(1, 9), `*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(rho)))), lambda, mu), `*`(`^`...

Typesetting:-mprintslash([E11__r := `+`(`/`(`*`(`/`(9, 2), `*`(`+`(`-`(`*`(r, `*`(omega, `*`(`+`(`*`(`/`(1, 9), `*`(`^`(r, 2), `*`(`+`(`*`(`^`(c, 2), `*`(rho)), `-`(lambda), `-`(`*`(2, `*`(mu)))), `*`...
Typesetting:-mprintslash([E11__r := `+`(`/`(`*`(`/`(9, 2), `*`(`+`(`-`(`*`(r, `*`(omega, `*`(`+`(`*`(`/`(1, 9), `*`(`^`(r, 2), `*`(`+`(`*`(`^`(c, 2), `*`(rho)), `-`(lambda), `-`(`*`(2, `*`(mu)))), `*`...
(93)
 

 

компонента ошибки вдоль параллели 

with(Physics[Vectors]); -1; `E00__θ` := simplify(Physics:-Vectors:-Component(E00, 2)); 1; `E10__θ` := simplify(Physics:-Vectors:-Component(E10, 2)); 1; `E11__θ` := simplify(Physics:-... 

 

 

Typesetting:-mprintslash([`E00__θ` := `+`(`-`(`/`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(`+`(cos(theta), `-`(1)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(`+`(`*`(`+`(`-`(`*`(`^`(...

Typesetting:-mprintslash([`E10__θ` := `+`(`-`(`/`(`*`(3, `*`(`^`(2, `/`(1, 2)), `*`(`^`(3, `/`(1, 2)), `*`(`+`(`*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 6), `*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(rho))))), ...
Typesetting:-mprintslash([`E10__θ` := `+`(`-`(`/`(`*`(3, `*`(`^`(2, `/`(1, 2)), `*`(`^`(3, `/`(1, 2)), `*`(`+`(`*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 6), `*`(`^`(omega, 2), `*`(`^`(r, 2), `*`(rho))))), ...

Typesetting:-mprintslash([`E11__θ` := `+`(`/`(`*`(3, `*`(`^`(3, `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(omega, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 6), `*`(`^`(r, 2), `*`(`+`(`*`(`^`(c, 2), `*`(rho)), `-`(...
Typesetting:-mprintslash([`E11__θ` := `+`(`/`(`*`(3, `*`(`^`(3, `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(omega, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 6), `*`(`^`(r, 2), `*`(`+`(`*`(`^`(c, 2), `*`(rho)), `-`(...
Typesetting:-mprintslash([`E11__θ` := `+`(`/`(`*`(3, `*`(`^`(3, `/`(1, 2)), `*`(`+`(`-`(`*`(r, `*`(omega, `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 6), `*`(`^`(r, 2), `*`(`+`(`*`(`^`(c, 2), `*`(rho)), `-`(...
(94)
 

 

компонента ошибки вдоль меридиана 

with(Physics[Vectors]); -1; simplify(Physics:-Vectors:-Component(E00, 3)); 1; simplify(Physics:-Vectors:-Component(E10, 3)); 1; `E11__φ` := simplify(Physics:-Vectors:-Component(E11, 3)) 

 

 

0

0

Typesetting:-mprintslash([`E11__φ` := `/`(`*`(`*`(`/`(3, 2), `*`(I)), `*`(`^`(3, `/`(1, 2)), `*`(`+`(`*`(`+`(`-`(`*`(`/`(1, 3), `*`(`^`(omega, 2), `*`(`^`(r, 2))))), `*`(`^`(c, 2))), `*`(sin(`/`(`... (95)
 

 

Решим систему уравнений, приравнивая ошибку отклонения Чурляевского лока от уравнения Ламе. Таким образом попытаемся ответить на вопрос, при каких условиях чурляевский лок может удовлетворить уравнению Ламе 

solve([E00__r = 0, `E00__θ` = 0]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
(96)
 

 

solve([E10__r = 0, `E10__θ` = 0]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
(97)
 

 

solve([E11__r = 0, `E11__θ` = 0, `E11__φ` = 0]) 

{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
{c = c, delta = delta, lambda = `+`(`-`(`*`(rho, `*`(`^`(c, 2))))), mu = `*`(rho, `*`(`^`(c, 2))), omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(R...
(98)
 

 


Первое решение для лока (0,0) не имеет физического смысла. Второе решение подразумевает отрицательный коэффициент Ламе что весьма сомнительно с физической точки зрения. Третье и четвёртое решение не интересны тем, что они выполняются только при фиксированных значениях долготы. А вот пятое решение весьма и весьма интересно
 

 

 

 

Как это можно интерпретировать? 

 

 

ω 

 

 

 

Для лока (1,0) с физической точки зрения приемлемых решений найдено, к сожалению, не было.  

 

Для лока (1,1) интересно рассмотреть решение
 


 

 

которое приводит к 

 

ω 

 

 

 

Здесь выплывает интересная мысль о том, что частота в сферической волне может убывать с ростом расстояния. Мысль вполне здравая и согласуется с тем обстоятельством, что частота звона малого кольца больше частоты звона большого кольца. Аналогично частота волнового резонанса в проводнике тем меньше, чем больше длина проводника. Факт экспериментально проверенный.

С другой стороны, фазовая скорость волны в локе оказывается отличной от скорости плоской поперечной волны. В принципе этот вывод не удивителен исходя из наличия в чурляевском локе объёмных деформаций. Интересно, что для разных локов получено различное значение фазовой скорости. В частности для лока (1,1)  фазовая скорость волны оказалась равной фазовой скорости продольной волны.
 

 

Интересно, что локи (0,0) и (1, 1) удовлетворяют уравнению Ламе лишь при рассмотренных выше зависимостях между плотностью частотой и фазовой скоростью 


То есть иными словами, взятая Чурляевым из справочника Корна сферичееская стоячая волна - это решение чисто математическое. Но, увы, не физическое. Физический смысл в линейной теории упругости твёрдого тела имеют уравнение Ламе, представляющие собой, если говорить простым, запись второго закона Ньютона в специфических для теории сплошных сред терминах: с учётом геометрического представления о напряжениях, деформациях и линейным законом Гука. И если для математического решения волнового уравнения не выполняется второй закон Ньютона, то....
 

 

Нужно искать решение именно уравнения Ламе в форме сферической стоячей волны, а не волнового уравнения. Решение волнового уравнения, данное Чурляевым, можно рассматривать только лишь как первое приближение, не более. 

 

А дело все в том, что объёмные деформации чурляевского лока по всему объёму не равны нулю. Именно вклад этих объёмных деформаций и обуславливают отклонение чурляевского решения от второго закона Ньютона.  

 

Электрический заряд частицы 

 

В прошлом году я по данной ссылке выложил идею интерепретации электрического заряда частицы если нам известна волновая функция данной частицы выраженная в координатах векторного потенциала. 

 

 

Запишем волновое уравнение электродинамики для векторного потенциала позаимствовав его у Менде 

 

 

eqMende1 := `*`(varepsilon, `*`(mu, `*`(diff(A_(r, theta, phi, t), t, t)))) = Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(A_(r, theta, phi, t))) 

Typesetting:-mprintslash([eqMende1 := `*`(varepsilon, `*`(mu, `*`(diff(A_(r, theta, phi, t), `$`(t, 2))))) = Typesetting:-mcomplete(Typesetting:-mrow(Typesetting:-mo( (99)
 

 

eqMende := `*`(varepsilon, `*`(mu, `*`(diff(A_(r, theta, phi, t), t, t)))) = Physics:-Vectors:-`+`(Physics:-Vectors:-Laplacian(A_(r, theta, phi, t)), `+`(`-`(Physics:-Vectors:-Gradient(Physics:-Vector...
 

 

Выразим напряжённость электрического поля через векторный потенциал 

 

E_(r, theta, phi, t) = `*`(mu, `*`(diff(A_(r, theta, phi, t), t))); -1 

 

Подставляя это выражение в волновое уравнение 

 

diff(`*`(varepsilon, `*`(E_(r, theta, phi, t))), t) = Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(A_(r, theta, phi, t))) 

 

откуда 

 

`*`(varepsilon, `*`(E_(r, theta, phi, t))) = int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(A_(r, theta, phi, t))), t) 

Typesetting:-mprintslash([`*`(varepsilon, `*`(E_(r, theta, phi, t))) = int(Typesetting:-mcomplete(Typesetting:-mrow(Typesetting:-mo( (100)
 

По определению электрический заряд представляет собой поток электрического смещения, мы можем выразить его, воспользовавшись теоремой Остроградского Гаусса через интеграл дивергенции электрического поля 

 

 

 

Что является следствием Законга Гаусса. После подстановки находим заряд частицы интегрированием по объёму дивергениции интеграла по времени ротора от ротора векторного потенциала 

 

q = int(`*`(Physics:-Vectors:-Divergence(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(A_(r, theta, phi, t))), t)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 ..... 

 

Таким образом, если предположить, что взятое за основу волновое уравнение электродинамики верно а также верна гипотеза Чурляева и сотоварищи о том что электромагнитный векторный потенциал A по сути является вектором смещения деформируемого вакуума W, то мы получаем в руки инструмент вычисления электрического заряда частицы.
 

 

q = int(`*`(Physics:-Vectors:-Divergence(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(U_(r, theta, phi, t, j, m, omega, delta))), t)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`... 

 

 

Анализируем 

 

q__00 = int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(U_(r, theta, phi, t, 0, 0, omega, delta))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. ... 

q__00 = 0 (101)
 

 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(U_(r, theta, phi, t, 0, 0, omega, delta))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), phi = 0 .. `+`(`*`(2... 

`+`(`*`(2, `*`(`+`(`-`(`/`(`*`(`^`(2, `/`(1, 2)), `*`(`+`(cos(theta), 1), `*`(sin(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(cos(theta), `-`(1)), `*`(cos(theta), `*`(`+`(`*`(sin(`/`(`*`(omega, `*`(r)), ...
`+`(`*`(2, `*`(`+`(`-`(`/`(`*`(`^`(2, `/`(1, 2)), `*`(`+`(cos(theta), 1), `*`(sin(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(cos(theta), `-`(1)), `*`(cos(theta), `*`(`+`(`*`(sin(`/`(`*`(omega, `*`(r)), ...
(102)
 

 

plot(subs(r = `/`(1, 100), c = 3, omega = 1, t = `/`(1, 2), delta = 0, int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(U_(r, theta, phi, t, 1, 0, omega,... 

Plot_2d
 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(U_(r, theta, phi, t, 0, 0, omega, delta))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(... 

0 (103)
 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(U_(r, theta, phi, t, 1, 0, omega, delta))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(... 

0 (104)
 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(U_(r, theta, phi, t, 1, 1, omega, delta))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(... 

0 (105)
 

 

Получаем нулевой заряд. И даже с учётом т.н. "закона наматывания" заряд тоже ноль 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(`/`(`*`(U_(r, theta, phi, t, 0, 0, omega, delta)), `*`(r)))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [p... 

0 (106)
 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(`/`(`*`(U_(r, theta, phi, t, 1, 0, omega, delta)), `*`(r)))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [p... 

0 (107)
 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(`/`(`*`(U_(r, theta, phi, t, 1, 1, omega, delta)), `*`(r)))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [p... 

0 (108)
 

 

 

Гравитационное поле частицы 

 

Гравитационное поле выражается в градиенте скорости электромагнитной волны, а она в свою очередь зависит от диэлектрической и магнитной проницаемости вакуума, что следует из уравнений Максвелла. Согласно принятым в настоящее время представлениям скорость электромагнитной волны уменьшается при приближении к гравитирующему телу. С другой стороны мне известна альтернативная теория гравитации, развиваемая Янчилиным в которой наоборот скорость электромагнитной волны при приближении к гравитирующему телу, наоборот, увеличивается. По Янчилину, "частота световой волны возрастает в поле тяготения быстрее, чем скорость. Поэтому свет, двигаясь в гравитационном поле, всегда поворачивает туда, где его скорость больше." 

 

Дивергенция смещения W в теории упругости появляется во-первых при описании волн, имеющий продольную составляющую. А во вторых при описании локальных напряжений, вызванных включениями, деформирующими сплошную среду. И то и другое по сути одна и та же дивергенция W.

Согласно воззрениям автора теории упругой вселенной элементарные частицы, представляюшие собой стоячие колебания гукуума, как бы "раздувают" гукуум.
 


Можно попытаться оценить величину этого раздувания проинтегрировав по всему объёму лока дивергенцию смещения W 

 

 

int(`*`(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 0, 0, omega, delta)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .. R]) 

0 (109)
 

 

 

 

int(`*`(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 0, omega, delta)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .. R]) 

`/`(`*`(`*`(`/`(1, 3), `*`(I)), `*`(`^`(3, `/`(1, 2)), `*`(`^`(2, `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`^`(R, `/`(1, 2)), `*`(`+`(`*`(I, `*`(exp(`/`(`*`(I, `*`(omega, `*`(R))), `*`... (110)
 

периодически меняющаяся во времени дивергенция не соответствует модели гравитационного поляы 

 

int(`*`(Physics:-Vectors:-Divergence(U_(r, theta, phi, t, 1, 1, omega, delta)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .. R]) 

0 (111)
 

С учётом "закона наматывания" 

 

int(`*`(Physics:-Vectors:-Divergence(`/`(`*`(U_(r, theta, phi, t, 0, 0, omega, delta)), `*`(r))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .. R]) 

0 (112)
 

 

 

int(simplify(`*`(Physics:-Vectors:-Divergence(`/`(`*`(U_(r, theta, phi, t, 1, 0, omega, delta)), `*`(r))), `*`(`^`(r, 2), `*`(sin(theta))))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .... 

`+`(`-`(`/`(`*`(`/`(1, 3), `*`(`^`(3, `/`(1, 2)), `*`(`^`(2, `/`(1, 2)), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(`+`(`*`(I, `*`(exp(`/`(`*`(I, `*`(omega, `*`(R))), `*`(c))), `*`(c))), `-`(`*`(`+`... (113)
 

 

 

int(`*`(Physics:-Vectors:-Divergence(`/`(`*`(U_(r, theta, phi, t, 1, 1, omega, delta)), `*`(r))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .. R]) 

0 (114)
 

 

Плотность энергии в локе 

 


Далее, плотность энергии в локе у Чурляева
http://uni100.ucoz.ru/_pu/0/12632193.gif выражается формулой
 

 

Image 

 


однако в курсе теории упругости
http://www.mat.net.ua/mat/biblioteka-fizika/Filonenko-Borodich-uprugost.pdf
стр 81, формула 3.33 даётся другая формула для плотности потенциальной энергии деформации
 

 

 

 

Image 

 

Есть предположение, что Чурляев взял формулу плотности потенциальной энергии деформации из учебника теории упругости Ландау-Лифшица. Хотя мне представляется более правильной формула приведенная в учебнике Филоненко-Бородича.
 

 

Так называемый закон наматывания 


На мой взгляд этот закон выглядит очень искуственно. Чтобы уйти от этой искусственности предлагаю следующее.
 


Чем ближе к центру частицы, тем ближе друг к другу плоскости, в которых происходит колебание среды в круговой волне.
 

 

Чем ближе к центру частицы, тем больше амплитуда колебаний, тем больше отклонение от линейного тензора деформации. Переход от дензора деформации Коши к тензору деформации Альманси. 

 

Чем ближе к цетру частицы, тем больше амплитуда колебаний, тем больше отклонение от линейного закона Гука. Это уже область нелинейной теории упругости, например Лурье. 

 

Также имеет смысл проанализировать решение в котором частота обратно пропорциональна радиусу. 

 

 

Вывод 

 

Моя проверка данного Чурляевым решения волнового уравнения показала его неудовлетворительность. 

 

Что делать? 

 

Первое. Подобрать решение удовлетворяющее уравнению Ламе. 

Второе. Проверить возможность назначить направления колебаний по другому. 

 

 

Комбинируем решение нормированное с учётом закона наматывания
с частотой обратно пропорциональна радиусу
 

 

 

Пока только с учётом закона наматывания 

 

 

Ur_ := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `/`(`*`(U_(r, theta, phi, t, j, m, omega, delta)), `*`(r)) end proc 

Typesetting:-mprintslash([Ur_ := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `/`(`*`(U_(r, theta, phi, t, j, m, omega, delta)), `*`(r)) end proc], [proc (r, theta, phi, t, j, ... (115)
 

 

value(Ur_(r, theta, phi, t, j, m, omega, delta)) 

`/`(`*`(`+`(`/`(`*`(BesselJ(`+`(j, `/`(1, 2)), `/`(`*`(omega, `*`(r)), `*`(c))), `*`(SphericalY(j, m, theta, phi), `*`(cos(`+`(`*`(omega, `*`(t)), delta)), `*`(cos(theta), `*`(_r))))), `*`(`^`(r, `/`(... (116)
 

 

Подставим в уравнение Ламе 

 

with(Physics[Vectors]); -1; eqLameW_r := `*`(rho, `*`(diff(Ur_(r, theta, phi, t, j, m, omega, delta), t, t))) = Physics[Vectors]:-`+`(`*`(Physics[Vectors]:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gradi...
with(Physics[Vectors]); -1; eqLameW_r := `*`(rho, `*`(diff(Ur_(r, theta, phi, t, j, m, omega, delta), t, t))) = Physics[Vectors]:-`+`(`*`(Physics[Vectors]:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gradi...
 

 

Теперь делаем подстановки j, m для трёх основных Чурляевских локов (0,0), (1,0) и (1,1) в упрощенное выше выражение уравнения Ламе 

 

eqLameW_r_00 := subs(j = 0, m = 0, eqLameW_r); -1 

 

eqLameW_r_10 := subs(j = 1, m = 0, eqLameW_r); -1 

 

eqLameW_r_11 := subs(j = 1, m = 1, eqLameW_r); -1 

 

 

solve([simplify(Physics:-Vectors:-Component(eqLameW_r_00, 1)), simplify(Physics:-Vectors:-Component(eqLameW_r_00, 1)), simplify(Physics:-Vectors:-Component(eqLameW_r_00, 2))]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = c, delta = delta, lambda = `+`(`-`(mu)), m...
(117)
 

 

 

solve([simplify(Physics:-Vectors:-Component(eqLameW_r_10, 1)), simplify(Physics:-Vectors:-Component(eqLameW_r_10, 1)), simplify(Physics:-Vectors:-Component(eqLameW_r_10, 2))]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(RootOf(`+`(_Z,...
(118)
 

 

 

solve([simplify(Physics:-Vectors:-Component(eqLameW_r_11, 1)), simplify(Physics:-Vectors:-Component(eqLameW_r_11, 1)), simplify(Physics:-Vectors:-Component(eqLameW_r_11, 2))]) 

{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
{c = c, delta = `+`(`-`(`*`(omega, `*`(t))), `*`(`/`(1, 2), `*`(Pi))), lambda = lambda, mu = mu, omega = omega, phi = phi, r = r, rho = rho, t = t, theta = theta}, {c = `/`(`*`(omega, `*`(r)), `*`(Roo...
(119)
 

 

 

 

С учётом закона наматывания и частотой обратной радиусу 

 

 

Uwr_ := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `/`(`*`(U_(r, theta, phi, t, j, m, `/`(`*`(omega__0), `*`(r)), delta)), `*`(r)) end proc 

Typesetting:-mprintslash([Uwr_ := proc (r, theta, phi, t, j, m, omega, delta) options operator, arrow; `/`(`*`(U_(r, theta, phi, t, j, m, `/`(`*`(omega__0), `*`(r)), delta)), `*`(r)) end proc], [proc ... (120)
 

 

value(Uwr_(r, theta, phi, t, j, m, omega, delta)) 

`/`(`*`(`+`(`/`(`*`(BesselJ(`+`(j, `/`(1, 2)), `/`(`*`(omega__0), `*`(c))), `*`(SphericalY(j, m, theta, phi), `*`(cos(`+`(`/`(`*`(omega__0, `*`(t)), `*`(r)), delta)), `*`(cos(theta), `*`(_r))))), `*`(... (121)
 

 

Подставим  в уравнение Ламе 

 

with(Physics[Vectors]); -1; eqLameW_wr := `*`(rho, `*`(diff(Uwr_(r, theta, phi, t, j, m, omega, delta), t, t))) = Physics[Vectors]:-`+`(`*`(Physics[Vectors]:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gra...
with(Physics[Vectors]); -1; eqLameW_wr := `*`(rho, `*`(diff(Uwr_(r, theta, phi, t, j, m, omega, delta), t, t))) = Physics[Vectors]:-`+`(`*`(Physics[Vectors]:-`+`(lambda, mu), `*`(Physics:-Vectors:-Gra...
 

 

 

Теперь делаем подстановки j, m для трёх основных Чурляевских локов (0,0), (1,0) и (1,1) в упрощенное выше выражение уравнения Ламе 

 

eqLameW_wr_00 := subs(j = 0, m = 0, eqLameW_wr); -1 

 

eqLameW_wr_10 := subs(j = 1, m = 0, eqLameW_wr); -1 

 

eqLameW_wr_11 := subs(j = 1, m = 1, eqLameW_wr); -1 

 

 

solve([simplify(Physics:-Vectors:-Component(eqLameW_wr_00, 1)), simplify(Physics:-Vectors:-Component(eqLameW_wr_00, 1)), simplify(Physics:-Vectors:-Component(eqLameW_wr_00, 2))]) 

{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, r = r, rho = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(12, `*`(r, `*`(t, `*`(tan(`/`(`*`(`+`(`*`(delta, `*`(r)), `*`(omega__0, `*`(t)))), `*`(r))), `*`(...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, r = r, rho = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(12, `*`(r, `*`(t, `*`(tan(`/`(`*`(`+`(`*`(delta, `*`(r)), `*`(omega__0, `*`(t)))), `*`(r))), `*`(...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, r = r, rho = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(12, `*`(r, `*`(t, `*`(tan(`/`(`*`(`+`(`*`(delta, `*`(r)), `*`(omega__0, `*`(t)))), `*`(r))), `*`(...
{c = c, delta = delta, lambda = `+`(`-`(mu)), mu = mu, r = r, rho = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(12, `*`(r, `*`(t, `*`(tan(`/`(`*`(`+`(`*`(delta, `*`(r)), `*`(omega__0, `*`(t)))), `*`(r))), `*`(...
(122)
 

 

 

solve([simplify(Physics:-Vectors:-Component(eqLameW_wr_10, 1)), simplify(Physics:-Vectors:-Component(eqLameW_wr_10, 1)), simplify(Physics:-Vectors:-Component(eqLameW_wr_10, 2))]) 

{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
{c = c, delta = delta, lambda = lambda, mu = mu, r = r, rho = rho, t = t, theta = theta, omega__0 = `*`(RootOf(`+`(_Z, `-`(tan(_Z)))), `*`(c))}, {c = c, delta = delta, lambda = lambda, mu = mu, r = r,...
(123)
 

 

 

solve([simplify(Physics:-Vectors:-Component(eqLameW_wr_11, 1)), simplify(Physics:-Vectors:-Component(eqLameW_wr_11, 1)), simplify(Physics:-Vectors:-Component(eqLameW_wr_11, 2))]) 

Error, (in SolveTools:-CancelInverses) division by zero
 

 

 

 

Интересен результат для лока 0,0 в первом варианте расчёта 

 

 


 

и для лока 1,0 во втором варианте 

 

 

 

Но попытка смоделировать гравитационное поле и электрический заряд оказалась безуспешной 

int(`*`(Physics:-Vectors:-Divergence(Ur_(r, theta, phi, t, 0, 0, omega, delta)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .. R]) 

0 (124)
 

 

int(`*`(Physics:-Vectors:-Divergence(Uwr_(r, theta, phi, t, 1, 0, omega, delta)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), theta = 0 .. Pi, r = 0 .. R]) 

`+`(`/`(`*`(`/`(2, 3), `*`(`^`(2, `/`(1, 2)), `*`(`^`(3, `/`(1, 2)), `*`(`^`(R, `/`(1, 2)), `*`(`+`(`*`(sin(delta), `*`(cos(`/`(`*`(omega__0), `*`(c))), `*`(sin(`/`(`*`(omega__0, `*`(t)), `*`(R))), `*...
`+`(`/`(`*`(`/`(2, 3), `*`(`^`(2, `/`(1, 2)), `*`(`^`(3, `/`(1, 2)), `*`(`^`(R, `/`(1, 2)), `*`(`+`(`*`(sin(delta), `*`(cos(`/`(`*`(omega__0), `*`(c))), `*`(sin(`/`(`*`(omega__0, `*`(t)), `*`(R))), `*...
(125)
 

 

simplify(subs(omega__0 = 1, c = 3, delta = 0, int(`*`(Physics:-Vectors:-Divergence(Uwr_(r, theta, phi, t, 1, 0, omega, delta)), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`(2, `*`(Pi))), thet... 

`+`(`-`(`*`(2, `*`(`^`(2, `/`(1, 2)), `*`(`^`(R, `/`(1, 2)), `*`(cos(`/`(`*`(t), `*`(R))), `*`(`+`(cos(`/`(1, 3)), `-`(`*`(3, `*`(sin(`/`(1, 3))))))))))))) (126)
 

 

Периодически меняющийся во времени результат дивергенции не похож на гравитационное поле 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(Ur_(r, theta, phi, t, 0, 0, omega, delta))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*`... 

0 (127)
 

 

 

int(`*`(Physics:-Vectors:-Divergence(simplify(int(Physics:-Vectors:-Curl(Physics:-Vectors:-Curl(Uwr_(r, theta, phi, t, 1, 0, omega, delta))), t))), `*`(`^`(r, 2), `*`(sin(theta)))), [phi = 0 .. `+`(`*... 

0 (128)
 

 

 

 

 

 

Дискуссия 

 

Например по ссылке Единая теория всех полей можно ознакомиться с гипотезой автора объединяющей электромагнитное поле и гравитационное. Процитирую.

Предисловие.Согласно теории Alexandr I Dubinyansky & Pavel Churlyaev, для вектора смещения W(x,y,z) космического Гукуума применима теорема Гельмгольца. Это означает, что вектор W(x,y,z) можно разложить на два вектора:

W = A + G

Где A(x,y,z) – векторный электромагнитный потенциал, а G(x,y,z) есть величина напрямую связанная с напряжением гравитационного поля. При этом векторный потенциал A(x,y,z) отражает ту компоненту вектора смещения W(x,y,z), для которой divA=0. А гравитационное поле удовлетворяет условию rotG=0.

  Задача. Известен эффект Ааронова-Бома. Нечто, пока не известное, действует на электрон в тех областях, где электромагнитного поля нет. Как такое возможно?! До сих пор считалось, что векторный потенциал A(x,y,z) является некоторой абстрактной величиной и не имеет никакого реального физического смысла. В свете эффекта Ааронова-Бома появляется предположение, что векторный потенциал A(x,y,z) имеет физический смысл, но какой?
  Решение. А физический смысл векторного потенциала A(x,y,z) очень простой. Это часть вектора смещения космического Гукуума. Причём той части вектора смещения W(x,y,z), для которой divA=0. Как известно, векторный потенциал A(x,y,z)электромагнитного поля имеет 3 измерения. Не 1, не 2, а 3! Это означает, что векторную функцию A(x,y,z) можно разложить на 3 взаимно-перпендикулярных направления. Как известно, величины напряжённости электрического поля E и магнитного поля H в электромагнитной волне всегда перпендикулярны друг другу. Два вектора E и H лежат в одной плоскости. Это означает, что трёхмерную функцию A(x,y,z) невозможно полноценно разложить по двум векторам E и H. Всегда будет оставаться не использованная ещё одна проекция вектора A(x,y,z), на направление, перпендикулярное векторам E и H. Векторы E и H не исчерпывают весь вектор A(x,y,z). Существует ещё один вектор, ещё одна характеристика, ещё одно поле, назовём его Dubinyansky field, и обозначим буквой D(x,y,z). Которая себя и проявляет в эффекта Аарона-Бома. Естественно, это компонента D(x,y,z) вектора A(x,y,z) и влияет на поведение частиц.

  По видимому, компонента D(x,y,z) присутствует во всех электромагнитных процессах и феноменах. Просто она трудно обнаружима с помощью электромагнитной аппаратуры. Потому что вся электромагнитная аппаратура настроена только на обнаружение электромагнитного поля.

  Весьма вероятно, что именно компонента D(x,y,z) присутствует в таких феноменах, как шаровая и чёточная (пунктирная) молния.
 

 

 

Позволю себе заметить, что вводя так называемое "Dubinyansky field" автор видимо не был знаком с работами Геннадия Николаева по электродинамике, в которых были изложены электромагнитные явления связанные с так называемым скалярным магнитным полем, которые по сути отражают факт наличия ненулевой дивергенции векторного потенциала, которая создаётся движущимся зарядом по направлению его движения. И которая влияет на движущиеся заряды. И по поводу шаровой молнии Николаев приводил описания и доказательства, что шаровые молнии являются мощными источниками скалярного магнитного поля, которое и обусловливает многие эффекты производимые ими. 

 

Если посмотреть чисто математическое формальное определение скалярного магнитного поля по Николаеву, то это дивергенция векторного потенциала.

S = -div A

однако что такое дивергенция? Это сумма трёх компонент. Сумма производной векторной величины А по каждой из трёх пространственных координат. В этой связи я допускаю в скалярном поле возможность выделения трёх компонент. Это конечно не вектор, - это как диагональные члены в тензоре деформации.

С.А.Дейна о скалярном поле пишет буквально следующее, цитирую "скалярное магнитное поле (СМП) возникает при движении электрического заряда в физическом вакууме, причём оно скалярное и возникает вдоль направления движения заряда." В другом месте более подрбно он эту мысль выражает так: "Что касается дивергенции, то смотрите некоторые мои работы, посвящённые теме скалярного магнитного поля. Нулевая дивергенция бывает, но только по центру движущегося заряда. ... в среде физического вакуума при движении в нём электрического заряда. В результате такого движения впереди и позади заряда возникает своего рода давление - скалярное возмущение среды. Это возмущение имеет бывает двух родов - сжатие и разряжение. Его мы и называем скалярным магнитным полем."
 

 

В гипотезе Чурляева и сотоварищи интересно следующее. Фактически авторы отождествляют электромагнитный векторный потенциал A с вектором смещения деформируемого вакуума W, который в свою очередь ответственен за создание гравитационного поля.
 

О возможной общности природы скалярного магнитного поля и гравитационного поля 

 

Из этой гипотезы вытекает очень интересное в практическом отношении следствие. Если гипотеза об идентичности векторного потенциала и  вектора смещения деформируемого вакуума верна, то мы можем сделать предположение об общности природы скалярного магнитного поля и гравитационного поля.  

 

Действительно, гравитационное поле гравитирующей частицы обусловлено отличной от нуля дивергенцией вектора смещения деформируемого вакуума. Скалярное магнитное поле обусловлено отличной от нуля дивергенцией векторного потенциала. 

 

Если векторный потенциал А = вектор смещения деформируемого вакуума W, то скалярное магнитное поле, с одним отличием о котором я скажу ниже, равно гравитационному полю гравитирующих тел. 

 

Если же векторный потенциал А = некая функция от вектора смещения деформируемого вакуума W, то скалярное магнитное представляет собой  некую функцию от гравитационного поля гравитирующих тел. 

 

С практической точки зрения, если мы возьмём источник сильного скалярного магнитного поля в виде объекта тороидальной намагниченности, такой как, например, шаровая молния, то по разные стороны намагниченного тороида у нас будет скалярное магнитное поле разных знаков. И если природа скалярного магнитного и гравитационного полей окажется идентичной, то по одну сторону тороида, свойства скалярного поля будут соответствовать свойствам гравитационного поля, а, по другую -  свойствам антигравитационного поля.  

 

Возможно именно благодаря антигравитационным свойствам скалярного магнитного поля в области снизу от шаровой молнии мы наблюдаем явления горизонтального движения шаровой молнии по некоторым свиделельствам повторяющие рельеф. 

 

Отличие между гравитационным полем гравитирующего тела и скалярным полем шаровой молнии заключается в том, какой вид имеют диагональные члены тензора деформации.  

 

В случае гравитационного поля гравитирующего тела все три диагональных члена тензора деформации имеют один и тот же знак.   

 

В случае скалярного поля шаровой молнии, знак вертикально направленного диагонального члена тензора деформации противоположен знаку двух остальных горизонтально направленных диагональных членов тензора. 

 

Сопоставление формул теории упругости и электродинамики 

 

Мы можем сопоставить теорию упругости с электродинамикой. В частности волновое уравнение электромагнитной волны, выведенное из уравнений Максвелла  

 

 

после преобразования к виду  

 

 

 

становится по форме записи аналогично уравнению Ламе 

 

 

 

если положить соотношение между упругими константами для вакуума  

 

 

то уравнение Ламе преобразовывается к виду  

 

 

совершенно аналогичному волновому уравнению электромагнитной волны, выведенному из уравнений Максвелла. Из этого уравнения видно, что скорость поперечной электромагнитной волны зависит от соотношения плотности среды и коэффициента сдвига  

 

 

Здесь хотелось бы указать на одно интересное математическое совпадение. В ходе анализа моей гипотезы Градиент скорости света как причина возникновения гравитационного ускорения я получил вычисленное значение гравитационного ускорения частицы 1.515 g. Если положить соотношение между упругими константами для вакуума  

и принять во внимание полученное в данной работе соотношение для скорости волны внутри лока (0,0)  

 

 

тогда подставляя первое выражение во второе получаем
 

 

Учитывая выражение для скорости поперечной электромагнитной волны  

 

находим что скорость круговой волны внутри лока равна  

 

Учитывая способ определения ускорения свободного падения круговой волны, как интеграл по длине мы должны будем в формуле окружности от получаем таким обазом поправочный множитель . Таким образом оценка гравитационного ускорения лока (0,0) составит 1.515 g * 2/3 = 1.01 g 

 

К сожалению для лока (1,1) аналогичные рассуждения заводят нас в тупик. Так что проблема объяснения величины гравиационного ускорения частицы в рамках обсуждаемой теории и вышеупомянутой гипотезы, увы, не решена 

 

 

Недостаток соотношения lambda = `+`(`-`(`*`(2, `*`(mu)))) в том, что полученное уравнение может описать распространение только лишь поперечной электромагнитной волны, оставляя продольные электромагнитные волны за бортом. Между тем в работах Докучаева, Геннадия Николаева и других генерация и приём продольной электромагнитной волны осуществлялся экспериментально. В случае вышеприведенных уравнений можно показать распространение продольных электромагнитных волн, только если соотношение не будет выполняться. 

Некоторые авторы (Степановский и др.) модифицируют уравнения Максвелла таким образом, чтобы показать распространение продольных элекромагнитных волн. За основу берётся уравнение Прока, которое является обобщением уравнений Максвелла, призванным описывать массивные частицы со спином 1.  

 

 

 

В этой форме уравнение Прока напоминает уравнение Ламе с учётом сторонних сил 

 

Но если попытаться провести аналогию между уравнениями Ламе и Прока, то нужно либо предположить коэффициент Ламе   равным нулю, что сомнительно, либо предположить, что коэффициент продольного сжатия как-то связан с градиентом производной по времени скалярного потенциала. Таким образом вопрос сопоставления уравнений электродинамики и уравнений теории упругости остаётся открытым. 

 

Приблизительный характер уравнения Ламе 

 

При этом относительно уравнения Ламе надо иметь в виду следующее. Несмотря на то, что уравнение Ламе выводится в теории сплошных сред исходя из второго закона Ньютона, который инвариантен относительно преобразований Галилея, уравнение Ламе относительно преобразований Галилея неинвариантно. Кроме того уравнение Ламе неинвариантно по отношению к перобразованию Лоренца. Причина такого положения в неточности, допущенной при вычислении ускорения элемента среды. Производная по времени для данного элемента среды и производная по времени в данном месте пространства  отличаются между собой. С учетом этого различия указанный парадокс исчезает, однако соответствующее уравнение движения становится нелинейным. Нелинейные слагаемые имеют тот же порядок малости, что и отброшенные при выводе уравнения Ламе в лагранжевой системе координат, жестко связанной со средой. Кроме того неточность уравнения Ламе возникает при отбразывании бесконечно малых второго порядка в тензоре Альманси. 

 

В связи с этим мною был предпринят вывод уравнения движения в координатах Эйлера с использованием тензора Альманси и при предположении о сохранении линейного характера в законе Гука. Полученное уравнение носит весьма громоздкий характер, что хотя и затрудняет его практическое использование, но тем не менее такой подход, думаю должен использоваться для уточнения теории. 

 

С другой стороны формальное сходства уравнения Ламе с волновым уравнением электромагнитной волны, выведенным из уравнений Максвелла наталкивает на мысль, что волновое уравнение электромагнитной волны приблизительно в том плане, как будто в этом уравнении на хватает бесконечно малых высших порядков, наподобие тех что отброшены при выводе уравнения Ламе. И поэтому настоящее волновое уравнение электромагнитной волны нелинейно. За счёт пространственной нелинейности тензора деформации. Наподобие нелинейности тензора Альманси.  

 

Нелинейная электродинамика вакуума в настоящее время активно развивается. Можно указать такие работы как
Основы нелинейной спинорной электродинамики
 

Постмаксвелловские эффекты нелинейной электродинамики вакуума и гравитации   

 

ВЗАИМОДЕЙСТВИЕ ФИЗИЧЕСКИХ ПОЛЕЙ В ЛАБОРАТОРНЫХ И АСТРОФИЗИЧЕСКИХ УСЛОВИЯХ 

 

Электродинамика фотона и его структура как сгустка одного из многих возможных состояний электромагнитного поля 

 

Нелинейная электродинамика: сингулярные солитоны и их взаимодействия 

 

Нелинейная электродинамика в качестве единой теории поля 

 

 

Причина неудачи моделирования гравитационного поля в данной работе 

 

Анализ литературы по линейной электродинамике позволяет предположить, что причина получения в данной работе нулевой дивергенции вектора смещения деформируемого вакуума заключена в неучёте нелинейности волнового уравнения вакуума. 

 

 

Целесообразность использования уравнений нелинейной моментной теории упругости в качестве волнового уравнения физического вакуума  

 

Есть ещё одно направление развития теории упругого вакуума, о котором нужно сказать. Как известно классическая теория упругости основывается на модели упругого континуума, в которой связь нагрузок между обеими сторонами малого поверхностного элемента dS описывается исключительно главным вектором сил pdS, что приводит к симметричным тензорам напряжений и дефомаций.  

 

Между тем одновременно с классической развивается теория упругости сплошных сред, учитывающая моментное
(вращательное) взаимодействие частиц, – моментная теория упругости братьев Коссеров. С несимметричными тензорами. В рамках этой модели учитывается изменение не только центров тяжести микрочастиц, но и их ориентации. Так как частицы представляют собой не точки, а пространственные образования, расположенные на расстояниях, сравнимых с их размерами, действие одной частицы на другую определяется целой системой сил и моментов. Даже система одних сил в общем случае не может быть сведена к одной лишь равнодействующей, необходимо введение еще и результирующего момента. Для каждого элементарного объёма среды учитывается также и момент инерции.
 

 

Мне удалось найти Вывод уравнений динамики нелинейной среды Коссера но при его использовании надо иметь в виду, что авторы данной работе в уравнении (7) используют тензор деформации Грина. Это справедливо если все предыдущие уравнения динамики среды основаны на описании Лагранжа. Но в книге по теории упругости Новацкого в главе 2.9 (стр.63-66) "Уравнения движения" Новацкий выводит уравнения движения используя именно описание Эйлера (см. уравнение 7 на стр. 64) а дальше (см. уравнение 16 на стр 66) он использует тензор деформации Альманси. В связи с этим есть мнение, что при выводе уравнений динамики нелинейной среды Коссера в уравнении (7) нужно использовать тензор Альманси.

Считаю использование уравнений нелинейной среды Коссера для физического вакуума перспективным, потому что есть надежда объяснить таким образом не только орбитальное движение, но и спин.
 

 

Если на самом деле окажется что тензор деформации физического вакуума несимметричен, как у братьев Коссеров, тогда, кроме скалярного магнитного поля мы сможем выделить не один а два вектора векторного магнитного поля. Скажем так орбитальное (или потоковое) и спиновое. Например магнитное поле вокруг прямого проводника с током возникает благодаря убыванию векторного потенциала с расстоянием от проводника. Ротор векторного потенциала здесь появляется именно благодаря этому. Я бы назвал такое векторное магнитное поле потоковым.  

 

А если представить ситуацию, что мы имеем ускоритель, из которого вылетает поток заряженных частиц, спин которых ориентирован одинаковым образом у всех частиц перпендикулярно направдению потока, то в окружающем такой поток пространстве мы получим два физически разных вектора магнитного поля. Один связан с поступательным движением частиц, другой - со спином этих частиц. И направление этих векторов будут несовпадать. 

 

Аналогичная ситуация, если мы пустим ток по полоске железа, которая до этого была намагниченную перпендикулярно направлению тока. Магнитное поле намагниченности - спиновое, а магнитное поле тока - потоковое. 

 

Всё это можно математически представить если иметь несимметричный тензор векторного потенциала. 

 

Вопрос на закуску 

 


Почему в теории упругой вселенной смещение W автор связывает именно с векторным потенциалом А?  

Может быть имеет смысл связать смещение W c вектором электрического смещения D?
Идея, так сказать, на поразмыслить ... И то смещение, и то.

А связана эта идея вот с чем. Недавно был открыт эффект Казимира, состоящий в том, что вакуум в свободном состоянии рождает электронно позитронные пары, которые потом опять аннигилируют. Кроме того пишут про так называемую темную энергию. Так вот моя идея в том что тёмная энергия почему темная потому что это не свет. Это не поперечная электромагнитная волна. А по всей видимости продольная. А что такое продольная электромагнитная волна? Это волна электрического смещения D. Так вот интерференция продольных волн электрического смещения должна приводить к локальным минимумам и максимумам электрического заряда (электронно-позитронные пары).

Хотя,  конечно, недостаток этой моей модели в том что мы не учитываем появление спина электрон позитронных пар. Так что видимо темная энергия это волна не просто продольная а возможно какая-то крутильная. Это ещё один доводв пользу того, что для физического вакуума аналогии нужно искать не в классической теории упругости, а в теории упругости братьев Коссеров. В которой тензоры деформации и напряжений несимметричны. И в которой учитывается, в отличие от классической теории упругости момент инерции элементарного объёма сплошной среды.

По большому счёту мы не до конца понимаем, что такое электрический заряд. И соответственно, что такое электрическое смешение.
 

 

26.03.2018 

 

 

Обратная связь

Стена

 

© liquidcrystalosmos