% PROGRAMA DE FIBONACCI
% Informar al usuario de inicio de programa
disp('Programa de cálculo de la serie de Fibonacci\n');

% Entrada por teclado del usuario
N=input('Indique número de elementos a calcular\n');
fibonaccionacci=zeros(1,N);
k = 1;
sfibonacci(k)=1;
k = k+1 ;
sfibonacci(k)=1;
k = k+1 ;

while ( k <= N )
    sfibonacci(k)=sfibonacci(k-2)+sfibonacci(k-1);
	cadena=sprintf("Iteracción %u número: %d. Estimación de número Aureo: %f", k, sfibonacci(k), sfibonacci(k)/sfibonacci(k-1) );
	disp(cadena);
	k=k+1;
end


% Mostrar resultados finales
fprintf('\nLa serie resultante tiene los indicados %d términos y sus valores son:\n',N);
fprintf('%g \n ',sfibonacci);
fprintf('\n');

% Informar al usuario de finalización de programa
fprintf('\nFín de programa\n');