%% Impedance and Radiation Pattern of Custom Discone Antenna
% Create and view a discone antenna with specific dimensions.

ant = discone('Height',0.0925,'ConeRadii',[0.666e-3 53.2e-3],...
      'DiscRadius',37.25e-3,'FeedHeight',399.7e-6,'FeedWidth',0.553e-3);
show(ant) 

%
% Calculate the impedance of the antenna over the frequency span of 500 MHz to 3 GHz and plot the S-parameters.

impedance(ant,linspace(0.5e9,3e9,51));
s = sparameters(ant,linspace(0.5e9,3e9,51));
figure;
rfplot(s);

% Plot the radiation pattern of the antenna at 1.7 GHz.

pattern(ant,1.7e9);

% Copyright 2019 The MathWorks, Inc.