Entity
EntityValue
EntityClass
EntityList
QuantityMagnitude
Quantity

Physics

Obtain Laser Wavelengths and Types

Open in Cloud
Download Notebook

Access and visualize data about different lasers

Compare the wavelengths for different lasers:

In[1]:=

(fluorine)

LASER



typical wavelength



Out[1]=

157.

In[2]:=

Br (vinyl bromide)

LASER



typical wavelength



Out[2]=

963487.3

Obtain the wavelengths of all lasers in the Wolfram Knowledgebase:

In[3]:=

wavelengths=QuantityMagnitude

lasers



typical wavelength

,"Nanometers";

Visualize these different wavelengths:

In[4]:=

AnimateGraphics{Line[{{#,0},{#,1}}]}&/@wavelengths,

scene options

,{i,2.5,6},

opts



Out[4]=

Now find all of the lasers that use wavelengths in the visible spectrum:

In[5]:=

lasers=EntityClass"Laser",

typical wavelength



(400

700)

//EntityList

Out[5]=



Kr ion (krypton ion)

Cu (copper)

frequency doubled Nd YAG (neodymium doped yttrium-aluminium-garnet)

He-Ne (helium-neon)

InGaAlP (indium gallium aluminium phosphide)

Cr ruby (chromium ruby)



Obtain the wavelengths for each of these lasers:

In[6]:=

data=#["Name"],QuantityMagnitude#

typical wavelength

,"Nanometers"&/@lasers;data//Short

Out[6]//Short=

{{Kr ion (krypton ion),413.250},4,{Cr ruby (chromium ruby),694.5}}

Visualize the colors produced:

In[7]:=

Graphics{ColorData["VisibleSpectrum"][#2],Tooltip[Line[{{#2,0},{#2,1}}],#1]}&@@@data,

scene options



Out[7]=

Compare the number of lasers of each type:

In[8]:=

PieChart[Callout[#["EntityCount"],#]&/@Rest[EntityValue["Laser","EntityClasses"]],PlotRangeAll]

Out[8]=

Related Symbols

Entity
EntityValue
EntityClass
EntityList
QuantityMagnitude
Quantity

Publisher Information

Contributed by: Wolfram Staff