function ant = dj5hg_003(p)
% Drahtantenne mit 8 Optimierungsparametern

if nargin<1  p = [14.11 27.71 4.52 10.23 4.94 1.24 0.098 0.288]; end
a = 0.05;
d = 0.003;
w{1} = exwire([0 -a  0],[0  a                 0],             d,1,1);
w{2} =   wire([0 -a  0],[0 -a-p(1)            0],             d,20);
w{3} =   wire([0  a  0],[0  a+p(2)            0],             d,40);
w{4} =   wire([0 -a  0],[0 -a-p(3)*cos(p(6)) -p(3)*sin(p(6))],d,2);
w{5} =   wire([0  a  0],[0  a+p(4)*cos(p(7)) -p(4)*sin(p(7))],d,8);
w{6} =   wire([0  a  0],[0  a+p(5)*cos(p(8)) -p(5)*sin(p(8))],d,8);

%ant  = comment(ground(construct(w{:})),'DJ5HG-Multiband');
ant  = comment(construct(w{:}),'DJ5HG-Multiband');
