EntityValue
EntityList
EntityClass
QuantityQ
QuantityMagnitude
SpectralLineData
ColorData
KeyValueMap
Function
Association

Physics
Chemistry
Data Science

Create a Periodic Table of Spectral Lines

Open in Cloud
Download Notebook

Access built-in data from the NIST Atomic Spectra Database for each element

Examine the visible lines for hydrogen:

In[1]:=

EntityList

hydrogen I

4000

7500

SPECTRAL LINES



Out[1]=



H:(6

)

5/2

⟶ (2

)

1/2

H:(6

)

1/2

⟶ (2

)

1/2

106632.

/cm

⟶

82259.2

/cm

105292.

/cm

⟶

82259.2

/cm

H:(4

)

5/2

⟶ (2

)

1/2

H:(4

)

3/2

⟶ (2

)

1/2

H:(4

)

1/2

⟶ (2

)

1/2

H:(4

)

1/2

⟶ (2

)

1/2

102824.

/cm

⟶

82259.2

/cm

H:(3

)

3/2

⟶ (2

)

1/2

H:(3

)

3/2

⟶ (2

)

1/2

H:(3

)

1/2

⟶ (2

)

1/2

97492.3

/cm

⟶

82259.2

/cm

H:(3

)

5/2

⟶ (2

)

3/2



Explore the available data on specific lines:

In[2]:=

)

5/2

⟶

)

1/2

SPECTRAL LINE

["Dataset"]

Out[2]=

Make a simple blueprint of the periodic table:

In[3]:=

elementLabelToRectangleCoordinates=

periodic table blueprint

;

Check the blueprint's contents by creating a simple graphics expression:

In[4]:=

Graphics[KeyValueMap[Function[{elementLabel,rectangleCoordinates},{Black,Rectangle@@rectangleCoordinates,White,Inset[Style[elementLabel,AutoItalicWordsFalse],Mean[rectangleCoordinates]]}],elementLabelToRectangleCoordinates]]

Out[4]=

Extract the wavelengths of the visible atomic line transitions for all elements, excluding ions:

In[5]:=

lines=Association[#Module[{es=SpectralLineData[EntityClass["AtomicLine",{#〚2〛,1}],{

400

750

}]},If[MissingQ[es],{},es=EntityValue[es,"Wavelength"];QuantityMagnitude[Select[es,QuantityQ],"Nanometers"]]]&/@EntityValue["Element","Entities"]];

Create a periodic table of spectra. Hover over the elements to see a larger plot:

In[6]:=

makethumbnail[element_,rc_,{}]:={LightGray,Rectangle@@rc,White,Inset[Style[element["Abbreviation"],AutoItalicWordsFalse],Mean[rc]]}makethumbnail[element_,rc_,lines_]:=Module{nlines=Rescale[lines,{400,750},rc〚All,1〛]},TooltipRectangle@@rc,{Line[{{#,rc〚1,2〛},{#,Mean[rc〚All,2〛]}}&/@nlines,VertexColors({ColorData["VisibleSpectrum"][#],ColorData["VisibleSpectrum"][#]}&/@lines)]},White,InsetStyleelement

symbol

,AutoItalicWordsFalse,{Mean[rc〚All,1〛],Mean[{rc〚2,2〛,Mean[rc〚All,2〛]}]},Graphics{ColorData["VisibleSpectrum"][#],Line[{{#,0},{#,1}}]}&/@lines,

scene options



In[7]:=

Graphics[KeyValueMap[Function[{element,lines},makethumbnail[element,elementLabelToRectangleCoordinates[element["Abbreviation"]],lines]],lines]]

Out[7]=

Related Symbols

EntityValue
EntityList
EntityClass
QuantityQ
QuantityMagnitude
SpectralLineData
ColorData
KeyValueMap
Function
Association

Publisher Information

Contributed by: Wolfram Staff

Wolfram Language Example Repository

Create a Periodic Table of Spectral Lines

See Also

Publisher Information