Жидкокристаллический осмос и другие научные идеи
     

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

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

Содержание:

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

А.Ю. Дроздов

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
 


Рассмотрим опыт Николаева и Дейны с взаимодействием двух соосно расположенных цилиндров со сверлением, намагничиваемых путём пропускания тока по проводу проходящему внутри сверлений.
 

Сам опыт представлен С.А. Дейной в ролике "Магниты Второе магнитное поле Николаева 4. Текстовое писание ролика здесь.

Качественно картину взаимодействия цилиндров между собой С.А. Дейна представил в
документе на странице 12 "Силовой взаимодействие дисков между собой и векторное магнитное поле". 

 

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

 

Согласно курсу теории электричества Тамма, раздел Магнетики, параграф 60, п.3, "для построения теории магнетиков ... среднее по физически бесконечно малому объёму значение плотности молекулярных токов j__mol . Среднее значение тока взятое по всему объёму замкнутых токов равно нулю." 

 

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

 

Примем, что ввиду однородной намагниченности поверхностная составляющая среднего значения молекулярных токов на поверхности циркулярно намагниченного цилиндра с соосным сверлением постоянна и имеет значение j__surf . Интегрируя поверхностный ток по внешней поверхности цилиндра получим `+`(`*`(2, `*`(Pi, `*`(R__2=5H=, `*`(dz, `*`(j__surf))))))  Интегрируя поверхностный ток по внутренней поверхности сверлений получим `+`(`*`(2, `*`(Pi, `*`(R__2=CB@, `*`(dz, `*`(j__surf))))))  Интегральное значение среднего молекулярного поверхностного тока на внешней поверхности цилидра больше интегрального значения среднего молекулярного поверхностного тока на поверхности внутреннего сверления в `+`(`*`(2, `*`(Pi, `*`(R__2=5H=, `*`(dz, `*`(j__surf, `*`(`/`(`+`(`*`(2, `*`(Pi, `*`(R__2=CB@, `*`(dz, `*`(j__surf)))))))))))))) = `/`(`*`(R__2=5H=), `*`(R__2=CB@)) раз. 

Расмотрим поверхностный ток на торцевой поверхности цилиндра. Интегральное значение поверхностного тока в пределах воображаемого на торцевой поверхности кольцевой полоски ограниченной окружностями радиусов R-dR/2 и R+dR/2 равное `+`(`*`(2, `*`(Pi, `*`(R, `*`(j__surf))))) не постоянно, а пропорционально радиусу R. Если взять на одной и той же торцевой поверхности две соседние кольцевые полоски ограниченные окружностями радиусов 1)  R-dR и R, 2) R и R+dR то интегральный ток в них будет равен соответственно `+`(`*`(2, `*`(Pi, `*`(`+`(R, `-`(`*`(`/`(1, 2), `*`(dR)))), `*`(j__surf)))))  и `+`(`*`(2, `*`(Pi, `*`(`+`(R, `*`(`/`(1, 2), `*`(dR))), `*`(j__surf)))))  Разница составит `+`(`*`(2, `*`(Pi, `*`(dR, `*`(j__surf)))))  И эта разница должна замыкаться объёмным током. Таким образом в цилиндрическом слоё объёма намагниченного цилиндра заключённом между воображаемыми цилиндрическими поверхностями радиусов R-dR/2 и R+dR/2 заключён интегральный средний по объёму молекулярных токов ток равный `+`(`*`(2, `*`(Pi, `*`(dR, `*`(j__surf)))))  Для получения плотности среднего по объёму молекулярного тока разделим на объём заключённый между воображаемыми цилиндрическими поверхностями. Таким образом получим `and`(j__v = `+`(`*`(2, `*`(Pi, `*`(dR, `*`(j__surf, `*`(`/`(`+`(`*`(2, `*`(Pi, `*`(R, `*`(dR)))))))))))), `+`(`*`(2, `*`(Pi, `*`(dR, `*`(j__surf, `*`(`/`(`+`(`*`(2, `*`(Pi, `*`(R, `*`(dR)))))))))))) ... 

 

На границе намагниченных магнетиков вектор плотности поверхностных токов пропорционален векторному произведения вектора нормали на вектор намагничивания  j__surf = `*`(c, `*`([`*`(n, I)])) 

Вектор намагничивания I определяется как магнитный момент молекулярных токов рассчитанный на единицу объёма   I = `*`(`/`(`+`(`*`(2, `*`(c, `*`(`ΔV`))))), `*`(int([Typesetting:-delayCrossProduct(R, j__mol)], V))) 

Если цилиндр имеет равномерную циркулярную (тороидальную) намагниченность, то плотность поверхностных токов всюду одинакова. 

 

Рассчитаем теперь согласно классической электродинамике силу взаимодействия между цилиндрами в опыте Дейны как градиент потенциальной функции взаимодействия токов согласно Тамм, Основы теории электричества, 1957, параграф 51 "Пондемоторное взаимодействие токов" 

 

Примем следующие обозначения: z1__max - координата правого края левого цилиндра z2__min - координата левого края правого цилиндра, dz длина цилиндров по оси z (высота цилинров), r__min - радиус внутреннего сверления в цилиндрах, r__max - радиус внешей поверхности цилиндров 

 

clear; -1; restart 

assume(r__min, 'real', r__min > 0, r__max, 'real', r__max > r_min, z1__max, 'real', z1__max < 0, dz, 'real', dz > 0, z2__min, 'real', z2__min > 0); 

 

Потенциальная функция взаимодействия объёмных токов (компиляция формул 51.6 и 52.5 из курса Тамма) 

Uvv := -1/(c^2)*Int(j__surf__1*j__surf__2 /
sqrt((r__1*cos(varphi__1)-r__2*cos(varphi__2))^2+(r__1*sin(varphi__1)-r__2*sin(varphi__2))^2+(z__1-z__2)^2),
[z__1 = z1__max-dz .. z1__max, varphi__1 = 0 .. 2*Pi, r__1=r__min..r__max,
z__2 = z2__min .. z2__min + dz, varphi__2 = 0 .. 2*Pi, r__2=r__min..r__max]);
 

`+`(`-`(`/`(`*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2)), `*`(`^`(`+`(`*`(`^`(`+`(`*`(r__1, `*`(cos(varphi__1))), `-`(`*`(r__2, `*`(cos(varphi__2))))), 2)), `*`(`^`(`+`(`*`(r__1, `*`(sin(varphi__1))),... (1)
 

Раскрывая скобки в знаменателе подинтегрального выражения преобразовываем его к виду 

R = sqrt(`+`(`*`(`^`(r__1, 2)), `*`(`^`(r__2, 2)), `*`(`^`(`+`(z__1, `-`(z__2)), 2)), `-`(`*`(2, `*`(cos(varphi__1), `*`(cos(varphi__2), `*`(r__1, `*`(r__2)))))), `-`(`*`(2, `*`(sin(varphi__1), `*`(si... 

Учитывая цилиндрическую симметричность задачи вычисление данного интеграла можно упростить положив varphi__2 = 0 следующим образом  

R = sqrt(`+`(`*`(`^`(r__1, 2)), `*`(`^`(r__2, 2)), `-`(`*`(2, `*`(cos(varphi__1), `*`(r__1, `*`(r__2))))), `*`(`^`(`+`(z__1, `-`(z__2)), 2)))) 

 

Uvv := -2*Pi/c^2*Int(j__surf__1*j__surf__2 /
sqrt(r__1^2+r__2^2+(z__1-z__2)^2-2*cos(varphi__1)*r__1*r__2),
[z__1 = z1__max-dz .. z1__max, varphi__1 = 0 .. 2*Pi, r__1 = r__min .. r__max,
z__2 = z2__min .. z2__min+dz, r__2 = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2)), `*`(`^`(`+`(`*`(`^`(r__1, 2)), `*`(`^`(r__2, 2)), `*`(`^`(`+`(z__1, `-`(z__2)), 2)), `-`(`*`(2, `*`(cos(varphi__1), `*`(r__1, `... (2)
 

 

Потенциальная функция взаимодействия поверхностных токов на поверхностях цилиндров 

Uss := -1/(c^2)*Int(j__surf__1*j__surf__2 * R__1 * R__2 /
sqrt((R__1*cos(varphi__1)-R__2*cos(varphi__2))^2+(R__1*sin(varphi__1)-R__2*sin(varphi__2))^2+(z__1-z__2)^2),
[z__1 = z1__max-dz .. z1__max, varphi__1 = 0 .. 2*Pi,
z__2 = z2__min .. z2__min + dz, varphi__2 = 0 .. 2*Pi]);
 

`+`(`-`(`/`(`*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(R__1, `*`(R__2)))), `*`(`^`(`+`(`*`(`^`(`+`(`*`(R__1, `*`(cos(varphi__1))), `-`(`*`(R__2, `*`(cos(varphi__2))))), 2)), `*`(`^`(`+`(`*`(R__1,... (3)
 

Аналогичным образом упрощая этот интеграл  

 

Uss := -2*Pi/c^2*Int(j__surf__1*j__surf__2*R__1*R__2 /
sqrt(R__1^2+R__2^2+(z__1-z__2)^2-2*cos(varphi__1)*R__1*R__2),
[z__1 = z1__max-dz .. z1__max, varphi__1 = 0 .. 2*Pi, z__2 = z2__min .. z2__min+dz]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(R__1, `*`(R__2)))), `*`(`^`(`+`(`*`(`^`(R__1, 2)), `*`(`^`(R__2, 2)), `*`(`^`(`+`(z__1, `-`(z__2)), 2)), `-`(`*`(2, `*`(cos(v... (4)
 

 

Суммарная потенциальная функция взаимодействия поверхностных токов на обоих поверхностях (внутренней и внешней) обоих цилиндров 

Uss4 :=
+ subs(R__1=r__max, R__2=r__max, Uss)
+ subs(R__1=r__min, R__2=r__min, Uss)
- subs(R__1=r__max, R__2=r__min, Uss)
- subs(R__1=r__min, R__2=r__max, Uss):
 

 

Потенциальная функция взаимодействия поверхностных токов на торцах цилиндров 

 

Utt := -1/(c^2)*Int(j__surf__1*j__surf__2*r__1*r__2*cos(varphi__1-varphi__2) /
sqrt(r__1^2 + r__2^2 - 2 * r__1 * r__2 * (cos(varphi__1) * cos(varphi__2) + sin(varphi__1)*sin(varphi__2)) + (z__1 - z__2)^2),
[varphi__1 = 0 .. 2*Pi,   varphi__2 = 0 .. 2*Pi,
r__1 = r__min .. r__max, r__2 = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(r__1, `*`(r__2, `*`(cos(`+`(varphi__1, `-`(varphi__2)))))))), `*`(`^`(`+`(`*`(`^`(r__1, 2)), `*`(`^`(r__2, 2)), `-`(`*`(2, `*`(r__1, `*`(r__... (5)
 

Упрощая интеграл 

 

Utt := -2*Pi/c^2*Int(j__surf__1*j__surf__2*r__1*r__2*cos(varphi__1) /
sqrt(r__1^2+r__2^2+(z__1-z__2)^2-2*cos(varphi__1)*r__1*r__2),
[varphi__1 = 0 .. 2*Pi, r__1 = r__min .. r__max, r__2 = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(r__1, `*`(r__2, `*`(cos(varphi__1)))))), `*`(`^`(`+`(`*`(`^`(r__1, 2)), `*`(`^`(r__2, 2)), `*`(`^`(`+`(z__1, `-`(z__2)), 2)),... (6)
 

 

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

Utt4 :=
- subs(z__1=z1__max,    z__2=z2__min, Utt)
+ subs(z__1=z1__max-dz, z__2=z2__min, Utt)
+ subs(z__1=z1__max,    z__2=z2__min+dz, Utt)
- subs(z__1=z1__max-dz, z__2=z2__min+dz, Utt):
 

 

Потенциальная функция взаимодействия объёмных токов с поверхностными 

Взаимодействие поверхностного тока левого цилиндра с объёмным током правого 

Usv := -1/(c^2) * Int(j__surf__1*j__surf__2 * R__s1 /
sqrt((R__s1*cos(varphi__s)-r__v*cos(varphi__v))^2+(R__s1*sin(varphi__s)-r__v*sin(varphi__v))^2+(z__s-z__v)^2),
[z__s = z1__max-dz .. z1__max, varphi__s = 0 .. 2*Pi,
z__v = z2__min .. z2__min+dz, varphi__v = 0 .. 2*Pi, r__v = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(R__s1))), `*`(`^`(`+`(`*`(`^`(`+`(`*`(R__s1, `*`(cos(varphi__s))), `-`(`*`(r__v, `*`(cos(varphi__v))))), 2)), `*`(`^`(`+`(`*`(R__s1, `*`(sin... (7)
 

При упрощении интеграла положим varphi__s = 0 

Usv := -2*Pi/(c^2) * Int(j__surf__1*j__surf__2 * R__s1 /
sqrt(R__s1^2+r__v^2-2*R__s1*r__v*cos(varphi__v)+(z__s-z__v)^2),
[z__s = z1__max-dz .. z1__max,
z__v = z2__min .. z2__min+dz, varphi__v = 0 .. 2*Pi, r__v = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(R__s1))), `*`(`^`(`+`(`*`(`^`(R__s1, 2)), `*`(`^`(r__v, 2)), `-`(`*`(2, `*`(R__s1, `*`(r__v, `*`(cos(varphi__v)))))), `*`(`^`... (8)
 

Взаимодействие поверхностного тока правого цилиндра с объёмным током левого 

Uvs := -1/(c^2) * Int(j__surf__1*j__surf__2 * R__s2 /
sqrt((R__s2*cos(varphi__s)-r__v*cos(varphi__v))^2+(R__s2*sin(varphi__s)-r__v*sin(varphi__v))^2+(z__s-z__v)^2),
[z__s = z2__min .. z2__min+dz, varphi__s = 0 .. 2*Pi,
z__v = z1__max-dz .. z1__max, varphi__v = 0 .. 2*Pi, r__v = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(R__s2))), `*`(`^`(`+`(`*`(`^`(`+`(`*`(R__s2, `*`(cos(varphi__s))), `-`(`*`(r__v, `*`(cos(varphi__v))))), 2)), `*`(`^`(`+`(`*`(R__s2, `*`(sin... (9)
 

 

Uvs := -2*Pi/c^2*Int(j__surf__1*j__surf__2*R__s2 /
sqrt(R__s2^2 + r__v^2 - 2*R__s2*r__v*cos(varphi__v) + (z__s-z__v)^2),
[z__s = z2__min .. z2__min+dz,
z__v = z1__max-dz .. z1__max, varphi__v = 0 .. 2*Pi, r__v = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(R__s2))), `*`(`^`(`+`(`*`(`^`(R__s2, 2)), `*`(`^`(r__v, 2)), `-`(`*`(2, `*`(R__s2, `*`(r__v, `*`(cos(varphi__v)))))), `*`(`^`... (10)
 

 

Суммарная потенциальная функция взаимодействия объёмных токов с поверхностными 

Uvs4 :=
- subs(R__s1=r__max, Usv)
+ subs(R__s1=r__min, Usv)
+ subs(R__s2=r__min, Uvs)
- subs(R__s2=r__max, Uvs):
 

 

Полная потенциальная функция взаимодействия 

U := Uvv+Uss4+Utt4+Uvs4: 

 

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

 

Полная сила 

F__1 := -(diff(U, z1__max)): 

F__2 := -(diff(U, z2__min)): 

 

Сила взаимодействия объёмных токов 

Fvv__1 := -(diff(Uvv, z1__max)): 

Fvv__2 := -(diff(Uvv, z2__min)): 

 

Сила  взаимодействия поверхностных токов 

Fss4__1 := -(diff(Uss4, z1__max)): 

Fss4__2 := -(diff(Uss4, z2__min)): 

 

Сила взаимодействия торцевых токов 

Ftt4__1 := -(diff(Utt4, z1__max)): 

Ftt4__2 := -(diff(Utt4, z2__min)): 

 

Сила взаимодействия поверхностных токов с объёмными 

Fvs4__1 := -(diff(Uvs4, z1__max)): 

Fvs4__2 := -(diff(Uvs4, z2__min)): 

 

 

Займёмся подстановкой числовых значений относящихся к размерам цилиндра и величине его намагниченности  

 

Внутренний и внешний радиусы 

R__min := .2; -1; R__max := 1; -1 

Координата правого торца первого цилиндра
Z1__max := -0.2e-1; -1
 

Координата левого торца второго цилиндра 

Z2__min := 0.2e-1; -1 

длина цилиндров 

DZ := 1; -1 

 

 

Зададим точность вычислений при численном интегрировании в 10 значащих цифр 

Digits := 10; -1 

 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvv__1)) 

14.35654213 (11)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvv__2)) 

-14.35654213 (12)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fss4__1)) 

13.32097545 (13)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fss4__2)) 

-13.32097545 (14)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Ftt4__1)) 

-13.69480468 (15)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Ftt4__2)) 

13.69480468 (16)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvs4__1)) 

-13.98271291 (17)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvs4__2)) 

13.98271291 (18)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, `+`(Fss4__1, Ftt4__1))) 

-.3738292368 (19)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, `+`(Fss4__2, Ftt4__2))) 

.3738292368 (20)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-7 (21)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__2)) 

0.1e-7 (22)
 

Сила, действующая на первый (левый) цилиндр в зависимости от расстояния: 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (23)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (24)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-7 (25)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

 

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

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

 

 

Зададим точность вычислений при численном интегрировании в 9 значащих цифр 

 

Digits := 9; -1  

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-6 (26)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__2)) 

0.2e-6 (27)
 

 

Сила, действующая на первый (левый) цилиндр в зависимости от расстояния: 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (28)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0.2e-6 (29)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-6 (30)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (31)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

 

Зададим точность вычислений при численном интегрировании в 8 значащих цифр 

 

Digits := 8; -1  

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.2e-5 (32)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__2)) 

0.2e-5 (33)
 

Сила, действующая на первый (левый) цилиндр в зависимости от расстояния: 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0.1e-5 (34)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-5 (35)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.2e-5 (36)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (37)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

 

Зададим точность вычислений при численном интегрировании в 7 значащих цифр 

 

Digits := 7; -1  

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-4 (38)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__2)) 

0.1e-4 (39)
 

Сила, действующая на первый (левый) цилиндр в зависимости от расстояния: 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (40)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0.1e-4 (41)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-4 (42)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (43)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0.2e-4 (44)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

 

Зададим точность вычислений при численном интегрировании в 6 значащих цифр 

 

Digits := 6; -1  

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (45)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__2)) 

0. (46)
 

Сила, действующая на первый (левый) цилиндр в зависимости от расстояния: 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (47)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.1e-3 (48)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0. (49)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

0.1e-3 (50)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

-0.2e-3 (51)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

 

Анализ полученных результатов показывает, что численное значение результирующей силы находится в пределах ошибки вычислений чисел с плавающей точкой с наперёд заданной точностью.  

 

Ниже приводится альтернативный метод расчёта данной задачи - с использованием эллиптических интегралов 

 

Для расчёта полей вида `/`(1, `*`(R)) в цилиндрической системе координат для систем имеющих цилиндрическую симметрию полезно заранее проинтегрировать `/`(1, `*`(R)) по кординатному углу varphi 

Ivarphi__j := proc (rho__j, rho__a, z__j, z__a, varphi__j) options operator, arrow; simplify(int(`/`(1, `*`(sqrt(`+`(`*`(`^`(rho__j, 2)), `*`(`^`(rho__a, 2)), `*`(`^`(`+`(z__j, `-`(z__a)), 2)), `-`(`*... 

proc (rho__j, rho__a, z__j, z__a, varphi__j) options operator, arrow; simplify(int(`/`(1, `*`(sqrt(`+`(`*`(`^`(rho__j, 2)), `*`(`^`(rho__a, 2)), `*`(`^`(`+`(z__j, `-`(z__a)), 2)), `-`(`*`(2, `*`(rho__... (52)
 

Ivarphi__j(rho__j, rho__a, z__j, z__a, varphi__j) 

`+`(`/`(`*`(2, `*`(`^`(`+`(`-`(`/`(`*`(`+`(`*`(4, `*`(`^`(cos(`+`(`*`(`/`(1, 2), `*`(varphi__j)))), 2), `*`(rho__a, `*`(rho__j)))), `-`(`*`(`^`(rho__a, 2))), `-`(`*`(2, `*`(rho__a, `*`(rho__j)))), `-`... (53)
 

 

Интеграл `/`(1, `*`(R)) по углу varphi в пределах от 0 до `+`(`*`(2, `*`(Pi))) 

simplify(`+`(subs(varphi__j = `+`(`*`(2, `*`(Pi))), Ivarphi__j(rho__j, rho__a, z__j, z__a, varphi__j)), `-`(subs(varphi__j = 0, Ivarphi__j(rho__j, rho__a, z__j, z__a, varphi__j))))) 

`+`(`/`(`*`(4, `*`(EllipticK(`+`(`*`(2, `*`(`^`(rho__a, `/`(1, 2)), `*`(`^`(rho__j, `/`(1, 2)), `*`(`^`(`+`(`-`(`/`(1, `*`(`+`(`*`(`^`(rho__a, 2)), `-`(`*`(2, `*`(rho__a, `*`(rho__j)))), `*`(`^`(rho__... (54)
 

 

Iphi := proc (rho__j, rho__a, z__j, z__a) options operator, arrow; `+`(`/`(`*`(4, `*`(EllipticK(`+`(`*`(2, `*`(sqrt(rho__a), `*`(sqrt(rho__j), `*`(sqrt(`+`(`-`(`/`(1, `*`(`+`(`*`(`^`(rho__a, 2)), `-`(... 

 

Uvv := -2*Pi/c^2*Int(j__surf__1*j__surf__2 * Iphi(r__1, r__2, z__1, z__2),
[z__1 = z1__max-dz .. z1__max, r__1 = r__min .. r__max,
z__2 = z2__min .. z2__min+dz, r__2 = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`+`(`/`(`*`(4, `*`(j__surf__1, `*`(j__surf__2, `*`(EllipticK(`+`(`*`(2, `*`(`^`(r__2, `/`(1, 2)), `*`(`^`(r__1, `/`(1, 2)), `*`(`^`(`+`(`-`(`/`(1, `*`(`+`(`*`(`^`(r_... (55)
 

Uss := -2*Pi/c^2*Int(j__surf__1*j__surf__2*R__1*R__2 * Iphi(R__1, R__2, z__1, z__2),
[z__1 = z1__max-dz .. z1__max, z__2 = z2__min .. z2__min+dz]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`+`(`/`(`*`(4, `*`(j__surf__1, `*`(j__surf__2, `*`(R__1, `*`(R__2, `*`(EllipticK(`+`(`*`(2, `*`(`^`(R__2, `/`(1, 2)), `*`(`^`(R__1, `/`(1, 2)), `*`(`^`(`+`(`-`(`/`(1... (56)
 

 

Usv := -2*Pi/(c^2) * Int(j__surf__1*j__surf__2 * R__s1 * Iphi(R__s1, r__v, z__s, z__v),
[z__s = z1__max-dz .. z1__max,
z__v = z2__min .. z2__min+dz, r__v = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`+`(`/`(`*`(4, `*`(j__surf__1, `*`(j__surf__2, `*`(R__s1, `*`(EllipticK(`+`(`*`(2, `*`(`^`(r__v, `/`(1, 2)), `*`(`^`(R__s1, `/`(1, 2)), `*`(`^`(`+`(`-`(`/`(1, `*`(`+... (57)
 

Uvs := -2*Pi/c^2*Int(j__surf__1*j__surf__2*R__s2 * Iphi(R__s2, r__v, z__s, z__v),
[z__s = z2__min .. z2__min+dz,
z__v = z1__max-dz .. z1__max, r__v = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`+`(`/`(`*`(4, `*`(j__surf__1, `*`(j__surf__2, `*`(R__s2, `*`(EllipticK(`+`(`*`(2, `*`(`^`(r__v, `/`(1, 2)), `*`(`^`(R__s2, `/`(1, 2)), `*`(`^`(`+`(`-`(`/`(1, `*`(`+... (58)
 

 

Для расчёта полей вида `/`(`*`(cos(varphi)), `*`(R)) в цилиндрической системе координат для систем имеющих цилиндрическую симметрию полезно заранее проинтегрировать `/`(`*`(cos(varphi)), `*`(R)) по кординатному углу varphi 

 

 

 

simplify(int(cos(varphi__j)/sqrt(rho__j^2+rho__a^2+(z__j-z__a)^2-2*rho__j*rho__a*cos(varphi__j)), varphi__j)); 

`/`(`*`(`+`(`*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`(rho__a, `*`(rho__j))), `*`(`^`(rho__j, 2)), `*`(`^`(`+`(z__a, `-`(z__j)), 2))), `*`(EllipticE(cos(`+`(`*`(`/`(1, 2), `*`(varphi__j)))), `+`(`*`(2, `...
`/`(`*`(`+`(`*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`(rho__a, `*`(rho__j))), `*`(`^`(rho__j, 2)), `*`(`^`(`+`(z__a, `-`(z__j)), 2))), `*`(EllipticE(cos(`+`(`*`(`/`(1, 2), `*`(varphi__j)))), `+`(`*`(2, `...
`/`(`*`(`+`(`*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`(rho__a, `*`(rho__j))), `*`(`^`(rho__j, 2)), `*`(`^`(`+`(z__a, `-`(z__j)), 2))), `*`(EllipticE(cos(`+`(`*`(`/`(1, 2), `*`(varphi__j)))), `+`(`*`(2, `...
(59)
 

Icosphi__j := proc(rho__j, rho__a, z__j, z__a, varphi__j) options operator, arrow;
sqrt( 1 / (rho__a^2+2*rho__j*rho__a+rho__j^2+(z__a-z__j)^2) )
/ (rho__a*rho__j) *
(
(rho__a^2+2*rho__a*rho__j+rho__j^2+(z__a-z__j)^2) *
EllipticE(cos((1/2)*varphi__j), 2*sqrt(rho__a*rho__j/(rho__a^2+2*rho__a*rho__j+rho__j^2+(z__a-z__j)^2)))
- (rho__a^2+rho__j^2+(z__a-z__j)^2) *
EllipticF(cos((1/2)*varphi__j), 2*sqrt(rho__a*rho__j/(rho__a^2+2*rho__a*rho__j+rho__j^2+(z__a-z__j)^2)))
) end proc:
 

 

Icosphi__j(rho__j, rho__a, z__j, z__a, varphi__j) 

`/`(`*`(`^`(`/`(1, `*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`(rho__a, `*`(rho__j))), `*`(`^`(rho__j, 2)), `*`(`^`(`+`(z__a, `-`(z__j)), 2))))), `/`(1, 2)), `*`(`+`(`*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`...
`/`(`*`(`^`(`/`(1, `*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`(rho__a, `*`(rho__j))), `*`(`^`(rho__j, 2)), `*`(`^`(`+`(z__a, `-`(z__j)), 2))))), `/`(1, 2)), `*`(`+`(`*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`...
(60)
 

 

Icosphi__j(1, 1, 0, 1, 0) 

`+`(`*`(`/`(1, 5), `*`(`^`(5, `/`(1, 2)), `*`(`+`(`*`(5, `*`(EllipticE(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2)))))))), `-`(`*`(3, `*`(EllipticK(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2)))))))))))))) (61)
 

Icosphi__j(1, 1, 0, 1, `+`(`*`(2, `*`(Pi)))) 

`+`(`*`(`/`(1, 5), `*`(`^`(5, `/`(1, 2)), `*`(`+`(`-`(`*`(5, `*`(EllipticE(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2))))))))), `*`(3, `*`(EllipticK(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2))))))))))))) (62)
 

simplify(`+`(Icosphi__j(1, 1, 0, 1, `+`(`*`(2, `*`(Pi)))), `-`(Icosphi__j(1, 1, 0, 1, 0)))) 

`+`(`-`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2)), `*`(`+`(`*`(5, `*`(EllipticE(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2)))))))), `-`(`*`(3, `*`(EllipticK(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2))))))))))))))... (63)
 

`+`(`*`(2, `*`(Icosphi__j(1, 1, 0, 1, `+`(`*`(2, `*`(Pi))))))) 

`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2)), `*`(`+`(`-`(`*`(5, `*`(EllipticE(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2))))))))), `*`(3, `*`(EllipticK(`+`(`*`(`/`(2, 5), `*`(`^`(5, `/`(1, 2))))))))))))) (64)
 

 

plot(Icosphi__j(1, 1, 0, 1, varphi__j), varphi__j = 0 .. `+`(`*`(2, `*`(Pi)))) 

Plot_2d
 

 

 

 

 

 

Интеграл `/`(`*`(cos(varphi)), `*`(R)) по углу varphi в пределах от 0 до `+`(`*`(2, `*`(Pi))) 

 

simplify(`+`(subs(varphi__j = `+`(`*`(2, `*`(Pi))), Icosphi__j(rho__j, rho__a, z__j, z__a, varphi__j)), `-`(subs(varphi__j = 0, Icosphi__j(rho__j, rho__a, z__j, z__a, varphi__j))))) 

 

Icosphi := proc (rho__j, rho__a, z__j, z__a) options operator, arrow; `+`(`*`(2, `*`(Icosphi__j(rho__j, rho__a, z__j, z__a, `+`(`*`(2, `*`(Pi))))))) end proc 

proc (rho__j, rho__a, z__j, z__a) options operator, arrow; `+`(`*`(2, `*`(Icosphi__j(rho__j, rho__a, z__j, z__a, `+`(`*`(2, `*`(Pi))))))) end proc (65)
 

Icosphi(rho__j, rho__a, z__j, z__a) 

`+`(`/`(`*`(2, `*`(`^`(`/`(1, `*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`(rho__a, `*`(rho__j))), `*`(`^`(rho__j, 2)), `*`(`^`(`+`(z__a, `-`(z__j)), 2))))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`^`(rho__a, ...
`+`(`/`(`*`(2, `*`(`^`(`/`(1, `*`(`+`(`*`(`^`(rho__a, 2)), `*`(2, `*`(rho__a, `*`(rho__j))), `*`(`^`(rho__j, 2)), `*`(`^`(`+`(z__a, `-`(z__j)), 2))))), `/`(1, 2)), `*`(`+`(`-`(`*`(`+`(`*`(`^`(rho__a, ...
(66)
 

 

 

Utt := -2*Pi/c^2*Int(j__surf__1*j__surf__2*r__1*r__2*Icosphi(r__1,r__2,z__1,z__2),
[r__1 = r__min .. r__max, r__2 = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`+`(`*`(2, `*`(j__surf__1, `*`(j__surf__2, `*`(`^`(`/`(1, `*`(`+`(`*`(`^`(r__2, 2)), `*`(2, `*`(r__2, `*`(r__1))), `*`(`^`(r__1, 2)), `*`(`^`(`+`(z__2, `-`(z__1)), 2...
`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`+`(`*`(2, `*`(j__surf__1, `*`(j__surf__2, `*`(`^`(`/`(1, `*`(`+`(`*`(`^`(r__2, 2)), `*`(2, `*`(r__2, `*`(r__1))), `*`(`^`(r__1, 2)), `*`(`^`(`+`(z__2, `-`(z__1)), 2...
(67)
 

 

 

Суммарная потенциальная функция взаимодействия поверхностных токов на обоих поверхностях (внутренней и внешней) обоих цилиндров 

Uss4 :=
+ subs(R__1=r__max, R__2=r__max, Uss)
+ subs(R__1=r__min, R__2=r__min, Uss)
- subs(R__1=r__max, R__2=r__min, Uss)
- subs(R__1=r__min, R__2=r__max, Uss):
 

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

Utt4 :=
- subs(z__1=z1__max,    z__2=z2__min, Utt)
+ subs(z__1=z1__max-dz, z__2=z2__min, Utt)
+ subs(z__1=z1__max,    z__2=z2__min+dz, Utt)
- subs(z__1=z1__max-dz, z__2=z2__min+dz, Utt):
 

 

Суммарная потенциальная функция взаимодействия объёмных токов с поверхностными 

Uvs4 :=
- subs(R__s1=r__max, Usv)
+ subs(R__s1=r__min, Usv)
+ subs(R__s2=r__min, Uvs)
- subs(R__s2=r__max, Uvs):
 

 

Полная потенциальная функция взаимодействия 

U := Uvv+Uss4+Utt4+Uvs4: 

 

Сила действующая на цилиндры. С индексом 1 сила действующая на левый цилиндр, с индексом 2 сила действующая на правый 

 

Полная сила 

F__1 := -(diff(U, z1__max)): 

F__2 := -(diff(U, z2__min)): 

 

Сила взаимодействия объёмных токов 

Fvv__1 := -(diff(Uvv, z1__max)): 

Fvv__2 := -(diff(Uvv, z2__min)): 

 

Сила  взаимодействия поверхностных токов 

Fss4__1 := -(diff(Uss4, z1__max)): 

Fss4__2 := -(diff(Uss4, z2__min)): 

 

Сила взаимодействия торцевых токов 

Ftt4__1 := -(diff(Utt4, z1__max)): 

Ftt4__2 := -(diff(Utt4, z2__min)): 

 

Сила взаимодействия поверхностных токов с объёмными 

Fvs4__1 := -(diff(Uvs4, z1__max)): 

Fvs4__2 := -(diff(Uvs4, z2__min)): 

 

 

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

 

 

Внутренний и внешний радиусы 

R__min := .2; -1; R__max := 1; -1 

Координата правого торца первого цилиндра
Z1__max := -0.2e-1; -1
 

Координата левого торца второго цилиндра 

Z2__min := 0.2e-1; -1 

длина цилиндров 

DZ := 1; -1 

 

 

 

subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvv__1) 

`+`(`*`(2, `*`(Pi, `*`(Int(`+`(`/`(`*`(4, `*`(EllipticK(`+`(`*`(2, `*`(`^`(r__2, `/`(1, 2)), `*`(`^`(r__1, `/`(1, 2)), `*`(`^`(`+`(`-`(`/`(1, `*`(`+`(`*`(`^`(r__2, 2)), `-`(`*`(2, `*`(r__2, `*`(r__1))...
`+`(`*`(2, `*`(Pi, `*`(Int(`+`(`/`(`*`(4, `*`(EllipticK(`+`(`*`(2, `*`(`^`(r__2, `/`(1, 2)), `*`(`^`(r__1, `/`(1, 2)), `*`(`^`(`+`(`-`(`/`(1, `*`(`+`(`*`(`^`(r__2, 2)), `-`(`*`(2, `*`(r__2, `*`(r__1))...
(68)
 

Зададим точность вычислений при численном интегрировании в 10 значащих цифр 

 

Digits := 10; -1 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvv__1)) 

14.35654213 (69)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvv__2)) 

-14.35654213 (70)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fss4__1)) 

`+`(13.32097545, `*`(0., `*`(I))) (71)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fss4__2)) 

`+`(`-`(13.32097545), `*`(0., `*`(I))) (72)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Ftt4__1)) 

-13.69480468 (73)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Ftt4__2)) 

13.69480468 (74)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvs4__1)) 

`+`(`-`(13.98271291), `*`(0., `*`(I))) (75)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fvs4__2)) 

`+`(13.98271291, `*`(0., `*`(I))) (76)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, `+`(Fss4__1, Ftt4__1))) 

`+`(`-`(.3738292368), `*`(0., `*`(I))) (77)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, `+`(Fss4__2, Ftt4__2))) 

`+`(.3738292368, `*`(0., `*`(I))) (78)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

`+`(`-`(0.1e-7), `*`(0., `*`(I))) (79)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__2)) 

`+`(0.1e-7, `*`(0., `*`(I))) (80)
 

Сила, действующая на первый (левый) цилиндр в зависимости от расстояния: 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

`+`(0., `*`(0., `*`(I))) (81)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

`+`(0., `*`(0., `*`(I))) (82)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

`+`(`-`(0.1e-7), `*`(0., `*`(I))) (83)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

`+`(0., `*`(0., `*`(I))) (84)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

Warning,  computation interrupted
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, F__1)) 

 

 

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

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

-0.2e-7 (85)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

Warning,  computation interrupted
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

Warning,  computation interrupted
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, U)) 

 

 

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

Согласно Г.В. Николаеву (Непротиворечивая Электродинамика. Теория, эксперименты, парадоксы. Книга 1 1997, стр. 45, описание опыта 31)
 

 

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

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

 

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

Uwss := -1/(c^2)*Int(j__surf__1*j__surf__2 * r__min * r__min /
sqrt((R__1*cos(varphi__1)-R__2*cos(varphi__2))^2+(R__1*sin(varphi__1)-R__2*sin(varphi__2))^2+(z__1-z__2)^2),
[z__1 = z1__max-dz .. z1__max, varphi__1 = 0 .. 2*Pi,
z__2 = z2__min .. z2__min + dz, varphi__2 = 0 .. 2*Pi]);
 

`+`(`-`(`/`(`*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(`^`(r__min, 2)))), `*`(`^`(`+`(`*`(`^`(`+`(`*`(R__1, `*`(cos(varphi__1))), `-`(`*`(R__2, `*`(cos(varphi__2))))), 2)), `*`(`^`(`+`(`*`(R__1, ... (86)
 

 

Uwss := -2*Pi/c^2*Int((j__surf__1*j__surf__2*r__min*r__min)/
sqrt(R__1^2+R__2^2-2*R__1*R__2*cos(varphi__1)+(z__1-z__2)^2),
[z__1 = z1__max-dz .. z1__max, varphi__1 = 0 .. 2*Pi,
z__2 = z2__min .. z2__min+dz]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(`^`(r__min, 2)))), `*`(`^`(`+`(`*`(`^`(R__1, 2)), `*`(`^`(R__2, 2)), `-`(`*`(2, `*`(R__1, `*`(R__2, `*`(cos(varphi__1)))))), ... (87)
 

 

Суммарная потенциальная функция взаимодействия токов проволочной обмотки на обоих поверхностях (внутренней и внешней) обоих цилиндров 

Uwss4 :=
+ subs(R__1=r__max, R__2=r__max, Uwss)
+ subs(R__1=r__min, R__2=r__min, Uwss)
- subs(R__1=r__max, R__2=r__min, Uwss)
- subs(R__1=r__min, R__2=r__max, Uwss):
 

 

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

Uwtt := -1/(c^2)*Int(j__surf__1*j__surf__2*r__min*r__min*cos(varphi__1-varphi__2) /
sqrt(r__1^2 + r__2^2 - 2 * r__1 * r__2 * (cos(varphi__1) * cos(varphi__2) + sin(varphi__1)*sin(varphi__2)) + (z__1 - z__2)^2),
[varphi__1 = 0 .. 2*Pi,   varphi__2 = 0 .. 2*Pi,
r__1 = r__min .. r__max, r__2 = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(`^`(r__min, 2), `*`(cos(`+`(varphi__1, `-`(varphi__2))))))), `*`(`^`(`+`(`*`(`^`(r__1, 2)), `*`(`^`(r__2, 2)), `-`(`*`(2, `*`(r__1, `*`(r__2... (88)
 

 

Uwtt := -2*Pi/c^2*Int((j__surf__1*j__surf__2*r__min*r__min)*cos(varphi__1)/
sqrt(r__1^2+r__2^2-2*r__1*r__2*cos(varphi__1)+(z__1-z__2)^2),
[varphi__1 = 0 .. 2*Pi, r__1 = r__min .. r__max,
r__2 = r__min .. r__max]);
 

`+`(`-`(`/`(`*`(2, `*`(Pi, `*`(Int(`/`(`*`(j__surf__1, `*`(j__surf__2, `*`(`^`(r__min, 2), `*`(cos(varphi__1))))), `*`(`^`(`+`(`*`(`^`(r__1, 2)), `*`(`^`(r__2, 2)), `-`(`*`(2, `*`(cos(varphi__1), `*`(... (89)
 

 

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

Uwtt4 :=
- subs(z__1=z1__max,    z__2=z2__min, Uwtt)
+ subs(z__1=z1__max-dz, z__2=z2__min, Uwtt)
+ subs(z__1=z1__max,    z__2=z2__min+dz, Uwtt)
- subs(z__1=z1__max-dz, z__2=z2__min+dz, Uwtt):
 

 

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

Uw := `+`(Uwss4, Uwtt4); -1 

 

Сила действующая на цилиндры. С индексом 1 сила действующая на левый цилиндр, с индексом 2 сила действующая на правый 

 

Полная сила 

Fw__1 := `+`(`-`(diff(Uw, z1__max))); -1 

Fw__2 := `+`(`-`(diff(Uw, z2__min))); -1 

 

Сила  взаимодействия поверхностных токов проволочной обмотки 

Fwss4__1 := `+`(`-`(diff(Uwss4, z1__max))); -1 

Fwss4__2 := `+`(`-`(diff(Uwss4, z2__min))); -1 

 

Сила взаимодействия торцевых токов проволочной обмотки 

Fwtt4__1 := `+`(`-`(diff(Uwtt4, z1__max))); -1 

Fwtt4__2 := `+`(`-`(diff(Uwtt4, z2__min))); -1 

 

Зададим точность вычислений при численном интегрировании в 10 значащих цифр 

 

Digits := 10; -1 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__1)) 

1.841978748 (90)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__2)) 

-1.841978748 (91)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__1)) 

-1.841978748 (92)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__2)) 

1.841978748 (93)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.46e-9 (94)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__2)) 

0.46e-9 (95)
 

Сила, действующая на первую (левую) идеально выполненную на цилиндре со сверлением тороидального вида обмотку в зависимости от расстояния: 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.83e-9 (96)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.24e-9 (97)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.46e-9 (98)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.110e-8 (99)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

 

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

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Uw)) 

-0.2e-7 (100)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Uw)) 

0.87e-9 (101)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Uw)) 

-0.99e-9 (102)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Uw)) 

-0.40e-9 (103)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Uw)) 

0.146e-8 (104)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Uw)) 

 

Зададим точность вычислений при численном интегрировании в 11 значащих цифр 

 

Digits := 11; -1 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__1)) 

1.8419787481 (105)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__2)) 

-1.8419787480 (106)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__1)) 

-1.8419787481 (107)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__2)) 

1.8419787481 (108)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.42e-10 (109)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__2)) 

0.58e-10 (110)
 

Сила, действующая на первую (левую) идеально выполненную на цилиндре со сверлением тороидального вида обмотку в зависимости от расстояния: 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.22e-10 (111)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.28e-10 (112)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.42e-10 (113)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.81e-10 (114)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

Warning,  computation interrupted
 

 

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

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.28e-10, -.4959436445, .49594364453] (115)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.2e-11, -.5284210977, .52842109770] (116)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[-0.54e-10, -.5637086797, .56370867965] (117)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.141e-9, -.6023044686, .60230446874] (118)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[-0.97e-10, -.6406110043, .64061100420] (119)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

 

 

Зададим точность вычислений при численном интегрировании в 12 значащих цифр 

 

Digits := 12; -1 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__1)) 

1.84197874801 (120)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__2)) 

-1.84197874801 (121)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__1)) 

-1.84197874802 (122)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__2)) 

1.84197874802 (123)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.94e-11 (124)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__2)) 

0.94e-11 (125)
 

Сила, действующая на первую (левую) идеально выполненную на цилиндре со сверлением тороидального вида обмотку в зависимости от расстояния: 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.34e-11 (126)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.46e-11 (127)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.94e-11 (128)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.153e-10 (129)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

Warning,  computation interrupted
 

 

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

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[-0.81e-11, -.49594364453, .495943644522] (130)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.3e-12, -.52842109768, .528421097680] (131)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.38e-11, -.56370867966, .563708679664] (132)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.33e-11, -.60230446871, .602304468713] (133)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

Warning,  computation interrupted
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

Warning,  computation interrupted
 

 

 

Зададим точность вычислений при численном интегрировании в 14 значащих цифр 

 

Digits := 14; -1 

 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__1)) 

1.8419787480146 (134)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwss4__2)) 

-1.8419787480145 (135)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__1)) 

Warning,  computation interrupted
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fwtt4__2)) 

1.84197874802 (136)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.94e-11 (137)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = Z2__min, z1__max = Z1__max, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__2)) 

0.94e-11 (138)
 

Сила, действующая на первую (левую) идеально выполненную на цилиндре со сверлением тороидального вида обмотку в зависимости от расстояния: 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.34e-11 (139)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.46e-11 (140)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

-0.94e-11 (141)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

0.153e-10 (142)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, Fw__1)) 

Warning,  computation interrupted
 

 

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

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.4e-1, z1__max = -0.4e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[-0.81e-11, -.49594364453, .495943644522] (143)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.3e-1, z1__max = -0.3e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.3e-12, -.52842109768, .528421097680] (144)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.2e-1, z1__max = -0.2e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.38e-11, -.56370867966, .563708679664] (145)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-1, z1__max = -0.1e-1, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

[0.33e-11, -.60230446871, .602304468713] (146)
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-2, z1__max = -0.1e-2, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

Warning,  computation interrupted
 

evalf(subs(r__min = R__min, r__max = R__max, z2__min = 0.1e-3, z1__max = -0.1e-3, dz = DZ, j__surf__1 = 1, j__surf__2 = 1, c = 1, [Uw, Uwss4, Uwtt4])) 

Warning,  computation interrupted
 

 

 

 

 

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

 

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

 

 

 

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

Стена

 

© liquidcrystalosmos