function F=total_field(a,b,c);
% Вычисление модулЯ полного полЯ по X,Y,Z-составлЯющим
%
% Вызов:    F=total_field(x,y,z);
%           F=total_field(h,z);
%

switch nargin,
   case 3, F=sqrt(a.^2+b.^2+c.^2);
   case 2, F=sqrt(a.^2+b.^2);
   otherwise, error('!!! Не могу вычислить !!!')
end
