Dinamica Cuantica

(* --- Calculo de las funciones de onda    &nbs ... -- *)ω = 1 ; Ener[n_Integer] :=     (n + 1/2) ω ;

Plot[ {phi[x, 0], phi[x, 1], phi[x, 2]}, {x, -5, 5}, PlotStyle  {{RGBC ... nbsp;     } , ImageSize  500   ] ;

[Graphics:coherentesfiles/coherentes_4.gif]

FormBox[RowBox[{, (* ----   evolucion temporal de onda estacionaria&nbs ... /50}}], ,     , ]}], ;}], FontFamily -> Courier]}]}], TraditionalForm]

[Graphics:coherentesfiles/coherentes_6.gif]

RowBox[{, (* ---- construccion de combinacion lineal de dos estados estacionarios  ... ;    , }}]}], , ,, , ImageSize  500}], , ]}], ;}]}]}]

[Graphics:coherentesfiles/coherentes_9.gif]

FormBox[RowBox[{, (* ---- evolucion temporal de esta combinacion lineal   -- ... }], ,, , {t, 0, τ, τ/50}}], ]}], ;}], FontFamily -> Courier]}], TraditionalForm]

[Graphics:coherentesfiles/coherentes_11.gif]

RowBox[{, (* ---- combinacion lineal de funciones con misma paridad    ... ;    , }}]}], , ,, , ImageSize  500}], , ]}], ;}]}]}]

[Graphics:coherentesfiles/coherentes_13.gif]

RowBox[{, (* ---- evolucion temporal de la parte real ---- *), , , (* doble c ... 964;, τ/50}}], ,     , ]}]}], ;, , , }]}]

[Graphics:coherentesfiles/abscomb.gif]

FormBox[RowBox[{, (* ---- funciones con la misma paridad    ---- *), &# ... }], ,, , {t, 0, τ, τ/50}}], ]}], ;}], FontFamily -> Courier]}], TraditionalForm]

[Graphics:coherentesfiles/coherentes_17.gif]

(* ---- Combinaciones generales de funciones estacionarias   ---- *) ... p; Exp[ -(i - n0)^2  /  n0]   / Sumb, {i, nmin, nmax}] 

FormBox[RowBox[{StyleBox[RowBox[{RowBox[{ListPlot, [,     , RowBox[{b, &nb ... ;     , ]}], , ;}], FontFamily -> Courier], }], TraditionalForm]

[Graphics:coherentesfiles/coherentes_20.gif]

    ξ[x_] :=    Sum[    &n ... nbsp;               ] ;

FormBox[RowBox[{, RowBox[{RowBox[{Plot, [, , RowBox[{{b[[5]] * phi[x, 4], b[[6]] * ph ... sp;      , ImageSize  500}], ]}], , ;}]}], TraditionalForm]

[Graphics:coherentesfiles/coherentes_23.gif]

     ξ[x_, t_] :=    Sum[  &nbs ... p;              ] ; 

FormBox[RowBox[{(* ---- Evolucion temporal de esta combinacion    ---- *), > ... , ,, , {t, 0, τ, τ/25}}], ]}], ;}], FontFamily -> Courier]}]}], TraditionalForm]

[Graphics:coherentesfiles/coherentes_26.gif]

RowBox[{, , (* ---- Estado fundamental con traslacion espacial  &nbs ... wBox[{Thickness, [, 0.01, ]}]}], }}]}], ,, , ImageSize -> 500}], ]}], ;}], }]}]

[Graphics:coherentesfiles/coherentes_28.gif]

(* ---- Coeficientes de la expansion en estados estacionarios    ---- * ... 371;f[n_Integer] := NIntegrate[ phi[x - d, 0] * phi[x, n - 1], {x, -Infinity, Infinity}] ;

nmin = 1 ; nmax = 20 ; b := Table[  f[n], {n, nmin, nmax}] ;

RowBox[{, StyleBox[RowBox[{RowBox[{ListPlot, [,     , RowBox[{b, & ... nbsp;         , ]}], , ;}], FontFamily -> Courier]}]

[Graphics:coherentesfiles/coherentes_32.gif]

b[[n]]

RowBox[{rrr, , =, RowBox[{{, RowBox[{0.0183156, ,, 0.0518044, ,, 0.103609, ,, 0.169193, ,, 0. ... 172094, ,, 0.130091, ,, 0.0950052, ,, 0.0671788, ,, 0.0460843, ,, 0.0307228, ,, 0.0199356}], }}]}]

RowBox[{{, RowBox[{0.0183156, ,, 0.0518044, ,, 0.103609, ,, 0.169193, ,, 0.239275, ,, 0.302661 ... 0.172094, ,, 0.130091, ,, 0.0950052, ,, 0.0671788, ,, 0.0460843, ,, 0.0307228, ,, 0.0199356}], }}]

     ξ[x_, t_] :=    Sum[  > ... p;              ] ; 

FormBox[RowBox[{, (* ---- Evolucion temporal de estado coherente    --- ... , ,, , {t, 0, τ, τ/25}}], ]}], ;}], FontFamily -> Courier]}]}], TraditionalForm]

[Graphics:coherentesfiles/coherentes_38.gif]

(*   HTMLSave["coherentes.html", "coherentes.nb"]   *)

HTMLSave["coherentes.html", "coherentes.nb"]

Created by Mathematica  (June 2, 2008)