function C=corte(x,n)
% Redondeo por corte a n digitos de x= 10^m(0.a_1a_2...), con a_1 distinto de 0
% Usamos los comandos de Matlab:
% 'ceil(x)' = parte entera por arriba de x
% 'fix(x)'  = redondeo hacia 0 de x

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

if x==0
    C=0;
    return
else
    % Calculo del exponente m
    m=ceil(log10(abs(x))); 
    
    % Corte con n digitos
    C=10^(m-n)*fix(x*10^(n-m));
end

