Propriedades atômicas
Crie um gráfico de passos do raio atómico versus o número atômico.
In[1]:=
![Click for copyable input](assets.pt-br/atomic-properties/In_66.png)
ListStepPlot[Table[ElementData[z, "AtomicRadius"], {z, 82}],
PlotMarkers -> Automatic, ImageSize -> 550, PlotTheme -> "Detailed"]
Out[1]=
![](assets.pt-br/atomic-properties/O_55.png)
Crie um gráfico de passos do raio atómico versus o número atômico.
ListStepPlot[Table[ElementData[z, "AtomicRadius"], {z, 82}],
PlotMarkers -> Automatic, ImageSize -> 550, PlotTheme -> "Detailed"]