Coherent Backscattering from Multiple Scattering Systems - KOPS ...

Evaluation of the wide angle data
% remove NANs and data with huge errors from damaged photodiodes
m = 1 ;
for n = 1 : 256
if isnan (cone(n))
elseif cone_delta(n) > 0.1*P_samp
else
Cone(m) = cone(n) ;
Delta(m) = cone_delta(n) ;
Theta(m) = theta(n) ;
m = m + 1 ;
end
end
cone = Cone ;
cone_delta = Delta ;
theta = Theta ;
clear Theta Cone Delta
% fold data (i.e. -pi/2 < theta < pi/2 -> 0 < theta < pi/2)
m = 1 ;
n = 1 ;
while n < size(theta,2)
if theta(n+1) > theta(n)
Theta(m) = theta(n) ;
Theta(m+1) = theta(n+1) ;
Cone(m) = cone(n) ;
Cone(m+1) = cone(n+1) ;
Delta(m) = cone_delta(n) ;
Delta(m+1) = cone_delta(n+1) ;
n = n + 1 ;
else % theta(n) == theta(n+1)
Theta(m) = theta(n) ;
Cone(m) = (cone(n) + cone(n+1)) / 2 ;
Delta(m) = 0.5 * sqrt ( (cone_delta(n)).^2 + (cone_delta(n+1)).^2 ) ;
n = n + 2 ;
end
m = m + 1 ;
end
cone = Cone ;
cone_delta = Delta ;
theta = Theta ;
%% Derive experimental and theoretical cones
% Correct cone with albedo mismatch
corr_cone = aleph * cone ;
corr_cone_delta = aleph * cone_delta ;
83