(*DEFORMACJA PAULIEGO wg opisu na s  .1110 .  
          Pokazano skad i dokad jest odplyw gestosci elektronowej, 
gdy ustawimy w odleglosci R od siebie dwa atomy .  W pierwszym przypadku (dwa atomy helu)
 
        gestosc elektronowa jest wypychana z obszaru miedzyjadrowego (dolina) na jadra (piki) . 
W drugim przypadku (dwa atomy wodoru) jest odwrotnie.*) 
R = 4. 
pi = 3.141592532
a = (Sqrt[(1/pi)]) (E^(-(Sqrt[(x^2) + (y^2)])))
b = (Sqrt[(1/pi)]) (E^(-(Sqrt[(((x - R))^2) + (y^2)])))
S = (1 + R + ((R^2)/3)) (E^(-R))
lbd = 1. 
N1 = (1/(Sqrt[1 + (lbd^2) + 2 lbd S]))
wsp = ((lbd + S)/(1 + lbd S))
N2 = (1/(Sqrt[1 + (wsp^2) - 2 wsp S]))
fi1 = N1 (a + lbd b)
fi2 = N2 (wsp a - b)
dHe2 = 2 ((fi1^2) + (fi2^2)) - 2 (a^2) - 2 (b^2)
Plot3D[dHe2, {x, -2. , 6. }, {y, -2. , 2. }, 
      PlotPoints -> 31]
dH2 = 2 (fi1^2) - (a^2) - (b^2)
Plot3D[dH2, {x, -2. , 6. }, {y, -2. , 2. }, 
      PlotPoints -> 31]