%  function y=fibreal(n)  computes n-th Fib number  (-71¾n¾70)
%  using the standard formula for the  n-th term
function y=fibreal(n)
s=sqrt(5);
a1=(s+1)/2; a2=-1/a1;
y=(a1.^n-a2.^n)/s;
y=round(y);
return
