Oscilador armonico 


  

phi[n_ , 
        x_ ]  :=  (Sqrt[(1/((Sqrt[Pi ])*(2^(n ))* n!))]) * Exp[((-(x^2))/2)]* HermiteH[n , 
          x ]

(*  Grafico de las funciones  *) 

 Plot[  {phi[0, 
          x],  phi[1, x],  phi[2, x]} ,  {x,  -5, 
        5} , 
           PlotStyle  ->   {RGBColor[1, 0, 0],  RGBColor[0, 1, 0],  
          RGBColor[0, 0, 
            1]   }     ]

Plot[  phi[10, x] ,  {x,  -5, 
        5} , 
           PlotStyle  ->   {RGBColor[1, 0, 0]}     ]