Перейти к содержанию

Файл:Diatomic chain.gif

Содержимое страницы недоступно на других языках.
Материал из Wikivoyage

Diatomic_chain.gif(768 × 502 пкс, размер файла: 1,43 МБ, MIME-тип: image/gif, закольцованный, 51 фрейм, 5,1 с)

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

Краткое описание

Описание
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 CC-Zero Этот файл доступен на условиях Creative Commons CC0 1.0 Универсальной передачи в общественное достояние (Universal Public Domain Dedication).
Лица, связанные с работой над этим произведением, решили передать данное произведение в общественное достояние, отказавшись от всех прав на произведение по всему миру в рамках закона об авторских правах (а также связанных и смежных прав), в той степени, которую допускает закон. Вы можете копировать, изменять, распространять, исполнять данное произведение в любых целях, в том числе в коммерческих, без получения на это разрешения автора.

Краткие подписи

Добавьте однострочное описание того, что собой представляет этот файл
Oscillations of the diatomic chain at different frequencies.

Элементы, изображённые на этом файле

изображённый объект

У этого свойства есть некоторое значение без элемента в

image/gif

История файла

Нажмите на дату/время, чтобы увидеть версию файла от того времени.

Дата/времяМиниатюраРазмерыУчастникПримечание
текущий11:35, 30 марта 2023Миниатюра для версии от 11:35, 30 марта 2023768 × 502 (1,43 МБ)BertoUploaded own work with UploadWizard

Нет страниц, использующих этот файл.

Глобальное использование файла

Данный файл используется в следующих вики:

  • Использование в en.wikipedia.org