Файл:Diatomic chain.gif
Содержимое страницы недоступно на других языках.
Материал из Wikivoyage
Diatomic_chain.gif (768 × 502 пкс, размер файла: 1,43 МБ, MIME-тип: image/gif, закольцованный, 51 фрейм, 5,1 с)
Этот файл из на Викискладе и может использоваться в других проектах. Информация с его страницы описания приведена ниже.
Краткое описание
ОписаниеDiatomic chain.gif |
English: For single frequency oscillation of an infinite chain of two alternate masses connected by identical springs (diatomic chain), the relative phase of oscillation of adjacent masses will depend non-linearly with frequency, resulting in travelling or stationary waves. |
Дата | |
Источник | https://twitter.com/j_bertolotti/status/1640649301603885056 |
Автор | Jacopo Bertolotti |
Права (Повторное использование этого файла) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 13.1 code
a = 1; k = 1; m1 = 1; m2 = 3/2; \[Mu] = (1/m1 + 1/m2)^-1;
\[Omega][q_] := {Sqrt[k/\[Mu] (1 - Sqrt[1 - (4 \[Mu]^2 Sin[q a]^2)/(m1 m2)])], Sqrt[k/\[Mu] (1 + Sqrt[1 - (4 \[Mu]^2 Sin[q a]^2)/(m1 m2)])]};
\[Omega]list = FullSimplify[{0, 1/4 \[Omega][\[Pi]/(2 a)][[1]], 1/2 \[Omega][\[Pi]/(2 a)][[1]], 3/4 \[Omega][\[Pi]/(2 a)][[1]], \[Omega][\[Pi]/(2 a)][[1]], \[Omega][\[Pi]/(2 a)][[2]], Mean[{\[Omega][\[Pi]/(2 a)][[2]], \[Omega][0][[2]]}], \[Omega][0][[2]]}]
qlist = Chop[ DeleteCases[Join[Max /@ (q /. Table[Chop@NSolve[\[Omega][q][[1]] == \[Omega]list[[j]], q ], {j, 1, Length[\[Omega]list]}]), Max /@ (q /. Table[Chop@NSolve[\[Omega][q][[2]] == \[Omega]list[[j]], q], {j, 1, Length[\[Omega]list]}]) ], q], 10^-6] /. {C[1] -> 0}
amplitude = 0.04;
U1[j_] := If[\[Omega]list[[j]] <= \[Omega][\[Pi]/(2 a)][[1]], amplitude*(((2 k)/m1 Cos[qlist[[j]]])/((2 k)/m1 - \[Omega]list[[j]]^2)), amplitude];
U2[j_] := If[\[Omega]list[[j]] <= \[Omega][\[Pi]/(2 a)][[1]], amplitude, amplitude*(((2 k)/m1 Cos[qlist[[j]]])/((2 k)/m1 - \[Omega]list[[j]]^2))^-1];
frames = Table[
Show[
Plot[\[Omega][q], {q, 0, \[Pi]/(2 a)}, PlotRange -> {{-\[Pi]/2, \[Pi]/2}, {-0.1, 2}}, PlotStyle -> {Black, Thickness[0.006]}, Ticks -> None, AxesLabel -> {"k", "\[Omega]"}, LabelStyle -> {Black, Bold, FontSize -> 20}, AxesStyle -> Directive[Black, Thickness[0.003]], ImageSize -> Large]
,
Graphics[{
Table[{Red, Thick, Line[{{-\[Pi], \[Omega]list[[j]]}, {\[Pi], \[Omega]list[[j]]}}], Black, PointSize[0.007]
,
Point[Table[{\[Pi]/2 (n/50 - 1), U1[j]*Sin[qlist[[j]] 2 a n - \[Omega]list[[j]] t] + \[Omega]list[[j]]}, {n, 0, 50, 1}]]
, Gray, PointSize[0.008], Point[Table[{\[Pi]/2 ((n + 0.5)/50 - 1), U2[j]*Sin[qlist[[j]] (a + 2 a n) - \[Omega]list[[j]] t] + \[Omega]list[[j]]}, {n, 0, 49, 1}]]
}, {j, 1, Length[\[Omega]list]}]
}]
]
, {t, 0, (2 \[Pi])/\[Omega]list[[2]], (2 \[Pi])/(50*\[Omega]list[[2]])}];
ListAnimate[frames]
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен на условиях Creative Commons CC0 1.0 Универсальной передачи в общественное достояние (Universal Public Domain Dedication). | |
Лица, связанные с работой над этим произведением, решили передать данное произведение в общественное достояние, отказавшись от всех прав на произведение по всему миру в рамках закона об авторских правах (а также связанных и смежных прав), в той степени, которую допускает закон. Вы можете копировать, изменять, распространять, исполнять данное произведение в любых целях, в том числе в коммерческих, без получения на это разрешения автора.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
28 марта 2023
image/gif
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 11:35, 30 марта 2023 | 768 × 502 (1,43 МБ) | Berto | Uploaded own work with UploadWizard |
Использование файла
Нет страниц, использующих этот файл.
Глобальное использование файла
Данный файл используется в следующих вики:
- Использование в en.wikipedia.org