function s = srlcwires(a,b,d,m,r,l,c)
% s = srlcwires(a,b,d,m,r,l,c)
% models a set of linear wires or tubes with serial laoding
% a, b :  Matrices n*[ax ay az] and n*[bx by bz] of wire end coordinates
% d    :  Vector of n wire diameter in m  (default = 0.002 m).
%         If a scalar value is given all wires will have this diameter.
% m    :  Vector of n numbers of segments.
%         If a scalar value is given it will be applicated to all wires.
% r,l,c:  resistance, inductivity, and capacity per meter
%         in  Ohm/m , F/m , H/m (defaults: 0)
% s    :  resulting antenna structure 
