![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
pascal矩阵
2个回答
展开全部
帕斯卡矩阵
帕斯卡矩阵:由杨辉三角形表组成的矩阵称为帕斯卡(Pascal)矩阵。
杨辉三角形表是二次项 (x+y)^n 展开后的系数随自然数 n 的增大组成的一个三角形表。
如4阶帕斯卡矩阵为:
Pascal(4)=
[1 1 1 1
1 2 3 4
1 3 6 10
1 4 10 20]
pascal(n)是矩阵实验室(Matrix Laboratory)MATLAB中的命令,利用pascal()命令可以在矩阵实验室中方便的得到任意阶帕斯卡矩阵。设A为帕斯卡矩阵,则在MATLAB命令窗口中输入A=pascal(n),n为正整数,可得到阶数为n的帕斯卡矩阵。
帕斯卡矩阵:由杨辉三角形表组成的矩阵称为帕斯卡(Pascal)矩阵。
杨辉三角形表是二次项 (x+y)^n 展开后的系数随自然数 n 的增大组成的一个三角形表。
如4阶帕斯卡矩阵为:
Pascal(4)=
[1 1 1 1
1 2 3 4
1 3 6 10
1 4 10 20]
pascal(n)是矩阵实验室(Matrix Laboratory)MATLAB中的命令,利用pascal()命令可以在矩阵实验室中方便的得到任意阶帕斯卡矩阵。设A为帕斯卡矩阵,则在MATLAB命令窗口中输入A=pascal(n),n为正整数,可得到阶数为n的帕斯卡矩阵。
参考资料: http://baike.baidu.com/view/1608950.htm
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
const max=100;
var a:array[1..max,1..max]of longint;
n,i,j,sum,m,mm:longint;
begin
readln(n);
i:=1;j:=1;m:=n;mm:=1;
while sum<>n*n do begin
for i:=mm to m do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for j:=mm+1 to m do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for i:=m-1 downto mm do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for j:=m-1 downto mm+1 do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
dec(m);inc(mm);
end;
for j:=1 to n do begin
for i:=1 to n do write(a[i,j]:4);
writeln;
end;
readln;
end.
var a:array[1..max,1..max]of longint;
n,i,j,sum,m,mm:longint;
begin
readln(n);
i:=1;j:=1;m:=n;mm:=1;
while sum<>n*n do begin
for i:=mm to m do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for j:=mm+1 to m do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for i:=m-1 downto mm do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for j:=m-1 downto mm+1 do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
dec(m);inc(mm);
end;
for j:=1 to n do begin
for i:=1 to n do write(a[i,j]:4);
writeln;
end;
readln;
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询