Use a program like Mathematica to create diagrams analogous to Figures 1.13 and 1.14 showing the location of the atoms for the last four crystal structures from Table 1.1. (In Mathematica, it is simple to create a set of spheres of radius r centered at points {x₁, y₁, z₁}, {x₂, y₂, z₂}, . .. using the command

Try using different viewpoint positions in the plotting. How many nearest neighbors does each atom have?

Fig. 1.13

Figures 1.14

Show[Graphics3D[Sphere[{{x, Y,2}, {X2, Y2, 22},...}], rll