Propriedades atômicas

Crie um gráfico de passos do raio atómico versus o número atômico.

In[1]:=

ListStepPlot[Table[ElementData[z, "AtomicRadius"], {z, 82}], PlotMarkers -> Automatic, ImageSize -> 550, PlotTheme -> "Detailed"]

Out[1]=