%《MATLAB及其在理工課程中的應用指南》(十一五規劃版)第二章第六節演示程序
% 西安電子科技大學出版社出版  陳懷琛編著 2007年7月
%
% 求fibonacci數的程序
clear, close all
R=input('輸入fibonacci數的最大范圍R= '),f=[1 1]; i=1;
while f(i)+f(i+1)<R f(i+2)=f(i)+f(i+1);i=i+1;
end
f,plot(f)

% 求素數的程序
disp('求素數(prime number)的程序'),pause
N=input('輸入素數的最大范圍N= '), x=2:N;
for u=2:sqrt(N)
   n=find(rem(x,u)==0 & x~=u);
   x(n)=[];
end,x

%子程序是不能直接執行的,必須由主程序調用,因此下面的子程序只能閱讀,不能執行
%function y = humps(x)
%HUMPS	A function used by QUADDEMO, ZERODEMO and FPLOTDEMO.
%	HUMPS(X) is a function with strong maxima near x = .3 and x = .9.
%	See QUADDEMO, ZERODEMO and FPLOTDEMO.
%	Copyright (c) 1984-94 by The MathWorks, Inc.

%y = 1 ./ ((x-.3).^2 + .01) + 1 ./ ((x-.9).^2 + .04) - 6;