|
|
|
|
| A301477型
|
| T（n，k）=和{j=0..n-k}H（n，j）*2^k，其中H（n、k）=二项式（n，k）*超几何（[-k/2，1/2-k/2]，[2-k+n]，4），对于0≤k≤n，按行读取三角形。
(历史;已发布版本)
|
|
|
|
|
#18通过彼得·卢什尼2023年10月4日星期三04:48:57 EDT |
|
|
|
|
|
|
|
#17通过米歇尔·马库斯2023年10月4日星期三01:47:40 EDT |
|
|
|
|
|
|
|
#16通过米歇尔·马库斯2023年10月4日星期三01:47:18 EDT |
|
| 数学
|
s={}；对于[n=0，n<13，n++，对于[k=0，k<n+1，k++，AppendTo[s，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbaurerC[-n-k，-n、-1/2]+KroneckerDelta[n]）]]；秒(* _(* _Detlef Meya，2023年10月3日*）
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#15通过Detlef Meya酒店2023年10月3日星期二美国东部夏令时22:45:23 |
|
|
|
|
|
|
|
#14通过Detlef Meya酒店2023年10月3日星期二美国东部夏令时22:45:01 |
|
| 数学
|
（*第n行[0..oo]*）
秒={};对于[n个=12;第页={};0,n个<13,n个++，对于[k=0，k<n+1，k++，AppendTo[第页秒，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbaurerC[-n-k，-n、-1/2]+KroneckerDelta[n])]];第页])]]];秒(* _德特勒夫 梅亚_,10月 03 2023*)
（*列k[0..oo]*）
k=0；c={}；对于[n=k，n<13，n++，AppendTo[c，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbaurerC[-n-k，-n，-1/2]+KroneckerDelta[n]）]]；c（c）
（*序列*）
s={}；对于[n=0，n<13，n++，对于[k=0，k<n+1，k++，AppendTo[s，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbaurerC[-n-k，-n、-1/2]+KroneckerDelta[n]）]]；秒
(*Detlef Meya酒店，2023年10月3日*）
|
|
|
|
|
|
|
#13通过彼得·卢什尼2023年10月3日星期二15:25:46 EDT |
|
|
|
|
|
|
|
#12通过米歇尔·马库斯2023年10月3日星期二11:05:52 EDT |
|
|
|
|
|
讨论
|
| 10月3日星期二
| 15:19
| 彼得·卢什尼“For…For…Append…”不是惯用的Mathematica。它既笨重又缓慢。Mathematica是一种函数式语言。在这个数据库中有数百个关于如何做得更好的例子。请将其用作指南。
|
|
| 15:23
| 彼得·卢什尼：如果我没看错，短语“AppendTo[_，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbaurerC[-n-k，-n、-1/2]+KroneckerDelta[n]）”会出现三次。这太冗长了。
|
|
| 15:24
| 彼得·卢什尼：我们希望它简短、简洁、高效。
|
|
|
|
|
|
|
#11通过米歇尔·马库斯2023年10月3日星期二11:05:48 EDT |
|
|
|
|
|
|
|
#10个通过Detlef Meya酒店2023年10月3日星期二11:04:29 EDT |
|
|
|
|
|
|
|
#9通过Detlef Meya酒店2023年10月3日星期二11:04:21 EDT |
|
| 数学
|
（*第n行[0..oo]*）
n=12；r={}；对于[k=0，k<n+1，k++，AppendTo[r，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbaurerC[n-k，-n、-1/2]+KroneckerDelta[n]）]]；第页
（*列k[0..oo]*）
k=0；c={}；对于[n=k，n<13，n++，附录[c，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbauerC[n-k，-n，-1/2]+KroneckerDelta[n]）]]；c（c）
（*序列*）
s={}；对于[n=0，n<13，n++，对于[k=0，k<n+1，k++，AppendTo[s，（2^k）*（GegenbauerC[n-k-1，-n，-1/2]+GegenbaurerC[-n-k，-n、-1/2]+KroneckerDelta[n]）]]；秒
(*Detlef Meya酒店2023年10月3日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
