(*just showing the Electron Localization Function*)
E1=0.4x^2+0.4y^2 
E2=0.12x^2+0.12y^2 
Show[
 Graphics3D[Sphere[{0,0,1.}],Boxed->False],
Plot3D[E1,{x,-12,12},{y,-11,11},RegionFunction->Function[{x,y,z},z≤10],PlotPoints->21,PlotStyle->Directive[Opacity[0.50]],Boxed->False,Axes->False]
]
Show[
 Graphics3D[Sphere[{0,0,1.}],Boxed->False],
Plot3D[E2,{x,-12,12},{y,-11,11},RegionFunction->Function[{x,y,z},z≤10],PlotPoints->21,PlotStyle->Directive[Opacity[0.50]],Boxed->False,Axes->False]
]