clear;

%-- sample driver code (simple case): reproduces one curve in fig 8-29

t = 0; % temperature in degree C.
f = 2:1:33; % frequency in GHz
mv = 1 ; % cloud water content (g/m3)

np = length(f);
kappawc = zeros(np,1);

for ii = 1: np
    [kappawc(ii)]=ExtincCoef_WaterCloud(t,mv,f(ii));
end

figure(1)
loglog(f, kappawc)
grid




