Práctica Computacional: Dinámica Cuántica (primeros pasos)

Instructor: Darío Mitnik


Utilizaremos el ejemplo dado en DINAMICA.NB para aprender a visualizar la evolución de una función de onda no estacionaria en el tiempo.


dinamica.nb

RowBox[{(* --- Calculo de las funciones de onda en el pozo --- *), , , RowBox[ ... }], , , (* ----  ancho del pozo ---- *), , a = 2 ;, }]}]

Plot[{phi[x, 1, a], phi[x, 2, a], phi[x, 3, a]}, {x, -1/2, 5/2}, PlotStyle  {{ ... p;             {RGBColor[1, 0, 0]}}] ;

[Graphics:HTMLFiles/dinamica_3.gif]

RowBox[{(* ---- coeficientes de onda total ---- *), , RowBox[{RowBox[{RowBox[{c,  , =, ... bsp;            {RGBColor[1, 0, 0]}}] ;}]}]

[Graphics:HTMLFiles/dinamica_5.gif]

(* ---- evolucion temporal de onda total ---- *)τ = 2 * Pi/(Ener[1, a]) ;

RowBox[{RowBox[{RowBox[{movie1,  , =,  , RowBox[{Table, [, RowBox[{RowBox[{Plot, [, RowBox[{{R ...  {t, 0, τ, τ/50}}], ,     , ]}]}], ;}], , }]

[Graphics:HTMLFiles/dinamica_9.gif]

RowBox[{RowBox[{Table, [, RowBox[{RowBox[{Plot, [, RowBox[{{Re[c[[1]] * phi[x, 1, a] * Exp[- I ... nbsp;   , {t, 0, τ, τ/50}}], ,     , ]}], ;}]

[Graphics:HTMLFiles/dinamica_11.gif]


Problemas



Darío Mitnik
U.B.A.