DescrizioneAufbau Principle 3D (232 States).svg	The state space of a 3D potential wel with the first 232 states shown. You can see the increasing approximation to a sphere.
Data	5 agosto 2007 (data di caricamento)
Fonte	self-made   Questa grafica vettoriale non specificata secondo il W3C è stata creata con Inkscape .
Autore	Inductiveload
Licenza (Riusare questo file)	Public domainPublic domainfalsefalse Io, detentore del copyright su quest'opera, la rilascio nel pubblico dominio. Questa norma si applica in tutto il mondo. In alcuni paesi questo potrebbe non essere legalmente possibile. In tal caso: Garantisco a chiunque il diritto di utilizzare quest'opera per qualsiasi scopo, senza alcuna condizione, a meno che tali condizioni siano richieste dalla legge.

Mathematica Code

Require the following module:

<< Graphics`Polyhedra`

a = Table[{x, y, z}, {x, 1, 10}, {y, 1, 10}, {z, 1, 10}];
a = Flatten[a, 2];
a = Select[
      a,
      #[[1]]^2 + #[[2]]^2 + #[[3]]^2 < 70 &];

Show[
  Table[
    Polyhedron[Cube, a[[n]], 0.3],
    {n, 0, Length[a]}],
  ViewPoint -> {3.5, 3, 1},
  Shading -> False,
  PlotRange -> {{0, 10}, {0, 10}, {0, 10}},
  Axes -> True
  ]