www.gusucode.com > MATLAB2008应用程序接口编程技术源码程序 > MATLAB2008应用程序接口编程技术源码程序/code/第2章/2.5/示例6/zsqf2.m

    function f=zsqf2(n)
%%%这是一个求小于任何正整数的自然数的阶乘值的示例
%%%调用格式c=zsqf2(n)
%%%参数说明：n可以是任意的正整数
f(1)=1
i=1;
while f(i)<ceil(n/i)
    f(i+1)=f(i)*(i+1)
    i=i+1;
end