Graphics3D[{{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, Cuboid[{2, 9, 0}, {3, 10, 0.026}], {}}, 
   {{}, Cuboid[{3, 2, 0}, {4, 3, 4.88}], {}, {}, {}, 
    Cuboid[{3, 6, 0}, {4, 7, 1.3}], Cuboid[{3, 7, 0}, {4, 8, 0.05}], {}, {}, 
    {}}, {Cuboid[{4, 1, 0}, {5, 2, 1.38}], Cuboid[{4, 2, 0}, {5, 3, 0.022}], 
    {}, {}, Cuboid[{4, 5, 0}, {5, 6, 0.128}], Cuboid[{4, 6, 0}, 
     {5, 7, 0.61}], Cuboid[{4, 7, 0}, {5, 8, 0.4}], {}, {}, {}}, 
   {Cuboid[{5, 1, 0}, {6, 2, 1.4}], {}, {}, {}, Cuboid[{5, 5, 0}, 
     {6, 6, 4.47}], Cuboid[{5, 6, 0}, {6, 7, 9.25}], 
    Cuboid[{5, 7, 0}, {6, 8, 5.4}], {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 0.68}], {}, {}, {}, 
    Cuboid[{6, 5, 0}, {7, 6, 0.015}], Cuboid[{6, 6, 0}, {7, 7, 0.915}], {}, 
    {}, {}, {}}, {{}, {}, {}, {}, Cuboid[{7, 5, 0}, {8, 6, 1.7}], 
    Cuboid[{7, 6, 0}, {8, 7, 7.8}], {}, {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{8, 5, 0}, {9, 6, 0.66}], 
    Cuboid[{8, 6, 0}, {9, 7, 0.49}], {}, {}, {}, {}}, 
   {Cuboid[{9, 1, 0}, {10, 2, 0.6}], {}, {}, {}, 
    Cuboid[{9, 5, 0}, {10, 6, 0.11}], {}, {}, {}, {}, {}}, 
   {{}, Cuboid[{10, 2, 0}, {11, 3, 1.083}], {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, 
    Cuboid[{12, 5, 0}, {13, 6, 4.154}], Cuboid[{12, 6, 0}, {13, 7, 0.517}], 
    Cuboid[{12, 7, 0}, {13, 8, 0.85}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{13, 5, 0}, {14, 6, 2.38}], 
    Cuboid[{13, 6, 0}, {14, 7, 3.41}], Cuboid[{13, 7, 0}, {14, 8, 1.083}], 
    Cuboid[{13, 8, 0}, {14, 9, 1.175}], {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{14, 5, 0}, {15, 6, 7.2}], 
    Cuboid[{14, 6, 0}, {15, 7, 3.72}], {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, Cuboid[{17, 2, 0}, {18, 3, 0.1}], {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", {1.5, 4.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Cs", {1.5, 5.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Rb", {1.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["K", {1.5, 7.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Na", {1.5, 8.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Li", {1.5, 9.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["H", {1.5, 10.5, 0.09235}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", {2.5, 4.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Ba", {2.5, 5.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Sr", {2.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Ca", {2.5, 7.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Mg", {2.5, 8.5, 0.09235}]}, 
    {Text["Be", {2.5, 9.5, 0.11835}], Text["Be", {2.5, 9.5, -0.09235}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 0.09235}]}, 
    {Text["La", {3.5, 2.5, 4.97235}], Text["La", {3.5, 2.5, -0.09235}]}, {}, 
    {}, {}, {Text["Y", {3.5, 6.5, 1.39235}], 
     Text["Y", {3.5, 6.5, -0.09235}]}, {Text["Sc", {3.5, 7.5, 0.14235}], 
     Text["Sc", {3.5, 7.5, -0.09235}]}, {}, {}, {}}, 
   {{Text["Th", {4.5, 1.5, 1.4723499999999998}], 
     Text["Th", {4.5, 1.5, -0.09235}]}, 
    {Text["Ce", {4.5, 2.5, 0.11435000000000001}], 
     Text["Ce", {4.5, 2.5, -0.09235}]}, {}, {RGBColor[1, 0, 0], 
     Text["Rf", {4.5, 4.5, 0.09235}]}, {Text["Hf", {4.5, 5.5, 0.22035}], 
     Text["Hf", {4.5, 5.5, -0.09235}]}, {Text["Zr", {4.5, 6.5, 0.70235}], 
     Text["Zr", {4.5, 6.5, -0.09235}]}, {Text["Ti", {4.5, 7.5, 0.49235}], 
     Text["Ti", {4.5, 7.5, -0.09235}]}, {}, {}, {}}, 
   {{Text["Pa", {5.5, 1.5, 1.4923499999999998}], 
     Text["Pa", {5.5, 1.5, -0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Pr", {5.5, 2.5, 0.09235}]}, {}, {RGBColor[1, 0, 0], 
     Text["Db", {5.5, 4.5, 0.09235}]}, 
    {Text["Ta", {5.5, 5.5, 4.5623499999999995}], 
     Text["Ta", {5.5, 5.5, -0.09235}]}, {Text["Nb", {5.5, 6.5, 9.34235}], 
     Text["Nb", {5.5, 6.5, -0.09235}]}, {Text["V", {5.5, 7.5, 5.49235}], 
     Text["V", {5.5, 7.5, -0.09235}]}, {}, {}, {}}, 
   {{Text["U", {6.5, 1.5, 0.7723500000000001}], 
     Text["U", {6.5, 1.5, -0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Nd", {6.5, 2.5, 0.09235}]}, {}, {RGBColor[1, 0, 0], 
     Text["Sg", {6.5, 4.5, 0.09235}]}, {Text["W", {6.5, 5.5, 0.10735}], 
     Text["W", {6.5, 5.5, -0.09235}]}, {Text["Mo", {6.5, 6.5, 1.00735}], 
     Text["Mo", {6.5, 6.5, -0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Cr", {6.5, 7.5, 0.09235}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 0.09235}]}, 
    {Text["Re", {7.5, 5.5, 1.7923499999999999}], 
     Text["Re", {7.5, 5.5, -0.09235}]}, 
    {Text["Tc", {7.5, 6.5, 7.8923499999999995}], 
     Text["Tc", {7.5, 6.5, -0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Mn", {7.5, 7.5, 0.09235}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Pu", {8.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Sm", {8.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 0.09235}]}, 
    {Text["Os", {8.5, 5.5, 0.7523500000000001}], 
     Text["Os", {8.5, 5.5, -0.09235}]}, {Text["Ru", {8.5, 6.5, 0.58235}], 
     Text["Ru", {8.5, 6.5, -0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Fe", {8.5, 7.5, 0.09235}]}, {}, {}, {}}, 
   {{Text["Am", {9.5, 1.5, 0.69235}], Text["Am", {9.5, 1.5, -0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Eu", {9.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 0.09235}]}, 
    {Text["Ir", {9.5, 5.5, 0.20235}], Text["Ir", {9.5, 5.5, -0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Rh", {9.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Co", {9.5, 7.5, 0.09235}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 0.09235}]}, 
    {Text["Gd", {10.5, 2.5, 1.17535}], Text["Gd", {10.5, 2.5, -0.09235}]}, 
    {}, {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Pt", {10.5, 5.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Pd", {10.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Ni", {10.5, 7.5, 0.09235}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Tb", {11.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Au", {11.5, 5.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Ag", {11.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Cu", {11.5, 7.5, 0.09235}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Dy", {12.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 0.09235}]}, 
    {Text["Hg", {12.5, 5.5, 4.24635}], Text["Hg", {12.5, 5.5, -0.09235}]}, 
    {Text["Cd", {12.5, 6.5, 0.6093500000000001}], 
     Text["Cd", {12.5, 6.5, -0.09235}]}, {Text["Zn", {12.5, 7.5, 0.94235}], 
     Text["Zn", {12.5, 7.5, -0.09235}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Ho", {13.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 0.09235}]}, 
    {Text["Tl", {13.5, 5.5, 2.47235}], Text["Tl", {13.5, 5.5, -0.09235}]}, 
    {Text["In", {13.5, 6.5, 3.5023500000000003}], 
     Text["In", {13.5, 6.5, -0.09235}]}, {Text["Ga", {13.5, 7.5, 1.17535}], 
     Text["Ga", {13.5, 7.5, -0.09235}]}, {Text["Al", {13.5, 8.5, 1.26735}], 
     Text["Al", {13.5, 8.5, -0.09235}]}, {RGBColor[1, 0, 0], 
     Text["B", {13.5, 9.5, 0.09235}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Er", {14.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 0.09235}]}, 
    {Text["Pb", {14.5, 5.5, 7.29235}], Text["Pb", {14.5, 5.5, -0.09235}]}, 
    {Text["Sn", {14.5, 6.5, 3.8123500000000003}], 
     Text["Sn", {14.5, 6.5, -0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Ge", {14.5, 7.5, 0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Si", {14.5, 8.5, 0.09235}]}, {RGBColor[1, 0, 0], 
     Text["C", {14.5, 9.5, 0.09235}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Tm", {15.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Bi", {15.5, 5.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Sb", {15.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["As", {15.5, 7.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["P", {15.5, 8.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["N", {15.5, 9.5, 0.09235}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Yb", {16.5, 2.5, 0.09235}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Te", {16.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Se", {16.5, 7.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["S", {16.5, 8.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["O", {16.5, 9.5, 0.09235}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 0.09235}]}, 
    {Text["Lu", {17.5, 2.5, 0.19235000000000002}], 
     Text["Lu", {17.5, 2.5, -0.09235}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uus", {17.5, 4.5, 0.09235}]}, {RGBColor[1, 0, 0], 
     Text["At", {17.5, 5.5, 0.09235}]}, {RGBColor[1, 0, 0], 
     Text["I", {17.5, 6.5, 0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Br", {17.5, 7.5, 0.09235}]}, {RGBColor[1, 0, 0], 
     Text["Cl", {17.5, 8.5, 0.09235}]}, {RGBColor[1, 0, 0], 
     Text["F", {17.5, 9.5, 0.09235}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", {18.5, 4.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Rn", {18.5, 5.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Xe", {18.5, 6.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Kr", {18.5, 7.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Ar", {18.5, 8.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["Ne", {18.5, 9.5, 0.09235}]}, 
    {RGBColor[1, 0, 0], Text["He", {18.5, 10.5, 0.09235}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, Automatic}, 
 BoxStyle -> Directive[FontFamily -> "Helvetica", FontSize -> 14, 
   RGBColor[0, 0, 0]], TicksStyle -> Directive[FontFamily -> "Helvetica", 
   FontSize -> 14, RGBColor[0, 0, 0]], PlotRange -> All, 
 Background -> RGBColor[1., 1., 1.]]
