Matlab 版 (精华区)

发信人: Idealguy (Idealguy), 信区: Matlab
标  题: 第一次来，请多关照。发表一个小程序
发信站: 哈工大紫丁香 (Fri Jul 20 16:03:30 2001) , 转信

第一次来，请多关照。发表一个小程序 yanghui.m
------------------
function yanghui(N)
if nargin==0, N=15; disp yanghui(15); end
m=ceil(log10(nchoosek(N,floor(N/2))+1))+1;
sf=['%' sprintf('%d',m) '.0f'];
for i=[0:N]
   b(i+1)=1;
   for j=[i:-1:2], b(j)=b(j-1)+b(j); end;
   disp([ones(1,round((N-i)*m/2))*' '  sprintf(sf,b)]);
end
------------结果--------
yanghui(10)
<pre>
                       1
                     1   1
                   1   2   1
                 1   3   3   1
               1   4   6   4   1
             1   5  10  10   5   1
           1   6  15  20  15   6   1
         1   7  21  35  35  21   7   1
       1   8  28  56  70  56  28   8   1
     1   9  36  84 126 126  84  36   9   1
   1  10  45 120 210 252 210 120  45  10   1
</pre>

---------------------------




--

※ 来源:．哈工大紫丁香 http://bbs.hit.edu.cn [FROM: 210.52.33.1]