function S=simetrico(x,n)
% Redondeo simetrico a n digitos de x= 10^m(0.a_1a_2...), con a_1 distinto de 0
%(por convenio el 5 se redondea hacia arriba)
% Usamos los comandos de Matlab:
% 'ceil(x)' = parte entera por arriba de x
% 'round(x)'  = redondeo de x al entero mas cercano

format long g
% Comando de Matlab para que las expresiones numericas utilicen
% 15 digitos significativos


if x==0   
   S=0;
   return
else
    % Calculo del exponente m
    m=ceil(log10(abs(x))); 
   
    % Redondeo simetrico con n digitos
    S=10^(m-n)*round(x*10^(n-m));
end