Propiedades atómicas
Cree un gráfico de pasos del radio atómico versus el número atómico.
In[1]:=
ListStepPlot[Table[ElementData[z, "AtomicRadius"], {z, 82}],
PlotMarkers -> Automatic, ImageSize -> 550, PlotTheme -> "Detailed"]
Out[1]=
Cree un gráfico de pasos del radio atómico versus el número atómico.
ListStepPlot[Table[ElementData[z, "AtomicRadius"], {z, 82}],
PlotMarkers -> Automatic, ImageSize -> 550, PlotTheme -> "Detailed"]