%《MATLAB及其在理工課程中的應用指南》第二章第六節演示程序
% 西安電子科技大學出版社出版  陳懷琛編著 1999年10月初版，2004年11月第二版
%
% 求fibonacci數的程序和求素數的程序
%
disp('求fibonacci數的程序'),pause
R=input('輸入數的最大范圍R= ') % 給出范圍
f=[1 1];
while f(i)+f(i+1)<R  
    f(i+2)=f(i)+f(i+1);
    i=i+1;
end
f,plot(f)