He-Ne Laser

gr=;

Manipulate[
SeedRandom[rs];Column[{With[{order=RandomSample[Range[10],10]},Graphics[{Text["20.61 eV",{-4,10}],Text["18.7 eV",{24.5,18.2}],Text[Style["He",16],{5,10}],Text[Style["Ne",16],{17.5,10}],
Line[{{0,0},{10,0}}],Line[{{0,20.61},{10,20.61}}],Line[{{12,0},{22,0}}],Line[{{12,20.66},{22,20.66}}],Line[{{12,18.7},{22,18.7}}],If[t≤3.5,Table[Disk[{x,If[7order[[x]]/20≤t,21,.5]},.45],{x,1,10}],{Table[Disk[{x+12,19.2},.45],{x,1,10}],
Inset[gr,{29,19.8},Automatic, {5,5}]}],Opacity[.4],Thickness[.01],Arrowheads[{-.05,.05}],Arrow[{{-1,0},{-1,21}}]},ImageSize->{Automatic,200},PlotRange->{{-8,35},{-.5,22}}]],
SeedRandom[];
Graphics[{LightRed,Rectangle[{0,0},{7,2}],
Blue,Point[Transpose[{RandomReal[{.1,6.9},100],RandomReal[{.1,1.9},100]}]],Green,Point[Transpose[{RandomReal[{.1,6.9},10],RandomReal[{.1,1.9},10]}]],Lighter[Gray],Rectangle[{-.5,-.2},{0,2.2}],Rectangle[{7,-.2},{7.5,2.2}],SeedRandom[rs];With[{pts1=Transpose[{RandomSample[Range[.1,1.9,.1],9],RandomSample[Range[.1,.9,.1],9]}],θs=RandomReal[{0,2 π},9],pts2=Transpose[{RandomSample[Range[.35,6.9,.2],9],RandomSample[Range[.1,.9,.1],9]}]},{(Translate[Table[Inset[gr,#1-{0,x},Automatic,{.7,.7}],{x,.1,.5,.14}],{t,.5}]&)/@pts2,MapThread[Translate[Inset[ReplacePart[gr,{1,1}->Magenta],#1,Automatic,{.7,.7},{Cos[#2],Sin[#2]}],#1+t {Cos[#2],Sin[#2]}]&,{pts1,θs}]}]},ImageSize->600,PlotRange->{{-.5,14},{-.7,2.5}}]}],
{{t, 0, "time"},0,7,Appearance->"Labeled"},
{{rs,436729486,"seed"},(10^8),(10^9),1,Appearance->"Labeled"},SaveDefinitions->True]

CAPTION

The He-Ne laser is constructed from a tube containing a mixture of the two gases, with about a 1:10 ratio of neon to helium. The neon and helium atoms are shown as green and blue dots, respectively. The mirror at one end is totally reflective, while the one at the opposite end is about 99% reflective. The physical parameters are arranged so that the strongest laser emission is a beam of red light with wavelength 632.8 nm. In the principal mode of laser action, helium atoms are excited to their 2(^1)(Subscript[S, 0]) state by a high-voltage electrical discharge, and these collide with neon atoms, exciting an electron to a 3s level. This produces a population inversion in the Ne atoms, and stimulated emission occurs when the excited electron makes a transition back to a 2p level in its ground state.

DETAILS

Reference

Wikipedia. "Helium-Neon Laser." (Feb 8, 2012) en.wikipedia.org/wiki/Helium-neon_laser.

THIS NOTEBOOK IS THE SOURCE CODE FROM

Enrique Zeleny

"He-Ne Laser"
 http://demonstrations.wolfram.com/HeNeLaser/
 Wolfram Demonstrations Project
 Published: February 9, 2012

A full-function Wolfram Mathematica system is required to edit this notebook.
GET WOLFRAM MATHEMATICA »

© Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »