Code covered by the BSD License  

Highlights from
Fiber Lasers and Amplifiers Design Toolbox

image thumbnail

Fiber Lasers and Amplifiers Design Toolbox

by

 

06 Jun 2013 (Updated )

Design toolbox allows parameter selection by solving lasers/amplifiers for various L,R,P,lambda etc

GetYbSpectrum(lam)
function [sigA,sigE,alpha] = GetYbSpectrum(lam)

if nargin<1, lam = 1e-9 * (800:1200); end
if lam(1)>1, lam = lam*1e-9; end % convert from nm to m

lam = lam*1e9;

% Generate Gaussians describing emission / absorption cross sections
sigA = 1e-27* (180*exp(-(((lam-950)/70).^2)) + ...
                360*exp(-(((lam-895)/24).^2)) + ...
                510*exp(-(((lam-918)/22).^2)) + ...
                160*exp(-(((lam-971)/12).^2)) + ...
                2325*exp(-(((lam-975)/4).^2)));
sigE = 1e-27* (2325*exp(-(((lam-975)/4).^2)) + ...
                160*exp(-(((lam-978)/12).^2)) + ...
                340*exp(-(((lam-1025)/20).^2)) + ...
                175*exp(-(((lam-1050)/60).^2)) + ...
                150*exp(-(((lam-1030)/90).^2)));
alpha = sigA./sigE;
            
end

Contact us