%% Create Disc Monopole Antenna on Square Ground Plane
%  Create a disc monopole with a of radius 25 mm, on a square ground plane of 30 cm, and with a feed gap of 0.7 mm.

 Rad = antenna.Circle('Radius',25e-3);
 FeedStrip = antenna.Rectangle('Length',1e-3,'Width',0.7e-3, ...
                                'Center',[0 -(Rad.Radius+(0.7e-3)*0.3)]);
 m = monopoleCustom;
 m.Radiator = Rad+FeedStrip;
 m.GroundPlane = antenna.Rectangle('Length',300e-3,'Width',300e-3);
 

% View the antenna using the show function.

 show(m);  

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

p = PatternPlotOptions('MagnitudeScale',[-40 5]);
pattern(m,2.05e9,'patternOptions',p);

% Copyright 2020 The MathWorks, Inc.