%% Demo fuer Fibonacci
% function in  fibo.m
clear; clc;

m = input('letzter Index der Fibonaccifolge: ');

f = fibo(m);

disp(['Fibonacci (',num2str(m),') ist ',num2str(f)]);

f_exakt = 1/sqrt(5)*( ((1+sqrt(5))/2)^m - ((1-sqrt(5))/2)^m );

disp(['Ergebnis aus der Binet-Formel: ', num2str(f_exakt)]);