|
| |
|
| A068608年 |
| 无限棋盘上骑士之旅的路径。 |
|
11
|
|
|
|
1, 10, 3, 16, 19, 22, 9, 12, 15, 18, 7, 24, 11, 14, 5, 20, 23, 2, 13, 4, 17, 6, 21, 8, 25, 50, 27, 54, 31, 60, 35, 64, 67, 40, 71, 74, 45, 78, 49, 52, 29, 56, 59, 34, 63, 66, 39, 70, 43, 76, 47, 80, 51, 28, 55, 58, 33, 62, 37, 68
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
八个可能的骑士之旅之一。正方形按顺时针螺旋编号。枚举所有正整数。
|
|
|
链接
|
|
|
|
黄体脂酮素
|
（PARI）\\Ellermann的顺时针方形螺旋，第一步（0，0）->（0，1）
y=矢量（10000）；L=0；d=1；n=0；
对于（r=1100，d=-d；k=地板（r/2）*d；对于（j=1，L++，y[n++]=k）；对于台阶（j=k-d，-楼层（（r+1）/2）*d+d，-d，y[n++]=j）；
x=矢量（10100）；L=1；d=-1；n=0；
对于（r=1100，d=-d；k=地板（r/2）*d；对于（j=1，L++，x[n++]=-k）；对于台阶（j=k-d，-楼层（（r+1）/2）*d+d，-d，x[n++]=-j））；
\\螺旋线中的位置
findpos（i，j）={my（大小=（2*max（abs（i），abs（j））+1）^2）；对于步长（k=大小，1，-1，如果（i==x[k]&&j==y[k]，返回（k））}；
atan2（y，x）=如果（x>0，atan（y/x），如果（x==0，如果（y>0，Pi/2，-Pi/2），如果；
角度（v，w）=atan2（v[1]*w[2]-v[2]*w[1]，v[1]*w[1]+v[2]*w[2]）；
移动=[2，1；1，2；-1，2；-2，1；-2，-1；-1，-2；1，-2；2，-1]；\\8个骑士动作
m=6；b=矩阵（2*m+1，2*m+1,i，j，0）；集合b（pos）={b[pos[1]+m+1，pos[2]+m+1]=1}；
getb（pos）=b[位置[1]+m+1，位置[2]+m+1]；
inring（n，p）=！（abs（p[1]）<n&abs（p2]）<n）&abs；
p=[0,0]；setb（p）；打印1（findpos（p[1]，p[2]），“，”）；p+=移动[3]；setb（p）；forstep（n=1，m-3，2，my（angmin，jmin，jlast）；直到（jmin==0，打印1（findpos（p[1]，p[2]），“，”）；angmin=-2*Pi；jmin=0；对于（j=1，#move[，1]，my（ptry=p+move[j，]，adiff）；if（inring（n，ptry），if（！getb（ptry）），adiff=角度（p，ptry；if（adiff<=0，if（adiff>angmin，jmin=j；angmin=adiff；jlast=j））；如果（jmin>0，p+=移动[jmin，]；集合b（p）；）；p+=移动[jlast，]；setb（p））\\雨果·普福尔特纳2019年5月11日
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
Hans Secelle和Albrecht Heeffer（Albrecht.Heeffer（AT）pandora.be），2002年3月9日
|
|
|
状态
|
经核准的
|
| |
|
|
