%I#24 2019年12月6日21:44:09

%S 13,21,23,26,37,39,42,46,47,52,73,74,78,81,83,84,92,94,97,99103104，

%电话：107111113133141143146148156157162163166167168171，

%U 173184188193194198201203206207208209211212132172192212222232627231332532263266279283282887电话

%N合并龙曲线三点。如果D:[0,1]是一条龙曲线，那么除了n之外，还有另外两个整数p和q，其中D（a（n）/（15*2^k））=D。

%看起来每个龙的三重点都是A（n）/（15*2^k）的图像，代表三个不同的n和一些k。

%C对于分组的三元组，使用

%C龙（A260748（n））=龙（A2601749（n）。（也就是说，它们是“共形的”。）

%C该序列的第一个差异似乎仅包括1、2、3、4、5、8、11、20和21。对于A（n）<30720，21只出现两次。

%C有关连续的、充满空间的Dragon函数及其多值逆函数的精确求值器，请参阅数学部分中的dragun。

%C即使不包括5的倍数，A260747也不包含7*A260747.例如，缺少7*13=91。

%H Brady Haran和Don Knuth，<a href=“https://www.youtube.com/watch？v=v678Em6qyzk“>错误开启龙</a>，Numberphile视频（2014）

%H维基百科，<a href=“http://en.wikipedia.org/wiki/Dragon_curve“>龙曲线</a>

%e为明确起见，我们选择复杂平面中的龙，龙（0）=0，龙（1）=1，龙（1/3）=1/5+2i/5

%e然后使用A（1）=13，对于k=0,1,2，{德拉贡[13/15]，德拉贡[13/30]，德拉贡[13/60]}

%e->{{2/3-I/3}，{1/2+I/6}，}（其中I^2:=-1）

%e这些有反转图像解压缩/@First/@%

%e{13/15}、{13/30、7/10、23/30}、}13/60、7/20、23/60}}

%e k=0太小了--7/5和23/15偏离了曲线的终点！

%e德拉贡[13/15/2^k]=德拉贡[7/5/2^k]=dragun[23/15/2|k]，经验上=（2/3-I/3）（1/2+I/2）^k

%t（*朱利安·齐格勒·亨茨*）

%t分段递归分形[x_，f_，which_，iters_，fns_]：=分段递归分形[x，g_，whit，iters，fns]=（（分段递归分形[Px，h_，whis，iters、fns]：=块[{y}，y/.求解[f[y]==h[y]，y]]）；并集@@（（fns[[#]]/@piecwiserecursivefractal[iters[[#]][x]，Composition[f，fns[#]]，which，iters，fns]）；

%t dragun[t]：=分段递归分形[t，恒等式，分段[{{{1}，0<=#<=1/2}，{{2}，1/2<=#<=1}}，}]&，{2*#&，2*（1-#）&}，（1+I）*#/2&，（I-1）*#/2+1&}]

%t解压缩[z_]：=分段递归分形[z，恒等式，如果[-（1/3）<=Re[#]<=7/6&&（1/3）<=Im[#]<=2/3，{1，2}，{}]&，{#*（1-I）&，（1-#）*（1+I）&}，}#/2&，1-#/2&}]

%t收割[Do[If[Length[undrag[dragun[k/15/32][1]]]>2，播种[k]]，{k，0288}]][[2，1]]

%Y A260747=A260748 U A260749 U A260750=3*A260482的超集。

%K non、frac、obsc

%O 1,1号机组

%A Bill Gosper，2015年7月30日

%E更正了NAME部分的细微错误，并对示例进行了三次调整。已调整评论。-_Bill Gosper，2015年7月31日