1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
function [absorbanceSpectra, absorbanceSpectraWls] =...
AbsorbtanceToAbsorbance(absorbtanceSpectra, absorbtanceSpectraWls, axialOpticalDensities, NORMALIZE)
% [absorbanceSpectra, absorbanceSpectraWls] =...
% AbsorbtanceToAbsorbance(absorbtanceSpectra, absorbtanceSpectraWls, axialOpticalDensities, [NORMALIZE])
%
% Obsolete. Use AbsorptanceToAbsorbance, so that we can all learn to spell.
%
% This will go away sooner or later, but is here now for backwards compatibility.
%
% 12/02/13 dhb, ms Made this a call through so that it can go away eventually.
% Some arg checks
if ~exist('absorbtanceSpectra','var'); help AbsorbtanceToAbsorbance; return; end
if ~exist('axialOpticalDensities','var'); disp('axialOpticalDensities is required.'); return; end
if ~exist('absorbtanceSpectraWls','var'); absorbtanceSpectraWls = []; end
if ~exist('NORMALIZE','var'); NORMALIZE = true; end
[absorbanceSpectra, absorbanceSpectraWls] =...
AbsorptanceToAbsorbance(absorbtanceSpectra, absorbtanceSpectraWls, axialOpticalDensities, NORMALIZE)
|
