Data Rate Alpha Centauri

%--------------------------------------------------------------------------
% See also: DataRate, Plot2D
%--------------------------------------------------------------------------

%--------------------------------------------------------------------------
% Copyright (c) 2017 Princeton Satellite Systems, Inc.
% All rights reserved.
%--------------------------------------------------------------------------

d               = DataRate;
d.areaTransmit  = pi;

lY              = 9.4607e12; % km

range           = linspace(1,10);
d.fGHz          = 420e3; % Optical

power           = 95e6;

dataRate = zeros(1,length(range));
for k = 1:length(range)
  d.range     = range(k)*lY*1000;
  dataRate(k) = DataRate(power,d);
end

h = Plot2D(range,dataRate/1e6,'Range (LY)', 'Data Rate (Mbps)', '1 Meter Optical','ylog');
PrintFig(1,4,h,'DataRateAlphaCentauri')


%--------------------------------------

% $Id: 8bee29395687d2d6c646f2ae969bd5176fae8aad $
PrintFig: fP = print -dpdf DataRateAlphaCentauri