Generate the Pascal triangle with mathematica

mathematica;教學;pdf mathematica 6教學 mathematica基本教學
Write a function "pascal" would produce the (nested) list "{{1}, {1,1}, {1,2,1}, {1,3,3,1}....}".

Generate the triangle by addition; do not use the function "Binomial[ ]".

pascal[n_Integer]:=NestList[Insert[#,0,1]+Insert[#,0,Length[#]+1]&,{1},n]

or

pascal[n_Integer]:=Module[{t},t=n;
aa=NestList[Insert[#,0,1]+Insert[#,0,Length[#]+1]&,{1},t+1];
bb=Table[Insert[aa[[i]],"",Table[{m},{m,2,i}]],{i,1,t+1}];
Table[Nest[Insert[#,"",1]&,bb[[i]],t+1-i],{i,1,t+1}]//TableForm]



Tags: Teaching

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見