Visualize Carbon Atomic Transitions within the Visible Spectrum

Create different visualizations of state transitions in neutral carbon using SpectralLineData

Use

SpectralLineData

to get a list of state transitions in neutral carbon for wavelengths between 400 and 550 nanometers:

In[1]:=

SpectralLineData

carbon I

SPECTRAL LINES

400

550

}

Out[1]=



C:[He](2

)

⟶ [He](2

)

C:[He](2

)

⟶ [He](2

)

C:[He](2

)

⟶ [He](2

)

C:[He](2

)

⟶ [He](2

)



Check the wavelength of the first of these transitions:

In[2]:=

SpectralLineData[First[%],"Wavelength"]

Out[2]=

4771.75

Extract the wavelength for carbon transitions within a certain range to obtain the transitions on the visible spectrum:

In[3]:=

lines=SpectralLineData

carbon I

SPECTRAL LINES

400

750

};linedata=SpectralLineData[lines];linevalues=QuantityMagnitude[Lookup[linedata,"Wavelength"],"Nanometers"];

Visualize the transitions on the visible spectrum:

In[4]:=

Graphics{ColorData["VisibleSpectrum"][#],Line[{{#,0},{#,1}}]}&/@linevalues,



Out[4]=

Extract the upper and lower levels for each transition:

In[5]:=

lowerlevels=Lookup[linedata,"LowerLevel"];upperlevels=Lookup[linedata,"UpperLevel"];

Obtain more information for each atomic level:

In[6]:=

First[lowerlevels]

Out[6]=

C: [He](2

)

In[7]:=

SpectralLineData[%]

Out[7]=

ElectronConfiguration{{2},{2,1},{1}},ElectronConfigurationString[He]2

,Element

carbon

,Energy

7.4878

,IonizationLevel1,IsotopeMissing[NotAvailable],JValue{2},NameC: [He](2

)

,NISTIdentificationNumber006001.000013,OrbitalL1,Parity-1,PrincipalN3,QuantumNumbersPrincipalN3,OrbitalL1,SpinS1,SpinS1,TermSymbol

,Wavenumber

60393.1

/cm



Gather energy information for each atomic level:

In[8]:=

leveldata=Riffle[SpectralLineData/@lowerlevels,SpectralLineData/@upperlevels];levels=Lookup[leveldata,{"Name","Energy"}];

Create a list of transitions:

In[9]:=

transitions=Partition[Lookup[leveldata,"Energy"],2,2];

Determine the colors for each transition:

In[10]:=

colors=ColorData["VisibleSpectrum"]/@linevalues;

Plot each transition in terms of the energy levels of the initial and final atomic levels:

In[11]:=

Graphics{MapIndexed[{colors〚First[#2]〛,Line[QuantityMagnitude[{{First[#1],First[#2]},{Last[#1],First[#2]}}]]}&,transitions],MapIndexed[Tooltip[{colors〚Ceiling[First[#2]/2]〛,Point[QuantityMagnitude[{Last[#1],Ceiling[First[#2]/2]}]]},First[#1]]&,levels]},



Out[11]=

Publisher Information

Contributed by: Wolfram Staff

Visualize Carbon Atomic Transitions within the Visible Spectrum

Related Symbols

Publisher Information