Contents

Data Rate at the Solar Gravitation Lens

% See also: DataRate, Plot2D

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

aU              = Constant('au');
range           = linspace(1,1000);
d               = DataRate;

40 GHz: ka-band

d.fGHz          = 40;
d.areaTransmit  = 4*pi;
str = '4 Meter Ka Band Dish';
power           = 1e6; % 1/2 MW

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

h1 = Plot2D(range,dataRate,'Range (AU)', 'Data Rate (bps)', str,'ylog');

420e3 GHz: laser

d.fGHz          = 420e3;
d.areaTransmit  = pi;
str = '1 Meter Laser';
power           = 0.5e6; % 1/2 MW

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

h2 = Plot2D(range,dataRate/1e6,'Range (AU)', 'Data Rate (Mbps)', str,'ylog');
if 0
  PrintFig(1,4,h1,'KaDataRateSGL')
  PrintFig(1,4,h2,'LaserDataRateSGL')
end


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

% $Id: 14e193422250ad26bc098164b50ff643d6a236cc $