원자 특성
원자 반지름과 원자 번호의 계단 플롯을 생성합니다.
In[1]:=

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

원자 반지름과 원자 번호의 계단 플롯을 생성합니다.
ListStepPlot[Table[ElementData[z, "AtomicRadius"], {z, 82}],
PlotMarkers -> Automatic, ImageSize -> 550, PlotTheme -> "Detailed"]