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

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

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

Содержание:

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

А.Ю. Дроздов

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

 

Вывод уравнения движения сплошной среды в координатах Эйлера 

 

А.Ю.Дроздов 

 

За основу нашего вывода берём формулу (7) главы 2.9 теории упругости Новацкого, стр. 64. 

 

`*`(rho, `*`(diff(v[i], t))) = Physics:-Vectors:-`+`(X[i], sum(diff(sigma[ji], xi[i]), j = 1 .. 3)) 

 

В левой части материальная (местная) производная скорости материальной частицы по времени. 

 

Для преобразования материальной производной используем уравнение (5) главы 2.8 той же книги, стр. 60 

 

diff(v[i](xi, t), t) = Physics:-Vectors:-`+`(diff(v[i](xi, t), t), sum(`*`(v[j](xi, t), `*`(diff(v[i](xi, t), xi[j]))), j = 1 .. 3)) 

 

Здесь первый член правой части описывает изменение во времени функции v[i](xi, t) при постоянном ξ т.е. при неизменном положении в пространстве, а не для одной и той же материальной частицы. Второе слагаемое правой части называется конвективной производной. Здесь нужно иметь в виду, что формула (5) главы 2.8 Новацким получена "ограничиваясь величинами первого порядка малости по dt" разложения Тейлора от  

 

`/`(`*`(Physics:-Vectors:-`+`(v[i](Physics:-Vectors:-`+`(xi[j], `*`(v[j], `*`(dt))), Physics:-Vectors:-`+`(t, dt)), `+`(`-`(v[i](xi[j], t))))), `*`(dt)) 

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

 

О скорости материальной частицы в описании Эйлера Новацкий пишет следующее: "В этом описании движение тела представляестя векторным полем v[i](xi[1], xi[2], xi[3], t), связанным с мгновенным положением материальной частицы." Однако, к сожалению, в работе Новацкого отсутсвует взаимосвязь скорости со смещением в описании Эйлера. Попробуем восполнить этот пробел. Для этого применим рассуждение Новацкого о вычислении материальной производной такой характеристики материальной среды как начальная координата частицы среды x[i](xi[1], xi[2], xi[3], t) 

 

 

`and`(v[i](xi[1], xi[2], xi[3], t) = diff(x[i](xi[1], xi[2], xi[3], t), t), diff(x[i](xi[1], xi[2], xi[3], t), t) = Physics:-Vectors:-`+`(diff(x[i](xi[1], xi[2], xi[3], t), t), sum(`*`(v[j](xi[1], xi[... 

Первое слагаемое правой части представляет собой изменение во времени функции x[i](xi[1], xi[2], xi[3], t) (начальной координаты частиц среды) при неизменном положении в пространстве, а не для одной и той же материальной частицы. Но поскольку мы выводим уравнение движения сплошной среды, в основе которого лежит второй закон Ньютона, нам необходимо изменение во времени координат частиц среды именно для одной и той же материальной частицы. Именно в связи с этим возникает необходимость второго слагаемого: материальной (конвективной, субстанционной) производной. 

 

Переносим конвективную производную в левую часть 

 

Physics:-Vectors:-`+`(v[i](xi[1], xi[2], xi[3], t), `+`(`-`(sum(`*`(v[j](xi[1], xi[2], xi[3], t), `*`(diff(x[i](xi[1], xi[2], xi[3], t), xi[j]))), j = 1 .. 3)))) = diff(x[i](xi[1], xi[2], xi[3], t), t... 

 

 

Раскрываем знак суммы 

 

 

Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(v[i](xi[1], xi[2], xi[3], t), `+`(`-`(`*`(v[1](xi[1], xi[2], xi[3], t), `*`(diff(x[i](xi[1], xi[2], xi[3], t), xi[1])))))), `+`(`-`(`*... 

 

Раскрывая индекс i, переписываем в форме системы уравнений 

 

 

Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(v[1](xi[1], xi[2], xi[3], t), `+`(`-`(`*`(v[1](xi[1], xi[2], xi[3], t), `*`(diff(x[1](xi[1], xi[2], xi[3], t), xi[1])))))), `+`(`-`(`*... 

 

Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(v[2](xi[1], xi[2], xi[3], t), `+`(`-`(`*`(v[1](xi[1], xi[2], xi[3], t), `*`(diff(x[2](xi[1], xi[2], xi[3], t), xi[1])))))), `+`(`-`(`*... 

 

Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(v[3](xi[1], xi[2], xi[3], t), `+`(`-`(`*`(v[1](xi[1], xi[2], xi[3], t), `*`(diff(x[3](xi[1], xi[2], xi[3], t), xi[1])))))), `+`(`-`(`*... 

 

В матричной форме  

 

`*`(rtable(1 .. 3, 1 .. 3, [[`+`(1, `-`(diff(x[1](xi[1], xi[2], xi[3], t), xi[1]))), `+`(`-`(diff(x[1](xi[1], xi[2], xi[3], t), xi[2]))), `+`(`-`(diff(x[1](xi[1], xi[2], xi[3], t), xi[3])))], [`+`(`-`... 

 

 

Выразим координату начальной точки среды через перемещения 

 

Для описания Эйлера 

 

x[i](xi[1], xi[2], xi[3], t) = Physics:-Vectors:-`+`(xi[i], `+`(`-`(u[1](xi[1], xi[2], xi[3], t)))) 

 

Дифференцируем ее по координате Эйлера 

 

diff(x[i](xi[1], xi[2], xi[3], t), xi[j]) = Physics:-Vectors:-`+`(delta[ij], `+`(`-`(diff(u[i](xi[1], xi[2], xi[3], t), xi[j])))) 

 

Дифференцируем по времени 

diff(x[i](xi[1], xi[2], xi[3], t), t) = `+`(`-`(diff(u[i](xi[1], xi[2], xi[3], t), t))) 

 

Подставляя в матричную систему уравнений, имеем 

 

`*`(rtable(1 .. 3, 1 .. 3, [[diff(u[1](xi[1], xi[2], xi[3], t), xi[1]), diff(u[1](xi[1], xi[2], xi[3], t), xi[2]), diff(u[1](xi[1], xi[2], xi[3], t), xi[3])], [diff(u[2](xi[1], xi[2], xi[3], t), xi[1]... 

 

Решая систему, получаем выражение для скорости материальных частиц в зависимости от смещения в описании Эйлера 

 

 

restart; -1; with(linalg); -1 

 

 

vvv := linsolve(rtable(1 .. 3, 1 .. 3, [[diff(u[1](xi[1], xi[2], xi[3], t), xi[1]), diff(u[1](xi[1], xi[2], xi[3], t), xi[2]), diff(u[1](xi[1], xi[2], xi[3], t), xi[3])], [diff(u[2](xi[1], xi[2], xi[3... 

v[1](xi[1], xi[2], xi[3], t) := vvv[1]; -1 

v[2](xi[1], xi[2], xi[3], t) := vvv[2]; -1 

v[3](xi[1], xi[2], xi[3], t) := vvv[3]; -1 

 

Решение в общем виде, полученное Методом Крамера 

 

v[1](xi[1], xi[2], xi[3], t); -1v[2](xi[1], xi[2], xi[3], t); -1v[3](xi[1], xi[2], xi[3], t); -1 

Проблема полученных формул, кроме их громоздкости, однако та, что если перемещения по одной или по двум координатам равны нулю, например в случае плоской волны (продольной или поперечной) то детерминант матрицы diff(u__i, xi[j]) будет равен нулю, что приведёт к нулю в знаменателе. Поэтому в дальнной работе ниже представлена процедура вычисления скорости материальной частицы

Приступаем к непосредственному выводу уравнения движения
 

 

 

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

[`&x`, `+`, `.`, ChangeBasis, ChangeCoordinates, Component, Curl, DirectionalDiff, Divergence, Gradient, Identify, Laplacian, Nabla, Norm, Setup, diff] (1)
 

 

координаты Эйлера 

 

xi := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(xi__i, `*`(_i)), `*`(xi__j, `*`(_j))), `*`(xi__k, `*`(_k))); -1; xi 

`+`(`*`(_i, `*`(xi__i)), `*`(_j, `*`(xi__j)), `*`(_k, `*`(xi__k))) (2)
 

вектор перемещения 

 

u := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(u__i(xi__i, xi__j, xi__k, t), `*`(_i)), `*`(u__j(xi__i, xi__j, xi__k, t), `*`(_j))), `*`(u__k(xi__i, xi__j, xi__k, t), `*`(_k))); -1; u 

`+`(`*`(u__i(xi__i, xi__j, xi__k, t), `*`(_i)), `*`(u__j(xi__i, xi__j, xi__k, t), `*`(_j)), `*`(u__k(xi__i, xi__j, xi__k, t), `*`(_k))) (3)
 

 

 

 

 

 

Заполняем матрицу производной смещения по координатам Эйлера 

 

> `du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
`du_dξ` := Matrix(3); -1; for i to 3 do for j to 3 do `du_dξ`[i, j] := diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)) end do end do; -1; `du_dξ`
 

Typesetting:-mprintslash([Matrix([[diff(u__i(xi__i, xi__j, xi__k, t), xi__i), diff(u__i(xi__i, xi__j, xi__k, t), xi__j), diff(u__i(xi__i, xi__j, xi__k, t), xi__k)], [diff(u__j(xi__i, xi__j, xi__k, t),... (4)
 

 

 

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

 

minus_du_dt := Vector(3); -1; for i to 3 do minus_du_dt[i] := `+`(`-`(diff(Physics:-Vectors:-Component(u, i), t))) end do; -1; minus_du_dt 

Typesetting:-mprintslash([Vector[column]([[`+`(`-`(diff(u__i(xi__i, xi__j, xi__k, t), t)))], [`+`(`-`(diff(u__j(xi__i, xi__j, xi__k, t), t)))], [`+`(`-`(diff(u__k(xi__i, xi__j, xi__k, t), t)))]])], [V... (5)
 

 

 

 

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

 

calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
calc_material_vel := proc (`du_dξ`, minus_du_dt) description
 

 

 

v := calc_material_vel(`du_dξ`, minus_du_dt); -1 

 


В общем случае
 

 

 

 

Для конкретного случая из общего выражения для скорости  

 

LinearAlgebra:-LinearSolve(rtable(1 .. 3, 1 .. 3, [[diff(u__i(xi__i, xi__j, xi__k, t), xi__i), diff(u__i(xi__i, xi__j, xi__k, t), xi__j), diff(u__i(xi__i, xi__j, xi__k, t), xi__k)], [diff(u__j(xi__i, ... 

 

 

 

Скорость среды в координатах Эйлера для плоской волны вычисляем более упрощённо 

 

 

Например. 

 

 

Для случая плоской продольной волны, распространяющейся вдоль оси X,  получаем 

 

LinearAlgebra:-LinearSolve(rtable(1 .. 3, 1 .. 3, [[diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 0, 0], [0, 0, 0], [0, 0, 0]], subtype = Matrix), rtable(1 .. 3, [`+`(`-`(diff(u__i(xi__i, xi__j, xi__k, t... 

 

`du_dξ_x_prodoln` := Matrix(3); -1; `du_dξ_x_prodoln`[1, 1] := diff(Physics:-Vectors:-Component(u, 1), Physics:-Vectors:-Component(xi, 1)); -1; `du_dξ_x_prodoln` 

Typesetting:-mprintslash([Matrix([[diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 0, 0], [0, 0, 0], [0, 0, 0]])], [Matrix(%id = 18446744074334804438)]) (6)
 

 

 

minus_du_dt_x_prodoln := Vector(3); -1; minus_du_dt_x_prodoln[1] := `+`(`-`(diff(Physics:-Vectors:-Component(u, 1), t))); -1; minus_du_dt_x_prodoln 

Typesetting:-mprintslash([Vector[column]([[`+`(`-`(diff(u__i(xi__i, xi__j, xi__k, t), t)))], [0], [0]])], [Vector[column](%id = 18446744074334806014)]) (7)
 

v_x_prodoln := calc_material_vel(`du_dξ_x_prodoln`, minus_du_dt_x_prodoln) 

Typesetting:-mprintslash([v_x_prodoln := Vector[column]([[`+`(`-`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t)), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i)))))], [0], [0]])], [Vector[column](%id =... (8)
 

 

 

 

 

 

Для случая плоской поперечной волны, распространяющейся вдоль X, колебания частиц среды в которой происходят вдоль оси Z 

 

 

LinearAlgebra:-LinearSolve(rtable(1 .. 3, 1 .. 3, [[0, 0, 0], [0, 0, 0], [diff(u__k(xi__i, xi__j, xi__k, t), xi__i), 0, 0]], subtype = Matrix), rtable(1 .. 3, [0, 0, `+`(`-`(diff(u__k(xi__i, xi__j, xi... 

 

`du_dξ_x_poperech_z` := Matrix(3); -1; `du_dξ_x_poperech_z`[3, 1] := diff(Physics:-Vectors:-Component(u, 3), Physics:-Vectors:-Component(xi, 1)); -1; `du_dξ_x_poperech_z` 

Typesetting:-mprintslash([Matrix([[0, 0, 0], [0, 0, 0], [diff(u__k(xi__i, xi__j, xi__k, t), xi__i), 0, 0]])], [Matrix(%id = 18446744074334811910)]) (9)
 

 

minus_du_dt_x_poperech_z := Vector(3); -1; minus_du_dt_x_poperech_z[3] := `+`(`-`(diff(Physics:-Vectors:-Component(u, 3), t))); -1; minus_du_dt_x_poperech_z 

Typesetting:-mprintslash([Vector[column]([[0], [0], [`+`(`-`(diff(u__k(xi__i, xi__j, xi__k, t), t)))]])], [Vector[column](%id = 18446744074334813470)]) (10)
 

v_x_poperech_z := calc_material_vel(`du_dξ_x_poperech_z`, minus_du_dt_x_poperech_z) 

Typesetting:-mprintslash([v_x_poperech_z := Vector[column]([[`+`(`-`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t)), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i)))))], [0], [0]])], [Vector[column](%i... (11)
 

 

А это пример поперечной волны, распространяющейся вдоль оси Y, колебания частиц среды, в которой происходят вдоль оси X 

calc_material_vel(rtable(1 .. 3, 1 .. 3, [[0, `+`(`-`(`*`(A, `*`(k, `*`(sin(`+`(`*`(k, `*`(xi__j)), `*`(omega, `*`(t)), delta))))))), 0], [0, 0, 0], [0, 0, 0]], subtype = Matrix), rtable(1 .. 3, [`*`(... 

Typesetting:-mprintslash([Vector[column]([[0], [`+`(`-`(`/`(`*`(omega), `*`(k))))], [0]])], [Vector[column](%id = 18446744074330508934)]) (12)
 

 

 

Объявляем матрицу для тензора Альманси 

 

 

> eta := Matrix(3, shape = symmetric); -1
 

> eta[1, 1] := eta__xx; -1; eta[2, 2] := eta__yy; -1; eta[3, 3] := eta__zz; -1
 

> eta[1, 2] := eta__xy; -1; eta[1, 3] := eta__xz; -1; eta[2, 3] := eta__yz; -1
 

 

 

> eta
 

Typesetting:-mprintslash([Matrix([[eta__xx, eta__xy, eta__xz], [eta__xy, eta__yy, eta__yz], [eta__xz, eta__yz, eta__zz]])], [Matrix(%id = 18446744074334753126)]) (13)
 

 

 

Символ Кронекера 

 

> `*`(assume, `*`(m, integer)); -1; assume(n, integer); -1; delta := proc (m, n) options operator, arrow; if m = n then 1 else 0 end if end proc; 1
 

Typesetting:-mprintslash([delta := proc (m, n) options operator, arrow; if m = n then 1 else 0 end if end proc], [proc (m, n) options operator, arrow; if m = n then 1 else 0 end if end proc]) (14)
 

 

 

 

Общее выражение для закона Гука - заполняем матрицу тензора напряжений
 

> sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
 

Typesetting:-mprintslash([Matrix([[`+`(`*`(lambda, `*`(`+`(eta__xx, eta__yy, eta__zz))), `*`(2, `*`(mu, `*`(eta__xx)))), `+`(`*`(2, `*`(mu, `*`(eta__xy)))), `+`(`*`(2, `*`(mu, `*`(eta__xz))))], [`+`(`... (15)
 

 

 

Заполняем матрицу тензора Альманси 

 

> for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
for i to 3 do for j to 3 do eta[i, j] := `+`(`*`(`/`(1, 2), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(Physics:-Vectors:-Component(u, i), Physics:-Vectors:-Component(xi, j)), diff(Physics:-V...
 

 

eta[1, 1] 

Typesetting:-mprintslash([`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__i, xi__j,... (16)
 

 

 

eta[1, 2] 

Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
(17)
 

 

eta[1, 3] 

Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
(18)
 

 

 

eta[2, 1] 

Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
(19)
 

 

eta[2, 2] 

Typesetting:-mprintslash([`+`(diff(u__j(xi__i, xi__j, xi__k, t), xi__j), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__i, xi__j,... (20)
 

 

eta[2, 3] 

Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
(21)
 

 

eta[3, 1] 

Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
(22)
 

 

eta[3, 2] 

Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
Typesetting:-mprintslash([`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi...
(23)
 

 

eta[3, 3] 

Typesetting:-mprintslash([`+`(diff(u__k(xi__i, xi__j, xi__k, t), xi__k), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__i, xi__j,... (24)
 

 

 

Определяем процедуру заполнения тензора Альманси 

 

fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description
fill_Almanci_tensor := proc (`du_dξ`) description

 

> fill_Almanci_tensor(`du_dξ`)
 

Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__j(xi__...
(25)
 

 

> fill_Almanci_tensor(`du_dξ_x_prodoln`)
 

Typesetting:-mprintslash([Matrix([[`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2))))), 0, 0], [0, 0, 0], [0, 0, 0]])], [Matrix(... (26)
 

 

> fill_Almanci_tensor(`du_dξ_x_poperech_z`)
 

Typesetting:-mprintslash([Matrix([[`+`(`-`(`*`(`/`(1, 2), `*`(`^`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i), 2))))), 0, `+`(`*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))))], [0, 0, 0],... (27)
 

 

 

 

В матрицу тензора напряжений подставляем тензор Альманси 

 

> sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
sigma := Matrix(3, shape = symmetric); -1; for i to 3 do for j to 3 do sigma[i, j] := Physics:-Vectors:-`+`(`*`(lambda, `*`(delta(i, j), `*`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(eta[1, 1], eta[...
 

 

sigma[1, 1] 

Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
(28)
 

 

sigma[1, 2] 

Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
(29)
 

 

sigma[1, 3] 

Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
(30)
 

 

sigma[2, 1] 

Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__j))), `*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
(31)
 

 

sigma[2, 2] 

Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
(32)
 

sigma[2, 3] 

Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), ...
Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), ...
(33)
 

 

sigma[3, 1] 

Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i))), `-`(`*`(`/`(1, 2), ...
(34)
 

 

sigma[3, 2] 

Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), ...
Typesetting:-mprintslash([`+`(`*`(2, `*`(mu, `*`(`+`(`*`(`/`(1, 2), `*`(diff(u__j(xi__i, xi__j, xi__k, t), xi__k))), `*`(`/`(1, 2), `*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__j))), `-`(`*`(`/`(1, 2), ...
(35)
 

 

sigma[3, 3] 

Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
Typesetting:-mprintslash([`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2)))), `-`(`*`(`/`(1, 2), `*`(`^`(dif...
(36)
 

 

 

 

 

Определяем процедуру вычисления тензора напряжений на основе тензора Альманси 

 

fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
fill_stress_tensor_with_Almanci_tensor := proc (eta) description
 

 

 

 

fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ`)); -1 

 

 

fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_prodoln`)) 

Typesetting:-mprintslash([Matrix([[`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2))))))), `*`(2, `*`(mu, `*`...
Typesetting:-mprintslash([Matrix([[`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2))))))), `*`(2, `*`(mu, `*`...
Typesetting:-mprintslash([Matrix([[`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `-`(`*`(`/`(1, 2), `*`(`^`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), 2))))))), `*`(2, `*`(mu, `*`...
(37)
 

 

fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_poperech_z`)) 

Typesetting:-mprintslash([Matrix([[`+`(`-`(`*`(`/`(1, 2), `*`(lambda, `*`(`^`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i), 2))))), `-`(`*`(mu, `*`(`^`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i), 2))))), ... (38)
 

 

 

 


Сила, действующая на элемент объёма
 

 

 

> F := Vector(3); -1; F[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(sigma[1, 1], Physics:-Vectors:-Component(xi, 1)), diff(sigma[1, 2], Physics:-Vectors:-Component(xi, 2))), diff(sigma[1, 3],...
F := Vector(3); -1; F[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(sigma[1, 1], Physics:-Vectors:-Component(xi, 1)), diff(sigma[1, 2], Physics:-Vectors:-Component(xi, 2))), diff(sigma[1, 3],...
F := Vector(3); -1; F[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(sigma[1, 1], Physics:-Vectors:-Component(xi, 1)), diff(sigma[1, 2], Physics:-Vectors:-Component(xi, 2))), diff(sigma[1, 3],...
F := Vector(3); -1; F[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(sigma[1, 1], Physics:-Vectors:-Component(xi, 1)), diff(sigma[1, 2], Physics:-Vectors:-Component(xi, 2))), diff(sigma[1, 3],...
F := Vector(3); -1; F[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(sigma[1, 1], Physics:-Vectors:-Component(xi, 1)), diff(sigma[1, 2], Physics:-Vectors:-Component(xi, 2))), diff(sigma[1, 3],...
F := Vector(3); -1; F[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(diff(sigma[1, 1], Physics:-Vectors:-Component(xi, 1)), diff(sigma[1, 2], Physics:-Vectors:-Component(xi, 2))), diff(sigma[1, 3],...
 

 

F_ := simplify(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(F[1], `*`(_i)), `*`(F[2], `*`(_j))), `*`(F[3], `*`(_k)))); -1 

 

Определяем процедуру вычисления силы, действующей на элемент объёма, исходя из тензора напряжений 

 

calc_force := proc (sigma) description
calc_force := proc (sigma) description
calc_force := proc (sigma) description
calc_force := proc (sigma) description
calc_force := proc (sigma) description
calc_force := proc (sigma) description
calc_force := proc (sigma) description
 

 

calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_prodoln`))) 

Typesetting:-mprintslash([Vector[column]([[`+`(`*`(lambda, `*`(`+`(diff(u__i(xi__i, xi__j, xi__k, t), `$`(xi__i, 2)), `-`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), xi__i), `*`(diff(u__i(xi__i, xi__j, xi_... (39)
 

 

calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_poperech_z`))) 

Typesetting:-mprintslash([Vector[column]([[`+`(`-`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), xi__i), `*`(diff(u__k(xi__i, xi__j, xi__k, t), `$`(xi__i, 2)), `*`(lambda)))), `-`(`*`(2, `*`(diff(u__k(xi__i,... (40)
 

 

Уравнение движения с учётом конвективной производной покомпонентно 

 

Eq := Vector(3); -1; Eq[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(rho, `*`(diff(vel_x, t))), `*`(rho, `*`(vel_x, `*`(diff(vel_x, xi__i))))), `*`(rho, `*`(vel_y, `*`(d...
Eq := Vector(3); -1; Eq[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(rho, `*`(diff(vel_x, t))), `*`(rho, `*`(vel_x, `*`(diff(vel_x, xi__i))))), `*`(rho, `*`(vel_y, `*`(d...
Eq := Vector(3); -1; Eq[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(rho, `*`(diff(vel_x, t))), `*`(rho, `*`(vel_x, `*`(diff(vel_x, xi__i))))), `*`(rho, `*`(vel_y, `*`(d...
Eq := Vector(3); -1; Eq[1] := Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(rho, `*`(diff(vel_x, t))), `*`(rho, `*`(vel_x, `*`(diff(vel_x, xi__i))))), `*`(rho, `*`(vel_y, `*`(d...
 

 

 

Введём функцию плотности 

rho__f := rho__m(xi__i, xi__j, xi__k, t) 

Typesetting:-mprintslash([rho__f := rho__m(xi__i, xi__j, xi__k, t)], [rho__m(xi__i, xi__j, xi__k, t)]) (41)
 

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

 

motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
motion_equation := proc (rho, v_material, F) description
 

 

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

 

Eq_x_prodoln := motion_equation(rho__f, calc_material_vel(`du_dξ_x_prodoln`, minus_du_dt_x_prodoln), calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_prodoln`))))
Eq_x_prodoln := motion_equation(rho__f, calc_material_vel(`du_dξ_x_prodoln`, minus_du_dt_x_prodoln), calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_prodoln`))))
Eq_x_prodoln := motion_equation(rho__f, calc_material_vel(`du_dξ_x_prodoln`, minus_du_dt_x_prodoln), calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_prodoln`))))
 

Typesetting:-mprintslash([Eq_x_prodoln := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t), `*`(diff(u__i(xi__i, xi__j, xi__k, t), t, xi__...
Typesetting:-mprintslash([Eq_x_prodoln := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t), `*`(diff(u__i(xi__i, xi__j, xi__k, t), t, xi__...
Typesetting:-mprintslash([Eq_x_prodoln := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t), `*`(diff(u__i(xi__i, xi__j, xi__k, t), t, xi__...
Typesetting:-mprintslash([Eq_x_prodoln := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t), `*`(diff(u__i(xi__i, xi__j, xi__k, t), t, xi__...
Typesetting:-mprintslash([Eq_x_prodoln := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t), `*`(diff(u__i(xi__i, xi__j, xi__k, t), t, xi__...
Typesetting:-mprintslash([Eq_x_prodoln := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t), `*`(diff(u__i(xi__i, xi__j, xi__k, t), t, xi__...
Typesetting:-mprintslash([Eq_x_prodoln := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__i(xi__i, xi__j, xi__k, t), t), `*`(diff(u__i(xi__i, xi__j, xi__k, t), t, xi__...
(42)
 

 

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

 

Eq_x_poperech_z := motion_equation(rho__f, calc_material_vel(`du_dξ_x_poperech_z`, minus_du_dt_x_poperech_z), calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_poper...
Eq_x_poperech_z := motion_equation(rho__f, calc_material_vel(`du_dξ_x_poperech_z`, minus_du_dt_x_poperech_z), calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_poper...
Eq_x_poperech_z := motion_equation(rho__f, calc_material_vel(`du_dξ_x_poperech_z`, minus_du_dt_x_poperech_z), calc_force(fill_stress_tensor_with_Almanci_tensor(fill_Almanci_tensor(`du_dξ_x_poper...
 

Typesetting:-mprintslash([Eq_x_poperech_z := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t), `*`(diff(u__k(xi__i, xi__j, xi__k, t), t, x...
Typesetting:-mprintslash([Eq_x_poperech_z := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t), `*`(diff(u__k(xi__i, xi__j, xi__k, t), t, x...
Typesetting:-mprintslash([Eq_x_poperech_z := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t), `*`(diff(u__k(xi__i, xi__j, xi__k, t), t, x...
Typesetting:-mprintslash([Eq_x_poperech_z := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t), `*`(diff(u__k(xi__i, xi__j, xi__k, t), t, x...
Typesetting:-mprintslash([Eq_x_poperech_z := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t), `*`(diff(u__k(xi__i, xi__j, xi__k, t), t, x...
Typesetting:-mprintslash([Eq_x_poperech_z := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t), `*`(diff(u__k(xi__i, xi__j, xi__k, t), t, x...
Typesetting:-mprintslash([Eq_x_poperech_z := Vector[column]([[`+`(`*`(rho__m(xi__i, xi__j, xi__k, t), `*`(`+`(`/`(`*`(diff(u__k(xi__i, xi__j, xi__k, t), t), `*`(diff(u__k(xi__i, xi__j, xi__k, t), t, x...
(43)
 

 

 

Полученные уравнения носят явно нелинейный характер 

 

Чтобы в этом убедиться попробуем подставить синусоиду в систему уравнений для плоской продольной волны 

 

simplify(subs(u__i(xi__i, xi__j, xi__k, t) = `*`(A, `*`(cos(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(omega, `*`(t)), `*`(k, `*`(xi__i))), delta)))), Eq_x_prodoln)) 

Typesetting:-mprintslash([Vector[column]([[0 = `+`(`-`(`*`(2, `*`(cos(`+`(`*`(k, `*`(xi__i)), `*`(omega, `*`(t)), delta)), `*`(`+`(mu, `*`(`/`(1, 2), `*`(lambda))), `*`(A, `*`(`+`(`*`(A, `*`(k, `*`(si... (44)
 

 

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

 

 

simplify(subs(u__k(xi__i, xi__j, xi__k, t) = `*`(A, `*`(cos(Physics:-Vectors:-`+`(Physics:-Vectors:-`+`(`*`(omega, `*`(t)), `*`(k, `*`(xi__i))), delta)))), Eq_x_poperech_z)) 

Typesetting:-mprintslash([Vector[column]([[0 = `+`(`-`(`*`(`^`(A, 2), `*`(sin(`+`(`*`(k, `*`(xi__i)), `*`(omega, `*`(t)), delta)), `*`(cos(`+`(`*`(k, `*`(xi__i)), `*`(omega, `*`(t)), delta)), `*`(`^`(... (45)
 

 

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

 

 

 

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

Стена

 

© liquidcrystalosmos