function ant = spiderdelta
% ant = spiderdelta
% KC2MK Spider-Delta-Loop
% ARRL Antenna Handbook 12-9
% DE-55.58 ft  REF-57.58 ft   SPACING-6.54 ft
% Increase REF loop (w{4,5,6}) to raise resonance
% 17 m
% !!! Something must be wrong. 

d = 0.004;
m = 11;
w{1} = exwire([ 1.006   2.819  10.000], [ 1.006  -2.819  10.000], d, m, 1);
w{2} =   wire([ 1.006  -2.819  10.000], [ 1.006   0.000  14.900], d, m);
w{3} =   wire([ 1.006   0.000  14.902], [ 1.006   2.819  10.000], d, m);
w{4} =   wire([-1.006   2.819  10.000], [-1.006  -2.819  10.000], d, m);
w{5} =   wire([-1.006  -2.819  10.000], [-1.006   0.000  15.300], d, m);
w{6} =   wire([-1.006   0.000  15.300], [-1.006   2.819  10.000], d, m);
ant  = comment(construct(w{:}),'Spider.Delta-Loop');
