搜索： a191758-编号：a191758
|
| |
| |
|
|
|
1, 4, 12, 36, 100, 276, 748, 2012, 5356, 14172, 37276, 97604, 254508, 661364, 1713292, 4426428, 11408300, 29339324, 75305596, 192945124, 493554916, 1260643868, 3215551292, 8191635220, 20843850764, 52980214316, 134527157780, 341268196780
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
链接
|
M.Bousquet-Mélou，谨慎的自助行走家庭、DMTCS程序。AJ，2008，167-180。
|
|
|
MAPLE公司
|
b： =proc（n，x，y，w，s，i）选项记忆；
`如果`（n=0，1，`如果`（y>s，b（n，x，s，w，y，i），
b（n-1，最大值（x-1，0），y，w+1，s，evalb（x=0））+
`如果`（y=0或i，b（n-1，最大值（y-1，0），w，s+1，x，evalb（y=O）），0）+
`如果`（s=0或i，b（n-1，最大值（s-1，0），x，y+1，w，evalb（s=O），0））
结束时间：
a： =n->`如果`（n=0，1，4*b（n-1，0，0，1、0，true））：
seq（a（n），n=0..30）；
|
|
|
数学
|
b[n_，x_，y_，w_，s_，i_]：=b[n，x，y，w，s，i]=如果[n==0，1，如果[y>s，b[n、x、s、w、y，i]，b[n-1，Max[x-1，0]，y，w+1，s，x==0]+如果[y==0|i，b[n-1，Max[y-1，0]，w，s+1，x，y=0]，0]+If[s==0| | | i，b[n-1，最大[s-1，0]，x，y+1，w，s==0]，0]]；
a[n_]：=如果[n==0，1，4*b[n-1，0，0，1、0，True]]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,步行
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 3, 7, 19, 49, 129, 333, 865, 2233, 5763, 14825, 38087, 97641, 249961, 638861, 1630681, 4156737, 10583483, 26916167, 68383509, 173565889, 440133159, 1115145081, 2823128197, 7141682287, 18053470305, 45606579731, 115137581735, 290498368253
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
链接
|
米雷尔·布斯克·梅洛，谨慎的自助行走家庭、DMTCS程序。AJ，2008，167-180。
|
|
|
例子
|
a（3）=19:EEE、EEN、ENE、ENN、ENW、NEE、NEN、NNE、NNN、NNW、NWN、NWW、WNE、WNN、WNW、WWN、WWW、SEN、SWN。
|
|
|
MAPLE公司
|
b： =进程（d，i，n，x，y，w，s）
如果w<x，则b（[3，2，1，4][d]，i，n，w，y，x，s）
其他b（d，i，n，x，y，w，s）：=
`if`（y>n，0，`if`（n=0，`if`（y=0，1，0），
`如果`（[0，1]中的d或d≤3且（x=0或i），
b（1，evalb（x=0），n-1，最大值（x-1，0），y，w+1，s），0）+
`如果`（[0，2]中的d或d≤4且（y=0或i），
b（2，evalb（y=0），n-1，x，最大值（y-1，0），w，s+1），0）+
`如果`（[0，3]中的d或d≤1且（w=0或i），
b（3，evalb（w=0），n-1，x+1，y，最大值（w-1，0），s），0）+
`如果`（[0，4]中的d或d<>2且（s=0或i），
b（4，evalb（s=0），n-1，x，y+1，w，最大值（s-1，0），0））
fi（菲涅耳）
结束时间：
a： =n->b（0，false，n，0，0，0,0）：
seq（a（n），n=0..30）；
|
|
|
数学
|
b[d_，i_，n_，x_，y_，w_，s]：=b[d，i，n，x，y，w，s]=如果[w<x，b[{3，2，1，4}[[d]]，i，n，w，y，x，s]，b[d3&&（x==0||i），b[1，x==0，n-1，最大值[x-1，0]，y，w+1，s]，0]+如果[MemberQ[{0，2}，d]||d！=4&&（y==0||i），b[2，y==0，n-1，x，最大值[y-1，0]，w，s+1]，0]+如果[MemberQ[{0，3}，d]||d！=1&&（w==0||i），b[3，w==0，n-1，x+1，y，Max[w-1，0]，0]+如果[MemberQ[{0，4}，d]||d！=2&&（s==0||i），b[4，s==0，n-1，x，y+1，w，最大[s-1，0]]，0]]]；
a[n]：=b[0，假，n，0，0，0,0]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,步行
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.007秒内完成
|
