1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
function T_absorbance = PhotopigmentNomogram(S,lambdaMax,source)
% T_absorbance = PhotopigmentNomogram(S,lambdaMax,[source])
%
% Compute normalized absorbance according to various
% nomograms. This is basically a wrapper routine.
% Baylor
% Dawis
% Govardovskii (Default)
% Lamb
% StockmanSharpe
%
% 7/11/03 dhb Wrote it.
% 7/16/03 dhb Add StockmanSharpe.
if (nargin < 3 || isempty(source))
source = 'Govardovskii';
end
switch (source)
case {'Govardovskii'}
T_absorbance = ...
GovardovskiiNomogram(S,lambdaMax);
case {'Dawis'}
T_absorbance = ...
DawisNomogram(S,lambdaMax);
case {'Baylor'}
T_absorbance = ...
BaylorNomogram(S,lambdaMax);
case 'Lamb'
T_absorbance = ...
LambNomogram(S,lambdaMax);
case 'StockmanSharpe'
T_absorbance = ...
StockmanSharpeNomogram(S,lambdaMax);
otherwise
error('Unknown source for photopigment nomogram');
end
|
