(*Ten przyklad pokazuje,  
      ze z orbitali atomowych mozemy ksztaltowac
dowolny (gladki) ksztalt  -  
        na tym polega ich rola .  Do orbitalu Slatera 2  
          s
 (nie ma wezla,  
            ma ksztalt pilki do futbola) dodawany jest pewien maly udzial orbitalu 3  d,  
konkretnie 3  
        d (x2 - y2) .  To powoduje,  
      ze otrzymujemy ksztalt splaszczonej pilki do rugby .  
          Gdyby dodac
3  d (3  z2 - z2),  
      to pilka nie bylaby splaszczona*)  
r = (Sqrt[(x^2) + (y^2)])
N1s = (1/(Sqrt[8 π]))
ss = 
      N1s (E^(-(1/2) (Sqrt[(x^2) + (y^2)])))
ContourPlot[ss, {x, -18, 18}, {y, -18, 18}, 
      PlotPoints -> 60]
N3d = (1/((Sqrt[2]) 81 (Sqrt[3 π]))) 
dd = (Sqrt[3]) N3d (E^(-(1/3) (Sqrt[(x^2) + (y^2)]))) ((x^2) - (y^2))
ContourPlot[dd, {x, -18, 18}, {y, -18, 18}, 
      PlotPoints -> 60]
rugby = ss + 0.05 dd
ContourPlot[rugby, {x, -18, 18}, {y, -18, 18}, 
      PlotPoints -> 60]