(*Graficos del Ejercicio 3 Cápitulo 14 del Kittel*) 
 (*Veasen Desarrollo en el archivo Ejercicio3KittelCap14Desarrollo . 
          nb *) 
 (*El proposito de estos gráficos es visualizar como se comportan los niveles energeticamente hablando con *) 
 (*B = 
        0  y B ≠ 0 *) 
Grafico1 = 
        Show[Graphics[{{Hue[ .1], {Line[{{0, 0}, {6, 0}}], 
                  Line[{{1, 0}, {1, 2}}], Line[{{3, 0}, {3, 2}}], 
                  Line[{{5, 0}, {5, 2}}]}}, {Hue[ .5], 
                Line[{{0, 2}, {6, 2}}]}, {Hue[ .9], 
                Line[{{ .5, 2}, {1.5, 2}}]}, {Hue[ .7], 
                Line[{{4.5, 2}, {5.5, 2}}]}}]];
Grafico1

(*Espín s = 0; nivel con enegía (Subscript[U, 1])[E_, B_]=E     *)
(*Espín s = 0; nivel con energía (Subscript[U, 2])[E_, B_]=E+Δ*k    *)
(*Espín s = -1; nivel con energía (Subscript[U, 3])[E_, B_]=E+Δ*k    *)
(*Espín s = 1; nivel con energía (Subscript[U, 4])[E_, B_]=E+Δ*k     *)

Grafico2 = 
        Show[Graphics[{Hue[ .8], {{Hue[ .3], Line[{{0, 0}, {6, 0}}]}, 
                Line[{{1, 0}, {1, 1}}], Line[{{3, 0}, {3, 2}}], 
                Line[{{5, 0}, {5, 3}}], {Hue[ .8], 
                  Line[{{3, 0}, {3, 2}, {3.5, 2}, {2.5, 2}}]}, {Hue[ .7], 
                  Line[{{4.5, 3}, {5.5, 3}}]}, {Hue[ .9], 
                  Line[{{ .5, 1}, {1.5, 1}}]}, {Hue[ .5], 
                  Line[{{0, 2}, {6, 2}}]}}}]];
Grafico2

(*Espín s = 0; nivel con enegía (Subscript[U, 1])[E_, B_]=E     *)
(*Espín s = 0; nivel con energía (Subscript[U, 2])[E_, B_]=E+Δ*k    *)
(*Espín s = -1; nivel con energía (Subscript[U, 3])[E_, B_]=E+Δ*k-g*μ*B    *)
(*Espín s = 1; nivel con energía (Subscript[U, 4])[E_, B_]=E+Δ*k+g*μ*B     *)
(*Observece que la linea  es estado de equilibrio del sistema que coincide exactamente con (Subscript[U, 2]), y que se dibuja en este*)