(*DZIURA WYMIENNA W MOLEKULE H2-,  
      opis na str  .535 ksiazki .  
          W pierwszym przypadku elektron nr 1
jest na jadrze a,  
      a elektron2 na jadrze b .  
          Elektron nr 3 uciekl na jadro b,  
      bo boi sie 
elektronu nr 1,  
      ktory ma taka jak on wspolrzedna spinowa,  
      wcale natomiast nie boi sie elektronu nr 2! 
W drugim przypadku elektron nr 1 umiescilismy na jadrze b (razem z elektronem nr 2) .  
          Elektron nr 3
skoczyl wtedy na jadro a!*) 
R = 2 
Clear[x, y]
r = (Sqrt[(x^2) + (y^2)])
A = (Sqrt[(1/π)]) (E^(-r))
B = (Sqrt[(1/π)]) (E^(-(Sqrt[(((x - R))^2) + (y^2)])))
S = (E^(-R)) (((R^2)/3) + R + 1)
Fi1 = ((A + B)/(Sqrt[2 (1 + S)]))
Fi2 = ((A - B)/(Sqrt[2 (1 - S)]))
Psi1 = (((((Sqrt[(1/π)]))^2) (Fi2 - Fi1))/(Sqrt[6]))
Psikw1 = (Psi1^2)
Psi2 = (((((Sqrt[(1/π)]))^2) (Fi1 + Fi2))/(Sqrt[6]))
Psikw2 = (Psi2^2)
Plot3D[Psikw1, {x, -1, 3}, {y, -2, 2}, 
      PlotPoints -> 50]
Plot3D[Psikw2, {x, -1, 3}, {y, -2, 2}, 
      PlotPoints -> 50]