 Oscilador armonico (*  Definicion de la ... phi[n_ , x_ ] := 1/(Pi ^(1/2) * 2^n * n !)^(1/2) * Exp[-x^2/2] * HermiteH[n , x ] 

(*  Grafico de las funciones  *) Plot[   ... or[0, 0, 1]    }      ] ;     

[Graphics:creationfiles/creationmath_3.gif]

(* Chequeo de Normalizacion *)m = 6 ; NIntegrate[ phi[m, x]^2, {x, -5, 5}]

Out[112]=

0.999977

(* Operadores de Creacion  *)dx[n_, x_] := Derivative[0, 1][phi][n, x] a^†[n_, x_] := 1/Sqrt[2] * ( -dx[n, x] + x * phi[n, x] )

RowBox[{, , (* Comparacion de las funciones generadas por operador de ... + ϵ}, {x, -5, 5} , PlotStyle ->   {RGBColor[0, 0, 0], RGBColor[0, 1, 0]}] ;}]}]

[Graphics:creationfiles/creationmath_8.gif]

(* chequeo general  *)m = 7 ; Plot[{phi[m, x ... le ->   {RGBColor[0, 0, 0], RGBColor[0, 1, 0]}, PlotRange  {-1, 1}] ;

[Graphics:creationfiles/creationmath_10.gif]

(* Operadores de Aniquilacion  *)a[n_, x_] := 1/Sqrt[2] * ( dx[n, x] + x * phi[n, x] )

m = 7 ; Plot[{phi[m, x], 1/Sqrt[(m)] * (a[m + 1, x]) + ϵ}, {x, -5, 5} , ... le ->   {RGBColor[0, 0, 0], RGBColor[0, 1, 0]}, PlotRange  {-1, 1}] ;

[Graphics:creationfiles/creationmath_13.gif]

In[122]:=

HTMLSave["creationmath.html", "creation.nb"]

Created by Mathematica  (June 2, 2008)