function s = w3dzz(a,b,l,c,h)
% s = w3dzz
% W3DZZ-antenna
% a :  Length of inner wire in m (default 10.07)
% b :  Length of outer wire in m (default 6.71)
% l :  Inductivity in Henry (default 8.3*10^-6)
% c :  Capacity in Farad (default 60*10^-12)
% h :  Height in m (default 10)

if nargin<1  a = 10.45;     end   % Lnge des inneren Drahtes  in m
if nargin<1  b = 6.71;      end   % Lnge des usseren Drahtes in m
if nargin<1  l = 8.3*10^-6; end   % Induktivitt in Henry
if nargin<1  c = 60*10^-12; end   % Kapazitt in Farad
if nargin<1  h = 10;        end   % Hhe in m
      
x = 0.1;                          % Lnge der LC-Kreise
d   = exwire([0 -a   h],[0 +a   h], 0.003,15,1);
e   =  wires([0 -a-x h;  0 +a+x h],[0 -a-x-b h; 0 +a+x+b h],0.003,15);
lc1 = rlcpar([0 -a h],  [0 -a-x h],10^5,l,c);
lc2 = rlcpar([0 +a h],  [0 +a+x h],10^5,l,c);
s   = comment(construct(d,e,lc1,lc2),'W3DZZ');
