function [ output_args ] = funcionfac( n )
% Calcula el factorial de un número
fac=1;
for i=1:n
    fac=fac*i;
end
disp('fac= ');
disp(fac)