% Book: Laser Electronics by Verdeyen
% Problem: Chapter 7 problem 6
% Script Author: meg noah meg_noah@student.uml.edu
function Lasers_Ch7_Pr6
% Compute doppler broadening of Neon Laser lines
% outputs:
% Neon Doppler Multiplier (T=300K)=2.76209e-006
%
% L0 (A) f0 (GHz) dfD (GHz)  dLD (A)
%   6328  4740834     13.09   0.0175
%  11523  2603489      7.19   0.0318
%  33900   884956      2.44   0.0936
% 
Lamda0=[6328e-10,1.1523e-6,3.39e-6];
c=3e8;T=300;v0=c./Lamda0;
kB=1.3806503e-23;% m2 kg s-2 K-1
M_Neon=20.0*1.67252e-27; % amu kg/amu
A=sqrt(8.0*kB*T*log(2.0)/(M_Neon*c*c))
vD = A.*v0;
LamdaD=(Lamda0.*Lamda0.*vD./c)*1e10; %Angstroms
fprintf(1,'Neon Doppler Multiplier (T=300K)=%g\n',A);
fprintf(1,'L0 (A) f0 (GHz) dfD (GHz) dLD (Ang)\n');
for i=1:3
fprintf(1,'%6.0f\t%7.0f\t%5.2f\t%6.4f\n', ...
    Lamda0(i)*1e10,v0(i)*10e-9,vD(i)*10e-9,LamdaD(i));
end