function tbalance(varargin)
% Imprime una tabla con los datos de cualquier número de corrientes

id=['H';'M';'B';'T';'F'];

if nargin>0

   for i=1:nargin
     [F(i),x(:,i),P(i),T(i)]  = deal(varargin{i}{:});
  end
  
   disp(' ')
   disp('------------------------------------------------------------------------------')
   disp('         C4           CE            C5           CC           C6          C16 ')
   disp('------------------------------------------------------------------------------')
   disp(F)
   for i=1:5
fprintf(1,'\n %1s     %6.4f       %6.4f       %6.4f       %6.4f       %6.4f       %6.4f       %6.4f ',id(i),x(i,:))
   end
   disp(' ')
   disp(' ')
   disp(P)
   disp(T)
   disp('------------------------------------------------------------------------------')
   disp(' ')
else
   
   error('no hay argumentos de entrada')
end
