Tengo un potencial periódico
Pero comencé con que tenía la forma . Qué me estoy perdiendo ? ¿Cómo encuentro correctamente los coeficientes de Fourier? numéricamente usando DFT (se puede usar el método de transformada rápida de Fourier en Matlab)?
Para obtener referencias sobre la ecuación de la matriz espacial de Fourier de Kronig Penney, consulte aquí http://www.physics.buffalo.edu/phy410-505/topic5/index.html
Primero, un punto algo menor es que en realidad da una lista de 10001 puntos, no 10000 puntos. Asumiré que en realidad quisiste decir .
En segundo lugar, dices que
Entonces, la forma más fácil de interpretar la DFT es la siguiente. Tenga en cuenta que el ª entrada (donde ) del vector Se puede escribir como
Como ejemplo numérico en 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];
Aquí está la primera celda unitaria:
ListLinePlot[V[[1 ;; 100]]]
Aquí está el DFT:
ListLinePlot[Abs[DFTV], PlotRange -> All, Frame -> True,
Axes -> False]
Y aquí están los coeficientes devueltos por la DFT:
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.} *)
Puede verificar usted mismo que todos los demás coeficientes DFT son cero hasta la precisión de la máquina. Nota menor: utilicé InverseFourier
en lugar de Fourier
porque la definición de Mathematica de Fourier
y InverseFourier
se invierte en comparación con la forma en que las personas definen comúnmente las transformadas de Fourier.
usuario38579
basureroDoofus
usuario38579