у меня периодический потенциал
Но я начал с который имел форму . Что мне не хватает? Как правильно найти коэффициенты Фурье численно с использованием DFT (можно использовать метод быстрого преобразования Фурье в Matlab)?
Справку по уравнению матрицы пространства Фурье Кронига-Пеннея можно найти здесь http://www.physics.buffalo.edu/phy410-505/topic5/index.html .
Во-первых, несколько незначительный момент заключается в том, что на самом деле дает список из 10001 точки, а не 10000 точек. Я предполагаю, что вы действительно хотели сказать .
Во-вторых, вы говорите, что
Итак, самый простой способ интерпретировать ДПФ состоит в следующем. Обратите внимание, что запись (где ) вектора можно записать как
В качестве числового примера в Mathematica:
V0 = 10;
V1 = 2 + I;
V2 = 3 + 2 I;
V3 = 4;
Vm1 = 2 - I;
Vm2 = 3 - 2 I;
Vm3 = 4;
V = Chop@Table[
Exp[I 2 \[Pi] 1/a x] V1 + Exp[I 2 \[Pi] 2/a x] V2 +
Exp[I 2 \[Pi] 3/a x] V3 + Exp[-I 2 \[Pi] 1/a x] Vm1 +
Exp[-I 2 \[Pi] 2/a x] Vm2 + Exp[-I 2 \[Pi] 3/a x] Vm3 + V0, {x,
0, 99.99 a, 0.01 a}];
DFTV = InverseFourier[V];
Вот первая элементарная ячейка:
ListLinePlot[V[[1 ;; 100]]]
Вот ДПФ:
ListLinePlot[Abs[DFTV], PlotRange -> All, Frame -> True,
Axes -> False]
А вот коэффициенты, возвращенные из ДПФ:
Chop@Table[1/Sqrt[10000] DFTV[[Mod[100 n + 1, 10000]]], {n, -3, 3}]
(*Out: {4., 3. - 2. I, 2. - 1. I, 10., 2. + 1. I, 3. + 2. I, 4.} *)
Вы можете сами убедиться, что все остальные коэффициенты ДПФ равны нулю с точностью до машины. Небольшое примечание: я использовал InverseFourier
, а не Fourier
потому, что определение Mathematica Fourier
и InverseFourier
поменялось местами по сравнению с тем, как люди обычно определяют преобразования Фурье.
пользователь38579
Мусорный контейнерDoofus
пользователь38579